[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;

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

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