[slonick2011]

john458, В секцию [code], просто скопируй и вставь

[john458]

Всё получилось, огромнейшее спасибо, уже дней 5 ищу как это сделать
Прописывать нужно в секции [code]

Скрытый текст

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpSelectProgramGroup then
WizardForm.NoIconsCheck.Checked := True;
end;

[ZVSRus]

john458
Пример от slonick2011 решение правильное. Но есть один вопрос, если это вам нужно лично для себя то это одно, если вы хотите это выкладывать в интернет тогда возникает вопрос надо ли это конечному пользователю?.
Стандартный чекбокс должен выглядеть стандартно (то-есть чекбокс должен быть не отмечен, поставить галочку, это выбор конечного пользователя)
P.S. Если не хотите создавать папку в меню пуск, удалите из секции [Setup], [Icons] все что связано с программной группой.

В расширенной версии Inno делается на раз, два

[Setup] AppName=My Application AppVersion=1.5 DefaultDirName={pf}\My Application DefaultGroupName=My Application AllowNoIcons=yes OutputDir=. [Icons] Name: "{group}\My Application"; Filename: "{app}\My Application.exe" [code] procedure InitializeWizard(); begin with WizardForm.NoIconsCheck do begin Checked := True; State := cbChecked; end; end;

[habib2302]

Доброе время суток. Помогите с параметрами запуска.

Код:

[Run]
Filename: netsh.exe; Parameters: """advfirewall firewall add rule name=""ashsnapinst"" dir=in action=block program=""{app}\{#Exe}"" enable=yes"""
Filename: netsh.exe; Parameters: """advfirewall firewall add rule name=""ashsnapinst"" dir=out action=block program=""{app}\{#Exe}"" enable=yes"""

[UninstallRun]
Filename: netsh.exe; Parameters: """advfirewall firewall delete rule name=""ashsnapinst"""

[Code]

procedure CurStepChanged(CurStep: TSetupStep);
var
  RC: integer;
begin
  if CurStep = ssInstall then
    Exec(ExpandConstant('netsh.exe'), ' advfirewall firewall delete rule name="ashsnapinst"', '', SW_HIDE, ewWaitUntilTerminated, RC)
end;

[vadjliss]

ребята что надо прописать в батнике что бы он при запуске удалил ключи установленной программы

[Dodakaedr]

habib2302, так пробуйте

Код:

[Run]
Filename: netsh.exe; Parameters: "advfirewall firewall add rule name=""ashsnapinst"" dir=in action=block program=""{app}\{#Exe}"" enable=yes"
Filename: netsh.exe; Parameters: "advfirewall firewall add rule name=""ashsnapinst"" dir=out action=block program=""{app}\{#Exe}"" enable=yes"

[UninstallRun]
Filename: netsh.exe; Parameters: "advfirewall firewall delete rule name=""ashsnapinst"""

[Code]

procedure CurStepChanged(CurStep: TSetupStep);
var
  RC: integer;
begin
  if CurStep = ssInstall then
    Exec('netsh', ' advfirewall firewall delete rule name="ashsnapinst"', '', SW_HIDE, ewWaitUntilTerminated, RC)
end;

что надо прописать в батнике »

перейти в тему батников и там спросить

[habib2302]

Dodakaedr, так не работает. через код работает, но не определяет путь к программе. хоть с кавычками хоть без них

Код:

[code]
procedure CurStepChanged(CurStep: TSetupStep);
var
  RC: integer;
begin
  if CurStep = ssDone then
  Exec('netsh', ' advfirewall firewall add rule name=ashsnapinst dir=in action=block program={app}\{#Exe} enable=yes', '', SW_HIDE, ewWaitUntilTerminated, RC)
  Exec('netsh', ' advfirewall firewall add rule name=ashsnapinst dir=out action=block program={app}\{#Exe} enable=yes', '', SW_HIDE, ewWaitUntilTerminated, RC)
end;

Скрытый текст

[nik1967]

habib2302, а так работает

Скрытый текст

Код:

#define Exe "ashsnap.exe"

[Setup]
AppName = MyApp
AppVerName = MyApp
DefaultDirname = {pf}\MyApp
OutputDir=.

[Code]         
procedure CurStepChanged(CurStep: TSetupStep);
var
  RC: integer;
  SIn,SOut: String;
begin
  if CurStep = ssDone then begin
    SIn:= ' advfirewall firewall add rule name=ashsnapinst dir=in action=block program='+ExpandConstant('"{app}\{#Exe}"')+' enable=yes';
    SOut:= ' advfirewall firewall add rule name=ashsnapinst dir=out action=block program='+ExpandConstant('"{app}\{#Exe}"')+' enable=yes';
    Exec('netsh', SIn, '', SW_HIDE, ewWaitUntilTerminated, RC);
    Exec('netsh', SOut, '', SW_HIDE, ewWaitUntilTerminated, RC);
  end;
end;

[Optitron]

Подскажите пожалуйста, что нужно прописать в скрипт, чтобы перед установкой инсталлятор убивал процесс (в моем случае steam.exe).

[nik1967]

Optitron, в шапке темы "Ссылки на примеры скриптов: => Закрытие процесса - пример скрипта для закрытия запущенного процесса, (ссылка на сообщение);"