Цитата Rhianarkipom:
Как создать Label в окне выбора папки, и сменить заголовок окна "Обзор папок" ? »
|
Не понятно. Вам на странице
SelectDirPage под
DirEdit нужно окно для выбора месторасположения установки?
Пример:
Код:

#define AppName "My Program"
[Setup]
AppName={#AppName}
AppVersion=1.5
DefaultDirName={pf}\{#AppName}
DefaultGroupName={#AppName}
[Files]
Source: C:\Program Files\Inno Setup 5\Examples\MyProg.exe; DestDir: {app}; Flags: ignoreversion
[Code]
var
WTV_Window: TFolderTreeView;
procedure WTV_WindowChange(Sender: TObject);
begin
WizardForm.DirEdit.Text:=AddBackslash(WTV_Window.Directory) + '{#AppName}'
end;
procedure InitializeWizard();
begin
WTV_Window := TFolderTreeView.Create(WizardForm);
with WTV_Window do
begin
Parent := WizardForm.SelectDirPage;
SetBounds(ScaleX(0), ScaleY(96), ScaleX(417), ScaleY(113));
OnChange := @WTV_WindowChange;
end;
end;