这是一种延续这个问题 https://stackoverflow.com/questions/5658488/adding-a-help-button-to-an-innosetup-wizard-page。我想将一个文件包含在我的安装包中(.CHM 帮助文件),我需要在安装过程中通过代码访问该文件。它不需要安装到用户的计算机上。所以我想
- 将该文件包含在安装包中,可能未压缩(所以我想我会用[Files] ... external
flag).
- 在安装过程中引用该文件,代码如下:
procedure HelpButtonOnClick (Sender: TObject) ;
var
ErrorCode : Integer ;
begin
ShellExecAsOriginalUser ('open', ExpandConstant ('{???}') + '\MyHelp.chm', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
end ;
那么我可以在安装开始之前(即在将任何文件复制到用户计算机之前)引用该文件吗?如何指定路径ExpandConstant ('{???}')
到文件?我在向导表单上有一个帮助按钮,可以调用上述处理程序。
这很容易。做就是了
[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;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)