inno-setup - 安装所有文件后运行的代码

Question

我得到了以下小函数，在复制完 [Files] 部分的所有文件后我需要调用它

procedure DllAfterInstall(platform: Integer);
begin
    if not installDriver(platform) then
                MsgBox(ExpandConstant('{cm:installDriverFail}'), mbError, MB_OK);
end;

其中 installDriver(platform) 是我的一个 dll 的外部函数。

一旦我尝试调用 [Run] 部分中的 DllAfterInstall 函数，如

Filename: "{code:DllAfterInstall}"; Parameters: 0; Check: not IsWin64

我得到了错误

Invalid prototype for 'DllAfterInstall'

所以谁能告诉我我做错了什么？或者在复制所有文件后，是否有另一种调用 *.dll 的方法？ *.dll 函数只应调用一次，因此 AfterInstall 不可取。

Answer 1

从 CurStepChanged event function 调用您的代码当 CurStep 为 ssPostInstall 时:

procedure CurStepChanged(CurStep: TSetupStep);
begin
  if CurStep = ssPostInstall then
  begin
    Log('Post install');
    DllAfterInstall(platform);
  end;
end;

您还需要为函数的 platform 参数提供实际值。