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