|
Компьютерный форум OSzone.net » Автоматическая установка Windows » Автоматическая установка приложений » Скрипты Inno Setup. Помощь и советы [часть 9] |
|
Скрипты Inno Setup. Помощь и советы [часть 9]
|
Ветеран Сообщения: 1265 |
Профиль | Отправить PM | Цитировать
Внимание! Данная тема предназначена только для обсуждения написания скриптов!
Остальные вопросы, а также последние версии компилятора в теме Inno Setup. Прочие вопросы. Показать/скрыть: Справка, руководство, примеры:
Показать/скрыть: Ссылки на примеры скриптов:
Показать/скрыть: Дополнительные программы для Inno Setup:
Предыдущие ветки обсуждения по ссылкам ниже и в прикреплённых архивах: Скрипты Inno Setup. Помощь и советы [часть 6] | Скрипты Inno Setup. Помощь и советы [часть 6].7z Скрипты Inno Setup. Помощь и советы [часть 7] | Скрипты Inno Setup. Помощь и советы [часть 7].7z Скрипты Inno Setup. Помощь и советы [часть 8] | Скрипты Inno Setup. Помощь и советы [часть 8].7z |
|
Отправлено: 16:09, 04-04-2018 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Beavimo, на C/C++. Без .Net.
|
Отправлено: 18:48, 30-01-2020 | #491 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 856
|
Профиль | Отправить PM | Цитировать Beavimo, AutoIt в помощь. Могу помочь если надо
|
------- Отправлено: 21:27, 30-01-2020 | #492 |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать Цитата web_form:
Или так: Можно оставить пустым: При необходимости можно добавить: либо несколько через запятую: |
|
------- Последний раз редактировалось Nordek, 31-01-2020 в 15:47. Отправлено: 15:39, 31-01-2020 | #493 |
Пользователь Сообщения: 62
|
Профиль | Отправить PM | Цитировать Рабочий пример добавления в Брандмауэр Виндовс, если можна проверьте работоспособность на Виндовс 10
Скрытый текст
procedure CurStepChanged(CurStep: TSetupStep); var RC: Integer; SIn, SOut: String; begin if CurStep=ssInstall then begin Exec(ExpandConstant('netsh.exe'), 'advfirewall firewall delete rule name="TEST"','', SW_HIDE, ewWaitUntilTerminated, RC) SIn:='advfirewall firewall add rule name=OCCTTEST dir=in action=block program='+ExpandConstant('"{app}\TEST.exe"')+' enable=yes'; Exec('netsh', SIn,'', SW_HIDE, ewWaitUntilTerminated, RC) SOut:='advfirewall firewall add rule name=OCCTTEST dir=out action=block program='+ExpandConstant('"{app}\TEST.exe"')+' enable=yes'; Exec('netsh', SOut,'', SW_HIDE, ewWaitUntilTerminated, RC) end end; procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); var RC: Integer; begin if CurUninstallStep=usUninstall then begin Exec(ExpandConstant('netsh.exe'), 'advfirewall firewall delete rule name="TEST"','', SW_HIDE, ewWaitUntilTerminated, RC) end end; |
Отправлено: 15:59, 31-01-2020 | #494 |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать Цитата Beavimo:
Скрытый текст
При первичной установке добавляет во входящие и исходящие.
При повторной установке: - Удаляет правила: Цитата Beavimo:
Цитата Beavimo:
Цитата Beavimo:
Далее: Цитата Beavimo:
Итог:
[Setup] #define AppName "My Program" #define AppExeName "MyProg.exe" [Code] procedure CurStepChanged(CurStep: TSetupStep); var RC: Integer; SIn, SOut: String; begin if CurStep=ssInstall then begin Exec(ExpandConstant('netsh.exe'), 'advfirewall firewall delete rule name="{#AppName}"','', SW_HIDE, ewWaitUntilTerminated, RC) SIn:='advfirewall firewall add rule name="{#AppName}" dir=in action=block program='+ExpandConstant('"{app}\{#AppExeName}"')+' enable=yes'; Exec('netsh', SIn,'', SW_HIDE, ewWaitUntilTerminated, RC) SOut:='advfirewall firewall add rule name="{#AppName}" dir=out action=block program='+ExpandConstant('"{app}\{#AppExeName}"')+' enable=yes'; Exec('netsh', SOut,'', SW_HIDE, ewWaitUntilTerminated, RC) end end; procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); var RC: Integer; begin if CurUninstallStep=usUninstall then begin Exec(ExpandConstant('netsh.exe'), 'advfirewall firewall delete rule name="{#AppName}"','', SW_HIDE, ewWaitUntilTerminated, RC) end end; |
|||||
------- Отправлено: 17:24, 31-01-2020 | #495 |
Пользователь Сообщения: 62
|
Профиль | Отправить PM | Цитировать Хто подскажет почему, вот так работает
CODE
а вот так не работает CODE
то есть в курент усер удаляет значение, а в локал лезет в Wow6432Node, как удалить значение в HKEY_LOCAL_MACHINE\SOFTWARE? |
Отправлено: 19:54, 31-01-2020 | #496 |
SHVtYW4= Сообщения: 3451
|
Профиль | Отправить PM | Цитировать |
------- Отправлено: 20:29, 31-01-2020 | #497 |
Пользователь Сообщения: 62
|
Профиль | Отправить PM | Цитировать |
Отправлено: 21:44, 31-01-2020 | #498 |
Старожил Сообщения: 440
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Beavimo:
Скрытый текст
Константы специальных папок {userappdata} & {commonappdata} Путь к папке с данными приложения (Application Data). |
|
------- Последний раз редактировалось nik1967, 01-02-2020 в 09:49. Отправлено: 21:59, 31-01-2020 | #499 |
Пользователь Сообщения: 62
|
Профиль | Отправить PM | Цитировать nik1967, что {userappdata}\Roaming\Roaming\TEST\run.pid что {commonappdata}\Roaming\Roaming\TEST\run.pid файл run.pid как был так и остался на своем месте.
И так тоже ниче не удаляется Файл обычный, без каких либо атрибутов. |
Последний раз редактировалось Beavimo, 31-01-2020 в 22:30. Отправлено: 22:15, 31-01-2020 | #500 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипты Inno Setup. Помощь и советы [часть 7] | El Sanchez | Автоматическая установка приложений | 2499 | 02-02-2015 08:59 | |
Скрипты Inno Setup. Помощь и советы [часть 6] | El Sanchez | Автоматическая установка приложений | 2494 | 10-03-2014 11:51 | |
Скрипты Inno Setup. Помощь и советы [часть 5] | El Sanchez | Автоматическая установка приложений | 1999 | 28-03-2013 19:09 | |
Скрипты Inno Setup. Помощь и советы [часть 4] | El Sanchez | Автоматическая установка приложений | 2099 | 22-05-2012 23:16 | |
Скрипты Inno Setup. Помощь и советы [часть 3] | Serega | Автоматическая установка приложений | 3755 | 26-10-2011 17:58 |
|