WizardForm.DirEdit.Text未正确更新。 Inno设置

时间:2015-10-09 03:46:57

标签: inno-setup pascalscript

我正在尝试在“选择安装目录”中设置路径'使用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'。

请告知。

谢谢

1 个答案:

答案 0 :(得分:1)

您的代码对我来说很好,但我可以建议您使用

[Setup]
...
DefaultDirName={code:GetDefaultDirName}


[code]
...
function GetDefaultDirName(): String;
begin
Result := GetIISInstallPath + '\MyFolder';
end;

执行此操作“GetIISInstallPath + \ MyFolder”将成为您的默认目录