[Johny777]

t16bz,
можно поинтересоваться зачем оно тебе?

появляется форма с TFolderTreeView, эдитом и двумя кнопками
в дизайнере это окно не редактируется

не хочу сморозить чушь, но вроде оно вообще не редактируется (разве что в исходном коде самой инно), но его можно воссоздать двумя способами
1. - самый простой - использовать встроенную функцию
function BrowseForFolder(const Prompt: String; var Directory: String; const NewFolderButton: Boolean): Boolean;
наглядный пример

читать дальше »

Код:

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DirExistsWarning=no


[  Code]
procedure DirBrowseButtonOnClick(Sender: TObject);
var
  Dir: String;
begin
  if BrowseForFolder(SetupMessage(msgBrowseDialogLabel), Dir, False) then
    WizardForm.DirEdit.Text:=Dir + '\My Program'
end;

procedure InitializeWizard();
begin
  WizardForm.DirBrowseButton.OnClick:=@DirBrowseButtonOnClick
end;

жирным False отвечает за появление кнопки "создать папку" (False - нет кнопки, True - есть)

2. - рисовать свою форму и всё, что нужно на ней