Вопрос Fire Wall Дейнсталяция

[DEAD KING]

Как сделать чтоб при деинсталяций, удалялась внесённая программа, в файр воле, к которой заблокан доступ в интернет ?

 

[JEKE24]

cmd /C netsh advfirewall firewall delete rule name="Rule name"

 

[DEAD KING]

cmd /C netsh advfirewall firewall delete rule name="Rule name"

И куда это вписывать, удаляет ли оно входящие\исходящие блокировки ?

 

[HandyMan]

Спойлер: Example

[code]
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
  ResultCode: Integer;
begin
  if CurUninstallStep = usPostUninstall then begin
     Exec(ExpandConstant('cmd.exe'), '/C netsh advfirewall firewall delete rule name="Rule name"', '', SW_SHOW,
     ewWaitUntilTerminated, ResultCode);
  end;
end;

 

[Andreo Fadio]

Exec(ExpandConstant('cmd.exe'), '/C netsh advfirewall firewall delete rule name="Rule name"', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);

Exec('netsh', ' advfirewall firewall delete rule name="Здесь нужно указать название созданного правила, а не просто Rule name"', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);

 

[DEAD KING]

Exec('netsh', ' advfirewall firewall delete rule name="Здесь нужно указать название созданного правила, а не просто Rule name"', '', SW_SHOW, ewWaitUntilTerminated, ResultCode);

Как внедрить это в код, желательно с переменными ?


Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);

begin
Case CurUninstallStep of
usUninstall: begin
#ifdef DeleteSaved
DeleteSaveGames();
#endif
DelTree(ExpandConstant('{commonprograms}\TimickRePack\{#GameNameFolder}'), True, True, True);
end;
usPostUninstall: begin
if DirExists(ExpandConstant('{app}')) then DelDir(ExpandConstant('{app}'));
end;
end;
end;

 

[HandyMan]

Спойлер: Example

#define GameName "MyGame"
#define FireWallRuleName "MyRuleName"

[Setup]
AppName=MyGame

[_Code]
Procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
var
ResultCode: Integer;
begin
Case CurUninstallStep of
usUninstall: begin
#ifdef DeleteSaved
DeleteSaveGames();
#endif
DelTree(ExpandConstant('{commonprograms}\TimickRePack\{#GameNameFolder}'), True, True, True);
end;
usPostUninstall: begin
if DirExists(ExpandConstant('{app}')) then DelDir(ExpandConstant('{app}'));

Exec('netsh', ' advfirewall firewall delete rule name=' + AddQuotes(ExpandConstant('{#MyRuleName}')), '', SW_SHOW, ewWaitUntilTerminated, ResultCode);

end;
end;
end;

 

[Andreo Fadio]

rule name=' + AddQuotes(

там скобки лучше оставить на постоянной основе