installation - Innosetup - 在安装开始之前引用[Code]中的文件

Question

这有点像 this question 的延续。我想将一个文件包含在我的安装包中(.CHM 帮助文件)，我需要在安装过程中通过代码访问该文件。它不需要安装到用户的计算机上。所以我想
- 将文件包含在安装包中，可能是未压缩的(所以我想我将使用 [Files] ... external 标志来做到这一点)。
- 在安装过程中使用如下代码引用文件:

procedure HelpButtonOnClick (Sender: TObject) ;   
var
    ErrorCode : Integer ;

begin
ShellExecAsOriginalUser ('open', ExpandConstant ('{???}') +  '\MyHelp.chm', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end ;

那么我可以在安装开始之前引用该文件吗 - 即在将任何文件复制到用户计算机之前？如何指定文件的路径 ExpandConstant ('{???}')？我在向导表单上有一个帮助按钮，可以调用上述处理程序。

Answer 1

这很容易。就这么做

[Files]
Source: "MyHelp.chm"; Flags: dontcopy

[Code]

procedure HelpButtonOnClick(Sender: TObject);
var
  ErrorCode: integer;
begin
  ExtractTemporaryFile('MyHelp.chm');
  ShellExecAsOriginalUser('', ExpandConstant('{tmp}\MyHelp.chm'), '', '',
    SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;