在Inno Setup uninstall中调用exe

Question

我有一个关于Inno安装卸载程序的问题。我有一个我想要执行的exe文件，用于跟踪安装和卸载。exe非常简单，它向服务器发送一条消息。

[Files]
Source: "Tracker\LocalSandboxInstallTracker.exe"; DestDir: "{app}/Tracker";
Source: "Tracker\LocalSandboxInstallTracker.exe.config"; DestDir: "{app}/Tracker";
Source: "Tracker\Tracker.Client.dll"; DestDir: "{app}/Tracker";

[Run]
Filename: "{app}\Tracker\LocalSandboxInstallTracker.exe"; Parameters: " {#MyAppVersion} install"; Flags: runhidden; StatusMsg: "Sending tracking data..."

[Code]
procedure InitializeUninstallProgressForm();
var
  ResultCode: Integer;
begin
  Exec ('{app}\Tracker\LocalSandboxInstallTracker.exe',' {#MyAppVersion} uninstall','',SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;

安装时的调用效果很好，但卸载时就不行了。我在我的Exec命令中放置了一个断点，它确实通过了那里，但是exe似乎没有被调用。

Answer 1

在将{app}常量传递给Exec脚本函数之前，必须展开该常量。无论何时需要获取常量的值，都可以使用ExpandConstant。这样修改你的脚本：

Exec(ExpandConstant('{app}\Tracker\LocalSandboxInstallTracker.exe'), 
  '{#MyAppVersion} uninstall', '', SW_SHOW, 
  ewWaitUntilTerminated, ResultCode);

此外，还应该检查函数结果和输出结果代码，以便在Exec函数失败时做出反应。您将在ResultCode中获得的错误代码可以对照System Error Codes引用进行检查，也可以使用SysErrorMessage(ResultCode)从脚本中获取错误描述。

Answer 2

如果要在执行调用中使用像{app}这样的常量，则必须调用ExpandConstant函数：

[Code]
procedure InitializeUninstallProgressForm();
var
  ResultCode: Integer;
begin
  Exec (ExpandConstant('{app}\Tracker\LocalSandboxInstallTracker.exe')
    ,' {#MyAppVersion} uninstall','',SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;

否则，你就找不到exe了。