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

DEAD KING

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

HandyMan

Новичок
Код:
[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

Новичок
#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;
 
Последнее редактирование:
Сверху