WizardForm.DirEdit.Text не обновляется должным образом. Inno setup

Question

Я пытаюсь установить путь в форме «выбрать установочный каталог», используя установку 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».

Просьба сообщить.

Спасибо

Answer 1

Ваш код работает отлично для меня, но, я могу предложить вам использовать

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


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

Делая это «GetIISInstallPath + \ MyFolder» будет ваш каталог по умолчанию