[L1nk3R]

если кому надо то вот пример на папку установки

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

Код:

#define MyAppName "МояПрограмма"
#define MyAppVersion "1.5"
#define MyAppExeName "MyProg.exe"

[Setup]
AppName={#MyAppName}
AppVersion={#MyAppVersion}
;AppVerName={#MyAppName} {#MyAppVersion}
DefaultDirName={pf}\{#MyAppName}
DefaultGroupName={#MyAppName}
AllowNoIcons=yes
OutputBaseFilename=setup
Compression=lzma
SolidCompression=yes

[Languages]
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl"


[Icons]
Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"

[ Code]

var
 TDV: TFolderTreeView;  


procedure TDVOnChange(Sender: TObject);
 begin
 WizardForm.DirEdit.Text:= AddBackslash(TDV.Directory)+'{#MyAppName}';
 end;


procedure InitializeWizard;

begin
 TDV:= TFolderTreeView.Create(WizardForm);
 TDV.Top:= WizardForm.DirEdit.Top+28;
 TDV.Width:= 417;
 TDV.Height:= 100;
 TDV.OnChange:= @TDVOnChange;
 TDV.Parent:= WizardForm.SelectDirPage;
end;