卸载后执行命令

Question

我需要卸载才能在删除已安装的文件之后运行命令。 [UninstallRun] 没有用，据我所知，它在文件被删除之前运行。 我有点需要一个“卸载后”标志。

关于我如何实现上述目标有什么建议吗？

Answer 1

请参阅文档中的“卸载事件函数”。您可以使用例如 CurUninstallStepChanged 当“CurUninstallStep”为“usPostUninstall”时。

Answer 2

同样，还有一个 [Run] 部分，Inno 允许您定义一个 [UninstallRun] 部分指定卸载时应执行安装程序包的哪些文件。

例如：

[UninstallRun]
Filename: {app}\Scripts\DeleteWindowsService.bat; Flags: runhidden;

或者，@Sertac Akyuz 提出的解决方案利用事件函数，可用于调整更多的卸载操作。以下是 CurUninstallStepChanged 函数以及其他相关函数的使用示例。

https://github.com/HeliumProject/InnoSetup/blob/master/Examples /UninstallCodeExample1.iss

; -- UninstallCodeExample1.iss --
;
; This script shows various things you can achieve using a [Code] section for Uninstall

[Setup]
AppName=My Program
AppVersion=1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
UninstallDisplayIcon={app}\MyProg.exe
OutputDir=userdocs:Inno Setup Examples Output

[Files]
Source: "MyProg.exe"; DestDir: "{app}"
Source: "MyProg.chm"; DestDir: "{app}"
Source: "Readme.txt"; DestDir: "{app}"; Flags: isreadme

[Code]
function InitializeUninstall(): Boolean;
begin
  Result := MsgBox('InitializeUninstall:' #13#13 'Uninstall is initializing. Do you really want to start Uninstall?', mbConfirmation, MB_YESNO) = idYes;
  if Result = False then
    MsgBox('InitializeUninstall:' #13#13 'Ok, bye bye.', mbInformation, MB_OK);
end;

procedure DeinitializeUninstall();
begin
  MsgBox('DeinitializeUninstall:' #13#13 'Bye bye!', mbInformation, MB_OK);
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
  case CurUninstallStep of
    usUninstall:
      begin
        MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall is about to start.', mbInformation, MB_OK)
        // ...insert code to perform pre-uninstall tasks here...
      end;
    usPostUninstall:
      begin
        MsgBox('CurUninstallStepChanged:' #13#13 'Uninstall just finished.', mbInformation, MB_OK);
        // ...insert code to perform post-uninstall tasks here...
      end;
  end;
end;