[Setup]
AppName=MyApp
Appvername=MyApp
DefaultDirName={pf}\MyApp

[code]
procedure AddToPATH(s: String);
var b: string;
begin
if RegQueryStringValue(HKCU, 'Environment', 'Path', b) then begin
if Pos(Ansilowercase(S), AnsiLowercase(b))>0 then Exit;
if b[Length(b)]<>';' then b:=b+';';
b:=b+s;
RegWriteStringValue(HKCU, 'Environment', 'Path', b);
end;
end;

procedure RemoveFromPATH(s: String);
var b: string; k: Integer;
begin
if RegQueryStringValue(HKCU, 'Environment', 'Path', b) then begin
k:=Pos(Ansilowercase(S), AnsiLowercase(b));
if k=0 then Exit;
Delete(b, k, Length(s));
while Pos(';;', b)>0 do StringChange(b, ';;', ';');
RegWriteStringValue(HKCU, 'Environment', 'Path', b);
end;
end;

//Пример использования
procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep=ssPostInstall then AddtoPath(ExpandConstant('{app}'));
end;

procedure CurUninstallStepChanged(CurStep: TUninstallStep);
begin
if CurStep=usUninstall then RemoveFromPath(ExpandConstant('{app}'))
end;

[Setup]
AppName=My Program
AppVerName=My Program 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
ComponentsListTVStyle=true

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

[CustomMessages]
russian.ComponentsName1=Моя программа™
russian.ComponentsName2=Помощь
russian.ComponentsName2_1=Документация
russian.ComponentsName2_2=Руководство пользователя
russian.ComponentsInfoPanel1=Описание
russian.ComponentsInfoPanel2=Наведите курсор мыши на компонент, чтобы прочитать его описание.
russian.ComponentsDescription1=Устанавливается обязательно
russian.ComponentsDescription2=Помощь
russian.ComponentsDescription3=Прочитать документацию
russian.ComponentsDescription4=Прочитать руководство пользователя

[Components]
Name: readme; Description: Справка; Types: full custom;
Name: readme\en; Description: "Английская "; Types: full custom; Flags: fixed
Name: readme\ru; Description: Русская; Types: full

;*************************************************************************
Name: plugs; Description: Плагины; Types: full ; Flags: collapsed
Name: plugs\wlx; Description: Внутреннего просмотра; Types: full
Name: plugs\wcx; Description: Архиваторные; Types: full
Name: plugs\wfx; Description: Системные; Types: full
Name: plugs\wfx\CanonCam; Description: CanonCam; Types: full
Name: plugs\wfx\PluginManager; Description: PluginManager; Types: full
Name: plugs\wfx\Registry; Description: Registry; Types: full
Name: plugs\wfx\Services; Description: Services; Types: full
Name: plugs\wfx\StartupGuard; Description: StartupGuard; Types: full
Name: plugs\wdx; Description: Другие; Types: full

[Code]
type
TComponentDesc = record Description: String; Index: Integer; end;

var
Descs: array of TComponentDesc;
Info: TNewStaticText;
InfoCaption: TNewStaticText;
InfoPanel: TPanel;
Indx: Integer;

procedure ShowDescription(Sender: TObject; X, Y, Index: Integer; Area: TItemArea);
var i: Integer;
begin
Indx:=-1;
for i:= 0 to GetArrayLength(Descs)-1 do begin
if (Descs[i].Index=Index) then begin Indx:=i; Break end; end;
if (Indx >=0)and(Area=iaItem) then Info.Caption:= Descs[Indx].Description else Info.Caption:= ExpandConstant('{cm:ComponentsInfoPanel2}');
end;

procedure AddDescription(AIndex: Integer; ADescription: String);
var i, k: Integer;
begin
i:= GetArrayLength(Descs); SetArrayLength(Descs, i+1);
Descs[i].Description:= ADescription; Descs[i].Index:= AIndex-1
end;

procedure InitializeWizard();
begin
WizardForm.TypesCombo.Visible:=False;
WizardForm.ComponentsList.Height := ScaleY(181) - WizardForm.TypesCombo.Top;
WizardForm.ComponentsList.Top := WizardForm.TypesCombo.Top;
WizardForm.ComponentsList.Width := ScaleX(417);
WizardForm.ComponentsList.OnItemMouseMove:= @ShowDescription

InfoPanel := TPanel.Create(WizardForm);
InfoPanel.Parent := WizardForm.SelectComponentsPage;
InfoPanel.Caption := '';
InfoPanel.Top := ScaleY(190);
InfoPanel.Left := ScaleX(0);
InfoPanel.Width := ScaleX(417);
InfoPanel.Height := ScaleY(40);
InfoPanel.BevelInner := bvRaised;
InfoPanel.BevelOuter := bvLowered;
InfoCaption := TNewStaticText.Create(WizardForm);
InfoCaption.Parent := WizardForm.SelectComponentsPage;
InfoCaption.Caption := ExpandConstant('{cm:ComponentsInfoPanel1}');
InfoCaption.Left := ScaleX(7);
InfoCaption.Top := InfoPanel.Top - ScaleY(6);
InfoCaption.Font.Color := clActiveCaption;

Info := TNewStaticText.Create(WizardForm);
Info.Parent := InfoPanel;
Info.AutoSize := False;
Info.Left := ScaleX(6);
Info.Width := ScaleX(403);
Info.Top := ScaleY(12);
Info.Height := ScaleY(24);
Info.Caption := ExpandConstant('{cm:ComponentsInfoPanel2}');
Info.WordWrap := true;

AddDescription(1, 'Справка'); //первый параметр - это номер компонента, идет последовательно от начала записи компонентов
AddDescription(2, 'Английская справка'); //Второй параметр - это собственно описание компонента
AddDescription(3, 'Русская справка');
AddDescription(4, 'Плагины');
AddDescription(5, 'Внутреннего просмотра');
AddDescription(6, 'Архиваторные');
AddDescription(7, 'Системные');
AddDescription(8, 'CanonCam');
AddDescription(9, 'PluginManager');
AddDescription(10, 'Registry');
AddDescription(11, 'Services');
AddDescription(12, 'StartupGuard');
AddDescription(13, 'Другие');

end;

[Run]
Filename: msiexec.exe; Parameters: "-i ""{src}\Redist\PhysX.msi"" -qn"; WorkingDir: "{src}\Redist"; StatusMsg: {cm:PhysXInstall}; Check: InstallPhysX; Flags: runminimized waituntilterminated;

[code]
function InitializeSetup(): Boolean;
var ErrorCode : Integer;
begin
   ShellExec('', ExpandConstant('{src}\Redist\PhysX.msi'),'/qn', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode);
   Result:= True;
end;

[Code]
#ifdef UNICODE
  #define A "W"
#else
  #define A "A"
#endif
function GetFileVersionInfoSize(lptstrFilename: String; lpdwHandle: Integer): Integer;
external 'GetFileVersionInfoSize{#A}@version.dll stdcall delayload';

function GetFileVersionInfo(lptstrFilename: String; dwHandle, dwLen: Integer; var lpData: Byte): Boolean;
external 'GetFileVersionInfo{#A}@version.dll stdcall delayload';

function VerQueryValue(var pBlock: Byte; lpSubBlock: String; var lplpBuffer: DWord; var puLen: Integer): Boolean;
external 'VerQueryValue{#A}@version.dll stdcall delayload';

function GetFileVerInfo(FileName, VerName: String): String;
//VerName:
//Comments, LegalCopyright, CompanyName, FileDescription, FileVersion, ProductVersion,
//InternalName, LegalTrademarks, OriginalFilename, ProductName, PrivateBuild, SpecialBuild
var
dwLen, puLen, i: Integer;
lpFileVerInfo: array of Byte;
lplpBufferCP, lplpBufferVN: DWord;
LangCodepage: String;
begin
  Result := '';
  if FileExists(FileName) then begin
   dwLen := GetFileVersionInfoSize(FileName, 0);
   if dwLen > 0 then begin
    SetArrayLength(lpFileVerInfo, dwLen);
    if GetFileVersionInfo(FileName, 0, dwLen, lpFileVerInfo[0]) then begin
     if VerQueryValue(lpFileVerInfo[0], '\VarFileInfo\Translation', lplpBufferCP, puLen) then begin
      LangCodepage := Format('%.2x%.2x%.2x%.2x', [lpFileVerInfo[(dwLen div 2)-5], lpFileVerInfo[(dwLen div 2)-6], lpFileVerInfo[(dwLen div 2)-3], lpFileVerInfo[(dwLen div 2)-4]]);
      if VerQueryValue(lpFileVerInfo[0], Format('\%s\%s\%s', ['StringFileInfo', LangCodepage, VerName]), lplpBufferVN, puLen) then begin
       i := (dwLen div 2) + lplpBufferVN - lplpBufferCP - 6;
       repeat
       if lpFileVerInfo[i] <> 0 then begin
        SetLength(Result, Length(Result)+1);
        Result[Length(Result)] := Chr(lpFileVerInfo[i]);
       end;
       i := i + 1;
      #ifdef UNICODE
       until i > (dwLen div 2) + lplpBufferVN - lplpBufferCP - 8 + puLen;
      #else
       until lpFileVerInfo[i] = 0;
      #endif
      end;
     end;
    end;
   end;
  end;
end;

[Setup]
AppName=Avengerz
AppVerName=Avengerz
AppVersion=Avengerz
DefaultDirName={pf}\Avengerz
DefaultGroupName=Avengerz

[Files]
Source: {sys}\*.dll; DestDir: {app}; Flags: external deleteafterinstall

[code]
function GetSystemMetrics(nIndex:Integer):integer; external 'GetSystemMetrics@user32.dll stdcall delayload';

procedure InitializeWizard();
begin
WizardForm.CancelButton.BringToFront;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpInstalling then
begin
WizardForm.Bevel.Hide;
WizardForm.Bevel1.Hide;
WizardForm.BorderStyle:=bsDialog;
WizardForm.MainPanel.Visible:=False;
WizardForm.Width:=ScaleX(320);
WizardForm.Height:=ScaleY(127);
WizardForm.InnerNotebook.Left:=ScaleX(7);
WizardForm.InnerNotebook.Top:=ScaleY(7);
WizardForm.InnerNotebook.Width:=ScaleX(300);
WizardForm.StatusLabel.Left:=ScaleX(0);
WizardForm.StatusLabel.Top:=ScaleY(0);
WizardForm.StatusLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.FileNameLabel.Left:=ScaleX(0);
WizardForm.FileNameLabel.Top:=ScaleY(17);
WizardForm.FileNameLabel.Width:=WizardForm.InnerNotebook.Width;
WizardForm.ProgressGauge.Top:=ScaleY(37);
WizardForm.ProgressGauge.Left:=ScaleX(0);
WizardForm.ProgressGauge.Width:=WizardForm.InnerNotebook.Width;
WizardForm.CancelButton.Left:=ScaleX(122);
WizardForm.CancelButton.Top:=ScaleY(70);
WizardForm.Left:=GetSystemMetrics(16)-GetSystemMetrics(16)+ ScaleX(5);
WizardForm.Top:=GetSystemMetrics(17)-ScaleX(110);
end;
if CurPageID=wpFinished
then
begin
WizardForm.Width:=502;
WizardForm.Height:=392;
WizardForm.Position:=poScreenCenter;
end
end;

procedure InitializeUninstallProgressForm;   
begin   
UninstallProgressForm.AutoScroll := False;   
UninstallProgressForm.Bevel.Hide;   
UninstallProgressForm.Bevel1.Hide;   
UninstallProgressForm.BorderStyle:=bsDialog;   
UninstallProgressForm.MainPanel.Visible:=False;   
UninstallProgressForm.Width:=ScaleX(320);   
UninstallProgressForm.Height:=ScaleY(127);   
UninstallProgressForm.InnerNotebook.Left:=ScaleX(7);   
UninstallProgressForm.InnerNotebook.Top:=ScaleY(7);   
UninstallProgressForm.InnerNotebook.Width:=ScaleX(300);   
UninstallProgressForm.StatusLabel.Left:=ScaleX(0);   
UninstallProgressForm.StatusLabel.Top:=ScaleY(0);   
UninstallProgressForm.StatusLabel.Width:=UninstallProgressForm.InnerNotebook.Width;   
UninstallProgressForm.ProgressBar.Top:=ScaleY(37);   
UninstallProgressForm.ProgressBar.Left:=ScaleX(0);   
UninstallProgressForm.ProgressBar.Width:=UninstallProgressForm.InnerNotebook.Width;   
UninstallProgressForm.CancelButton.Hide;   
UninstallProgressForm.Left:=GetSystemMetrics(16)-GetSystemMetrics(16)+ ScaleX(5);   
UninstallProgressForm.Top:=GetSystemMetrics(17)-ScaleX(110);   
end;

#define Name "My Program"
#define exe "My Program.exe"

[Setup]
AppName={#Name}
AppVerName={#Name}
DefaultDirName={pf}\{#Name}

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

[Messages]
rus.SetupWindowTitle={#Name}

[Files]
Source: My Program.exe; DestDir: {app}; Flags: ignoreversion nocompression;

[Registry]
Root: HKLM; Subkey: "SOFTWARE\{#Name}"; Flags: uninsdeletekey
Root: HKLM; Subkey: "SOFTWARE\{#Name}"; ValueName: "Path"; ValueType: String; ValueData: "{app}\"; Flags: uninsdeletekey

[UninstallDelete]
Type: filesandordirs; Name: {app};

[_Code]
var
       AppDir, unins, run: string;
       ResultCode: Integer;
       UninsButton, RunButton: TButton;
       MyLabel: TLabel;

procedure ReadEntries;
begin
      RegQueryStringValue(HKLM, 'SOFTWARE\{#Name}', 'Path', AppDir);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
       Confirm:= False;
end;

procedure Uninstall(Sender: TObject);
begin
       unins:='unins000.exe';
       ReadEntries;
       if not (FileExists(AddBackslash(AppDir) + unins)) then
         MsgBox('Невозможно запустить деинсталляцию программы ' + ExpandConstant('{#Name}') + ', т.к. исполняемый файл деинсталляции unins000.exe не найден.', mbCriticalError, MB_OK or MB_DEFBUTTON1)
       else
         Exec(AddBackslash(AppDir) + unins, '', ExtractFilePath(AddBackslash(AppDir) + unins), SW_SHOW, ewNoWait, ResultCode);
       WizardForm.Close;
end;

procedure RunProgramm(Sender: TObject);
begin
       run:='{#exe}';
       ReadEntries;
       if (FileExists(AddBackslash(AppDir) + run)) then
         Exec(AddBackslash(AppDir) + run, '', ExtractFilePath(AddBackslash(AppDir) + run), SW_SHOW, ewNoWait, ResultCode);
       WizardForm.Close;
end;

procedure NewForm;
begin
       ReadEntries;
       if (RegValueExists(HKLM, 'SOFTWARE\{#Name}', 'Path')) and (FileExists(ExpandConstant(AppDir)+'\{#exe}')) then begin
       with WizardForm do
       begin
         ClientWidth := ScaleX(395);
         ClientHeight := ScaleY(120);
         Bevel.Hide;
         InnerNotebook.Hide;
         OuterNotebook.Hide;
         BorderStyle:= bsDialog;
         Center;
         with CancelButton do
         begin
           Left := WizardForm.CancelButton.Left -100;
           Top := WizardForm.ClientHeight - CancelButton.Height - ScaleY(10);
           BringToFront;
         end;
         UninsButton:= TButton.Create(WizardForm);
         with UninsButton do
         begin
           Left := WizardForm.NextButton.Left -100;
           Top := WizardForm.ClientHeight - NextButton.Height - ScaleY(10);
           Width:= WizardForm.NextButton.Width;
           Parent:= WizardForm;
           Caption:= 'Удалить';
           OnClick := @Uninstall;
           BringToFront;
         end;
         RunButton:= TButton.Create(WizardForm);
         with RunButton do
         begin
           Left := WizardForm.BackButton.Left -110;
           Top := WizardForm.ClientHeight - BackButton.Height - ScaleY(10);
           Width:= WizardForm.BackButton.Width;
           Parent:= WizardForm;
           Caption:= 'Запустить';
           OnClick := @RunProgramm;
           BringToFront;
         end;
         MyLabel:= TLabel.Create(WizardForm);
         with MyLabel do
         begin
           SetBounds(10,10,380,80);
           AutoSize:=False;
           WordWrap:=True;
           Font.Color:=$000000;
           Font.Style:=[fsBold];
           Font.Size:=10;
           Parent:=WizardForm;
           Transparent:=True;
           Caption:= 'Программа ' + ExpandConstant('{#Name}') + ' уже установлена на Ваш компьютер.' +#13#13+ 'Выберите нужное действие.';
           end;
         end;
       end;
end;

procedure InitializeWizard;
begin
       NewForm;
end;

[Languages]
Name: english; MessagesFile: compiler:Default.isl;
Name: russian; MessagesFile: compiler:Languages\Russian.isl;
       
[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=userdocs:InnoSetupTest.
       
[Files]
Source: compiler:WizModernImage-IS.bmp; Flags: dontcopy;
       
[Code_]
procedure InitializeWizard();
begin
     if ActiveLanguage = 'russian' then
     begin
      if not FileExists(ExpandConstant('{tmp}\WizModernImage-IS.bmp')) then
         ExtractTemporaryFile('WizModernImage-IS.bmp');
      WizardForm.WizardBitmapImage.Bitmap.LoadFromFile(ExpandConstant('{tmp}\WizModernImage-IS.bmp'));
     end;
end;

function ShouldSkipPage(PageID: Integer): Boolean;          
begin     
      if (PageID = wpWelcome)or(PageID =wpReady) then Result:= True;          
end;

function ShouldSkipPage(PageID: Integer): Boolean;
begin    
     if (PageID = wpSelectTasks) then Result:= True;
end;

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Files]
Source: compiler:innocallback.dll; DestDir: {tmp}; Flags: dontcopy

[code]
const
   WM_MOVE = $3;

   GWL_WNDPROC = -4;
    
type
   TCallbackProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;
    
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function WndProcCallBack(P:TCallbackProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X, Y, cx, cy: Integer; uFlags: UINT): BOOL; external 'SetWindowPos@user32.dll stdcall';

var
Form1: TForm;
OldProc: Longint;

function MyProc(h: HWND; Msg, wParam, lParam: longint): Longint;
begin
   if Msg=WM_MOVE then SetWindowPos(Form1.Handle, 0, WizardForm.Left+WizardForm.Width+5, WizardForm.Top, 0, 0, $415);
   Result:= CallWindowProc(OldProc, h, Msg, wParam, lParam);
end;

procedure InitializeWizard();
begin
   Form1:= TForm.Create(MainForm);
   Form1.SetBounds(WizardForm.Left+WizardForm.Width+5, WizardForm.Top, 100, 358);
   Form1.BorderStyle:= bsSingle;
   Form1.Show;
    
   OldProc:= SetWindowLong(WizardForm.Handle, GWL_WNDPROC, WndProcCallBack(@MyProc, 4));
end;

procedure DeinitializeSetup();
begin
   SetWindowlong(WizardForm.Handle, GWL_WNDPROC, OldProc);
end;

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[Files]
Source: compiler:innocallback.dll; DestDir: {tmp}; Flags: dontcopy

[code]
type
   TCallbackProc = function(h:hWnd;Msg,wParam,lParam:Longint):Longint;

const
   WM_MOVE = $3;
   WM_ACTIVATE = $6;
   WM_CLOSE = $10;
   WM_NCACTIVATE = $86;
    
   GWL_WNDPROC = -4;
    
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function WndProcCallBack(P:TCallbackProc;ParamCount:integer):LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X, Y, cx, cy: Integer; uFlags: UINT): BOOL; external 'SetWindowPos@user32.dll stdcall';

var
Form1: TForm;
OldProc, OldProc1: Longint;

function MyProc(h: HWND; Msg, wParam, lParam: longint): Longint;
begin
   if Msg=WM_MOVE then SetWindowPos(Form1.Handle, 0, WizardForm.Left+WizardForm.Width+5, WizardForm.Top, 0, 0, $415);
   Result:= CallWindowProc(OldProc, h, Msg, wParam, lParam);
   if Msg=WM_ACTIVATE then SendMessage(Form1.Handle, WM_NCACTIVATE, 1, 0);
end;

function MyProc1(h: HWND; Msg, wParam, lParam: longint): Longint;
begin
   if Msg=WM_MOVE then begin
     SetWindowPos(WizardForm.Handle, 0, Form1.Left-(WizardForm.Width+5), Form1.Top, 0, 0, $415);
   end;
   if Msg=WM_CLOSE then begin
     SendMessage(WizardForm.handle, WM_CLOSE, 0, 0);
     Exit;
   end;
   Result:= CallWindowProc(OldProc1, h, Msg, wParam, lParam);
   if Msg=WM_ACTIVATE then SendMessage(WizardForm.Handle, WM_NCACTIVATE, 1, 0);
end;

procedure InitializeWizard();
begin
   Form1:= TForm.Create(MainForm);
   Form1.SetBounds(WizardForm.Left+WizardForm.Width+5, WizardForm.Top, 160, WizardForm.Height);
   Form1.BorderStyle:= bsSingle;
   Form1.Show;

   OldProc:= SetWindowLong(WizardForm.Handle, GWL_WNDPROC, WndProcCallBack(@MyProc, 4));
   OldProc1:= SetWindowLong(Form1.Handle, GWL_WNDPROC, WndProcCallBack(@MyProc1, 4))
end;

procedure DeinitializeSetup();
begin
   SetWindowlong(WizardForm.Handle, GWL_WNDPROC, OldProc);
   SetWindowlong(Form1.Handle, GWL_WNDPROC, OldProc1);
end;

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[code]
const
   GWL_STYLE = -16;

   WS_MINIMIZEBOX = $20000;
   WS_MAXIMIZEBOX = $10000;
    
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(hWnd: HWND; nIndex: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';

procedure initializeWizard();
begin
   SetWindowLong(WizardForm.handle, GWL_STYLE, GetWindowLong(WizardForm.handle, GWL_STYLE)and(not WS_MINIMIZEBOX)and(not WS_MAXIMIZEBOX));
end;

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
WizardSmallImageFile=E:\Logo.bmp

[code]
var
PageNameLabel, PageDescriptionLabel: TLabel;

procedure InitializeWizard();
begin
WizardForm.WizardSmallBitmapImage.SetBounds(ScaleX(0), ScaleY(0), WizardForm.MainPanel.Width, WizardForm.MainPanel.Height);

PageNameLabel:= TLabel.Create(WizardForm)
with WizardForm.PageNameLabel do
PageNameLabel.SetBounds(Left, Top, Width, Height);
PageNameLabel.Transparent:= True;
PageNameLabel.Font:= WizardForm.PageNameLabel.Font;
PageNameLabel.Font.Color:= clWhite;  //цвет надписи
PageNameLabel.Parent:= WizardForm.MainPanel;

PageDescriptionLabel:= TLabel.Create(WizardForm)
with WizardForm.PageDescriptionLabel do
PageDescriptionLabel.SetBounds(Left, Top, Width, Height);
PageDescriptionLabel.Transparent:= True;
PageDescriptionLabel.Font:= WizardForm.PageDescriptionLabel.Font;
PageDescriptionLabel.Font.Color:= clWhite;  //цвет надписи
PageDescriptionLabel.Parent:= WizardForm.MainPanel;

WizardForm.PageNameLabel.Hide;
WizardForm.PageDescriptionLabel.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
PageNameLabel.Caption:= WizardForm.PageNameLabel.Caption;
PageDescriptionLabel.Caption:= WizardForm.PageDescriptionLabel.Caption;
end;

[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp

[code]
var
WelcomeLabel1, WelcomeLabel2, FinishedLabel, FinishedHeadingLabel: TLabel;

procedure InitializeWizard();
begin
WizardForm.WizardBitmapImage.Width:= ScaleX(497);
WizardForm.WizardBitmapImage2.Width:= ScaleX(497);

WelcomeLabel1:= TLabel.Create(WizardForm);
WelcomeLabel1.AutoSize:= False;
with WizardForm.WelcomeLabel1 do
WelcomeLabel1.SetBounds(Left, Top, Width, Height);
WelcomeLabel1.Font:= WizardForm.WelcomeLabel1.Font
WelcomeLabel1.Font.Color:= clWhite;
WelcomeLabel1.Transparent:= True;
WelcomeLabel1.WordWrap:= true;
WelcomeLabel1.Caption:= WizardForm.WelcomeLabel1.Caption;
WelcomeLabel1.Parent:= WizardForm.WelcomePage

WelcomeLabel2:= TLabel.Create(WizardForm);
WelcomeLabel2.AutoSize:= False;
with WizardForm.WelcomeLabel2 do
WelcomeLabel2.SetBounds(Left, Top, Width, Height);
WelcomeLabel2.Font:= WizardForm.WelcomeLabel2.Font
WelcomeLabel2.Font.Color:= clWhite;
WelcomeLabel2.Transparent:= True;
WelcomeLabel2.WordWrap:= true;
WelcomeLabel2.Caption:= WizardForm.WelcomeLabel2.Caption;
WelcomeLabel2.Parent:= WizardForm.WelcomePage

FinishedHeadingLabel:= TLabel.Create(WizardForm);
FinishedHeadingLabel.AutoSize:= False;
with WizardForm.FinishedHeadingLabel do
FinishedHeadingLabel.SetBounds(Left, Top, Width, Height);
FinishedHeadingLabel.Font:= WizardForm.FinishedHeadingLabel.Font
FinishedHeadingLabel.Font.Color:= clWhite;
FinishedHeadingLabel.Transparent:= True;
FinishedHeadingLabel.WordWrap:= true;
FinishedHeadingLabel.Caption:= WizardForm.FinishedHeadingLabel.Caption;
FinishedHeadingLabel.Parent:= WizardForm.FinishedPage

FinishedLabel:= TLabel.Create(WizardForm);
FinishedLabel.AutoSize:= False;
with WizardForm.FinishedLabel do
FinishedLabel.SetBounds(Left, Top, Width, Height);
FinishedLabel.Font:= WizardForm.FinishedLabel.Font
FinishedLabel.Font.Color:= clWhite;
FinishedLabel.Transparent:= True;
FinishedLabel.WordWrap:= true;
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
FinishedLabel.Parent:= WizardForm.FinishedPage

WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.FinishedHeadingLabel.Hide;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
FinishedLabel.Caption:= WizardForm.FinishedLabel.Caption;
end;