我正在尝试在“选择安装目录”中设置路径'使用INNO设置表格。这是我的代码
procedure CurPageChanged(pageID: Integer);
var
sInstallDir: String;
begin
// Default install dir is the IIS install path
if (pageID = wpSelectDir) then begin
sInstallDir := GetIISInstallPath + '\MyFolder';
Log('GetIISInstallPath: '+ GetIISInstallPath);
Log('sInstallDir: ' + sInstallDir);
WizardForm.DirEdit.Text := sInstallDir;
end;
end;
我遇到的问题是' GetIISInstallPath'返回我&#c; \ inetpub \ wwwroot,这就是我在WizardForm中看到的。似乎没有添加MyFolder位。 我打印出所涉及的变量,它们都具有正确的值。
sInstallDir显示为' C:\ inetpub \ wwwroot \ MyFolder'但它没有显示在文本字段中。它只显示(如上所述)' C:\ inetpub \ wwwroot'。
请告知。
谢谢
答案 0 :(得分:1)
您的代码对我来说很好,但我可以建议您使用
[Setup]
...
DefaultDirName={code:GetDefaultDirName}
[code]
...
function GetDefaultDirName(): String;
begin
Result := GetIISInstallPath + '\MyFolder';
end;
执行此操作“GetIISInstallPath + \ MyFolder”将成为您的默认目录