[pollipen]

Парни добавление Брандмауэр
А, если надо добавить 2 программы то как сделать?
[code][Setup]
#define AppName "My Program"
#define AppExeName "MyProg.exe"

Код:

 
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;