Inno Setup的BrowseForFolder对话框，地址栏

Question

当我使用的Inno Setup中BrowseForFolder功能我得到这样

一个对话框，是否有可能得到一个地址栏对话框，如这一个？

Answer 1

使用TInputDirWizardPage（CreateInputDirPage），而不是使用BrowseForFolder功能。

该页面有你想要的浏览对话框（实际上我假设你的第二个屏幕截图显示了这个对话框）。

---

如果您不想添加新页面，只需创建一个假的并滥用它即可。

var 
    FakePage: TInputDirWizardPage; 

procedure BrowseForFolderEx(var Directory: String); 
begin 
    FakePage.Values[0] := Directory; 
    FakePage.Buttons[0].OnClick(FakePage.Buttons[0]); 
    Directory := FakePage.Values[0]; 
end; 

procedure InitializeWizard(); 
begin 
    FakePage := 
    CreateInputDirPage(wpWelcome, '', '', '', False, SetupMessage(msgButtonNewFolder)); 
    FakePage.Add(''); 
end; 

function ShouldSkipPage(PageID: Integer): Boolean; 
begin 
    Result := (PageID = FakePage.ID); 
end;