Question

我正在使用Inno Setup脚本在64位安装中安装我的32位和64位DLL。我可以从注册表设置获取64位路径，但缺少32位路径不存在。但是，我知道路径的'尾'是不变的，只需要修改头部。即，

64-bit (from registry) = c:\Program Files\My Application\Bin
32-bit (derived)       = c:\Program Files (x86)\My Application\Bin

所以我所做的是用32位程序替换64位程序文件路径。我使用StringChangeEx轻松完成这个：

RegQueryStringValue(HKLM, 'SOFTWARE\My Application', 'RootDir', sPath)
if IsWin64() then
  StringChangeEx(sPath, ExpandConstant('{pf}'), ExpandConstant('{pf32}'), False);

使用我的32位路径返回sPath。这在大多数系统上运行良好，但似乎有时StringChangeEx不会为'C：\ Program Files（x86）'换出'C：\ Program Files'。我已经验证（使用MsgBox），{pf}和{pf32}常量是我认为的。套管是相同的，没有前导/尾随空格。似乎在某些系统上，该功能不起作用。

我正在使用最新版本的InnoSetup（10/2010）。该网站未提及此功能的任何问题。有没有其他人看过这个和/或对它有什么想法？

Answer 1

我将这个小脚本汇总并使用5.4.0（10/2010发布），它起作用了：

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the same AppId value in installers for other applications.
; (To generate a new GUID, click Tools | Generate GUID inside the IDE.)
AppId={{AE1A6BBB-7582-43AA-85F5-C7F984D1A68B}
AppName=My Program
AppVersion=1.5
;AppVerName=My Program 1.5
AppPublisher=My Company, Inc.
AppPublisherURL=http://www.example.com/
AppSupportURL=http://www.example.com/
AppUpdatesURL=http://www.example.com/
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Code]
function InitializeSetup(): Boolean;

var
sPath : string;

begin
sPath := ExpandConstant('{pf}') + '\mypath';
if IsWin64() then
  StringChangeEx(sPath, ExpandConstant('{pf}'), ExpandConstant('{pf32}'), False);
 MsgBox(sPath, mbInformation, MB_OK);
result := true;

end;

我的脚本是否有效？在调用StringChangeEx之前sPath是否正确？

我建议使用/ LOG选项，但不会自动记录代码。您需要添加Log（const S：String）调用。

Answer 2

原来，注册表项有时会有一个小写的驱动器号。我将代码更改为：

RegQueryStringValue(HKLM, 'SOFTWARE\My Application', 'RootDir', sPath)
sPath := Lowercase(sPath);
if IsWin64() then
  StringChangeEx(sPath, Lowercase(ExpandConstant('{pf}')), Lowercase(ExpandConstant('{pf32}')), False)

我认为注册表项不是问题，但并非如此。

Inno Setup StringChangeEx失败

2 个答案: