#include AddBackSlash(SourcePath) + "botva2.iss"

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=.\InnoSetupTest

[Files]
Source: compiler:WizModernSmallImage.bmp; Flags: dontcopy;
Source: support\botva2.dll; Flags: dontcopy;
Source: support\CallbackCtrl.dll; Flags: dontcopy;
Source: support\button2.png; Flags: dontcopy;

[Code]
var
    MyExit: TSetupForm;   
    YesBtn, NoBtn: HWND;

function InitializeSetup:boolean;
begin
    if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then   
      ExtractTemporaryFile('botva2.dll');
    if not FileExists(ExpandConstant('{tmp}\innocallback.dll')) then
      ExtractTemporaryFile('CallbackCtrl.dll');
    Result := True;
end;

procedure DeinitializeSetup();
begin
    gdipShutdown;
end;

procedure ButtonOnClick(hBtn:HWND);
begin
    case hBtn of
      YesBtn: begin MyExit.ModalResult:= mrYes; end;
      NoBtn: begin MyExit.ModalResult:= mrNo; end;
    end;
end;

procedure MyExitMessage();   
var   
    MyIcon: String;   
    Font: TFont;
begin   
    MyExit := CreateCustomForm();   
    with MyExit do   
    begin   
      Position := poScreenCenter;   
      ClientWidth := WizardForm.Width;   
      ClientHeight := WizardForm.Height div 2;   
      Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));   
      Color := clBlack;

      MyIcon := ExpandConstant(AddBackSlash('{tmp}') + 'WizModernSmallImage.bmp');   
      if not FileExists(MyIcon) then   
        ExtractTemporaryFile(ExtractFileName(MyIcon));   
     
      with TBitmapImage.Create(MyExit) do   
      begin   
        Stretch := True;
        Left := ScaleX(10);   
        Top := ScaleY(20);   
        Width := 55;   
        Height := 55;   
        Bitmap.LoadFromFile(MyIcon);
        Parent := MyExit;   
      end;   
     
      with TNewStaticText.Create(MyExit) do   
      begin   
        Left := ScaleX(110);   
        Top := ScaleY(20);   
        Width := MyExit.Width - ScaleX(115);   
        Height := MyExit.Height div 2;   
        AutoSize := False;   
        WordWrap := True;   
        Caption := ExpandConstant(SetupMessage(msgExitSetupMessage));   
        Parent := MyExit;   
        Font.Color := clWhite;   
      end;   
    end;

    Font := TFont.Create;
    Font.Size := WizardForm.CancelButton.Font.Size;

    ExtractTemporaryFile('button2.png');

    NoBtn := BtnCreate(MyExit.Handle, MyExit.Width - 165,
             MyExit.Height - 50 - ScaleY(25), 160, 50,
                  ExpandConstant('{tmp}\button2.png'), 18, True);
    BtnSetEvent(NoBtn, BtnClickEventID, WrapBtnCallback(@ButtonOnClick, 1));
    BtnSetText(NoBtn, 'Нет');
    BtnSetFontColor(NoBtn, clWhite, clWhite, clWhite, clWhite);
    BtnSetFont(NoBtn, Font.Handle);

    YesBtn := BtnCreate(MyExit.Handle, MyExit.Width - 323,
             MyExit.Height - 50 - ScaleY(25), 160, 50,
              ExpandConstant('{tmp}\button2.png'), 18, True);
    BtnSetEvent(YesBtn, BtnClickEventID, WrapBtnCallback(@ButtonOnClick, 1));
    BtnSetText(YesBtn, 'Да');
    BtnSetFontColor(YesBtn, clWhite, clWhite, clWhite, clWhite);
    BtnSetFont(YesBtn, Font.Handle);

    Font.Free;
end;   
      
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);   
begin   
    Confirm := False;   
    MyExitMessage();   
     
    if MyExit.ShowModal() = mrNo then
      Cancel := False;
end;

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

[Files]
Source: "Icons\18.ico"; Flags: dontcopy noencryption nocompression solidbreak;
Source: "Skin\*"; Flags: dontcopy noencryption nocompression solidbreak;

[Code]
var
    MyExit: TSetupForm;   
    OkButton, CancelButton: TButton;    

procedure LoadSkin(lpszPath: PAnsiChar; lpszIniFileName: PAnsiChar); external 'LoadSkin@{tmp}\isskin.dll stdcall delayload';
procedure UnloadSkin; external 'UnloadSkin@{tmp}\isskin.dll stdcall delayload';

function InitializeSetup: Boolean;
begin
    if not FileExists(ExpandConstant('{tmp}\isskin.dll')) then ExtractTemporaryFile('isskin.dll');
    if not FileExists(ExpandConstant('{tmp}\Skin.cjstyles')) then ExtractTemporaryFile('Skin.cjstyles');
    LoadSkin(ExpandConstant('{tmp}\Skin.cjstyles'), '');
    Result:=true;
end;

procedure MyExitMessage();   
var   
    MyIcon: String;   
begin   
        MyExit := CreateCustomForm();
        MyExit.Position := poScreenCenter;
        MyExit.ClientWidth := WizardForm.Width;
        MyExit.ClientHeight := WizardForm.Height div 2;
        MyExit.Caption := ExpandConstant(SetupMessage(msgExitSetupTitle));

        MyIcon := ExpandConstant(AddBackSlash('{tmp}') + '18.ico');
      if not FileExists(MyIcon) then ExtractTemporaryFile(ExtractFileName(MyIcon));
     
      with TNewIconImage.Create(MyExit) do begin
        SetBounds(ScaleX(30), ScaleY(30), ScaleX(55), ScaleY(55));
        Icon.LoadFromFile(MyIcon);
        Parent := MyExit;   
      end;   
     
      with TNewStaticText.Create(MyExit) do begin
        SetBounds(ScaleX(110), ScaleY(20), ScaleX(MyExit.Width - ScaleX(115)), ScaleY(MyExit.Height div 2));
        AutoSize := False;
        WordWrap := True;
        Caption := ExpandConstant(SetupMessage(msgExitSetupMessage));
        Parent := MyExit;
      end;

        CancelButton := TButton.Create(MyExit);
        CancelButton.SetBounds(ScaleX(235), ScaleY(162), ScaleX(81), ScaleY(27));
        CancelButton.ModalResult := mrCancel;
        CancelButton.Parent := MyExit;
        CancelButton.Caption := 'Назад';

        OkButton := TButton.Create(MyExit);
        OkButton.SetBounds(ScaleX(322), ScaleY(162), ScaleX(81), ScaleY(27));
        OkButton.ModalResult := mrOk;
        OkButton.Parent := MyExit;
        OkButton.Caption := 'Выход';
end;
      
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);   
begin  Confirm := False;
     MyExitMessage();
     if MyExit.ShowModal() = mrCancel then Cancel := False;
     MyExit.Free;
end;

procedure DeinitializeSetup();
begin
      UnloadSkin;
end;

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[Files]
Source: form.bmp; DestDir: {tmp}; Flags: dontcopy sortfilesbyextension

[Code]
var
form: TBitmapImage;

const
TransparentPercent = 80; // процент прозрачности
TransparentColor = $00FF00; // прозрачный цвет
WS_EX_LAYERED = $80000;
WS_EX_TRANSPARENT = $20;
LWA_COLORKEY = 1;
LWA_ALPHA = 2;
GWL_EXSTYLE = (-20);

function SetLayeredWindowAttributes(hwnd: hWnd; crKey: TColor; bAlpha: byte; dwFlags: DWORD): Boolean; external 'SetLayeredWindowAttributes@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint; external 'GetWindowLongA@user32.dll stdcall';
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';

procedure InitializeWizard();
begin
ExtractTemporaryFile('form.bmp');

WizardForm.BorderStyle:=bsNone;
WizardForm.Bevel.Hide;
WizardForm.InnerNotebook.Hide;
WizardForm.OuterNotebook.Hide;
WizardForm.SetBounds(ScaleX(0), ScaleY(0), ScaleX(600), ScaleY(490));
WizardForm.Position:=poScreenCenter;

WizardForm.BackButton.Top := ScaleY(435);
WizardForm.NextButton.Top := ScaleY(435);
WizardForm.CancelButton.Top := ScaleY(435);

WizardForm.ReadyMemo.Color := TransparentColor
SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED)
SetLayeredWindowAttributes(WizardForm.Handle, TransparentColor, (255 * TransparentPercent) / 100, LWA_COLORKEY)

Form := TBitmapImage.Create(WizardForm);
with Form do
begin
Parent := WizardForm;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(600);
Height := ScaleY(490);
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\form.bmp')
end;
end;

#include "botva2.iss"

#define FormPic "form.png"

[Setup]
AppName=Temp
AppVerName=Temp
DefaultDirName={pf}\Temp
VersionInfoCopyright=VoLT

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

[Files]
Source: InstallFiles\*; DestDir: {tmp}; Flags: dontcopy sortfilesbyextension

[code]
var
    WizardImg: Longint;

function SetWindowLong(hWnd: Longint; nIndex: Integer; dwNewLong: Longint): Longint; external 'SetWindowLongA@user32.dll stdcall';
function GetWindowLong(hWnd, nIndex: Integer): Longint; external 'GetWindowLongA@user32 stdcall delayload';
function SetLayeredWindowAttributes(hWnd : Longint; crKey : TColor; bAlpha : byte; dwFlags : DWORD): BOOL; external 'SetLayeredWindowAttributes@user32.dll stdcall';
function ReleaseCapture(): Longint; external 'ReleaseCapture@user32.dll stdcall';

//************************************************ [Начало - Вставка изображений] ***************************************************//

function InitializeSetup:boolean;
begin
    if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
    if not FileExists(ExpandConstant('{tmp}\innocallback.dll')) then ExtractTemporaryFile('innocallback.dll');
    Result:=True;
end;

procedure InitializeWizard;
begin
with WizardForm do begin
      BorderStyle:=bsNone;
      Bevel.Hide;
      InnerNotebook.Hide;
      OuterNotebook.Hide;
      SetBounds(ScaleX(0), ScaleY(0), ScaleX(600), ScaleY(490));
      Position:=poScreenCenter;
      BackButton.Top := ScaleY(435);
      NextButton.Top := ScaleY(435);
      CancelButton.Top := ScaleY(435);
    end;

    ExtractTemporaryFile('{#FormPic}');

    WizardImg:=ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}')+'\{#FormPic}',0,0,0,0,False,True);

    ImgApplyChanges(WizardForm.Handle);

    SetWindowLong(WizardForm.Handle,-20,GetWindowLong(WizardForm.Handle,-20) or $80000);
    SetLayeredWindowAttributes(WizardForm.Handle,$00FF00,0,1);
end;

//************************************************ [Конец - Вставка изображений] ***************************************************//

procedure CurPageChanged(CurPageID: Integer);
begin
    ImgApplyChanges(WizardForm.Handle);
end;

procedure DeinitializeSetup;
begin
      gdipShutdown;
end;

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

[Files]
Source: compiler:InnoCallback.dll; Flags: dontcopy

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

[Code]
type
TimerProc = procedure(Sender: TObject);

function CallbackAddr(Callback: TimerProc; ParamCount: Integer): LongWord; external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';

var
lbl1: TLabel;

procedure Timer2(Sender: TObject);
var
str: string;
begin
str:= lbl1.Caption;
lbl1.Caption:= Copy(str, 2, Length(str) - 1) + Copy(str, 1, 1);
end;

procedure InitializeWizard();
begin
lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Parent:= WizardForm;
Left:= 20;
Top:= 325;
Width:= 200;
Height:= 20;
AutoSize:= False;
Caption:= 'Бегущая строка... ';
Font.Color:= clWindowText;
Font.Height:= -16;
Font.Name:= 'MS Sans Serif';
Font.Style:= [];
ParentFont:= False;
end;

SetTimer(WizardForm.Handle, 1, 100 {задаём интервал}, CallbackAddr(@Timer2, 0));
end;

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Code]
var
lbl1: TLabel;
tmr1: TTimer;

procedure tmr1Timer(Sender: TObject);
var
str: string;
begin
str:= lbl1.Caption;
lbl1.Caption:= Copy(str, 2, Length(str) - 1) + Copy(str, 1, 1);
end;

procedure InitializeWizard();
begin
//lbl1
lbl1:= TLabel.Create(WizardForm);
with lbl1 do begin
Parent:= WizardForm;
Left:= 20;
Top:= 325;
Width:= 200;
Height:= 20;
AutoSize:= False;
Caption:= 'Бегущая строка... ';
Font.Color:= clWindowText;
Font.Height:= -16;
Font.Name:= 'MS Sans Serif';
Font.Style:= [];
ParentFont:= False;
end;

//tmr1
tmr1:= TTimer.Create(WizardForm);
with tmr1 do begin
Interval:= 200;
OnTimer:= @tmr1Timer;
end;
end;

#include "botva2.iss"

[Setup]
AppName=#MyAppName
AppVersion=MyAppVersion
DefaultDirName={pf}\MyAppName

[Files]
Source: Files\botva2.dll; Flags: dontcopy
Source: Files\InnoCallback.dll; Flags: dontcopy
Source: Files\background.png; Flags: dontcopy
Source: Files\frame.png; Flags: dontcopy
Source: Files\mask.bmp; Flags: dontcopy

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

var
Frame : TForm;
WFOldProc : Longint;

function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X, Y, cx, cy: Integer; uFlags: UINT): BOOL; external 'SetWindowPos@user32.dll stdcall';
function CallWindowProc(lpPrevWndFunc: Longint; hWnd: HWND; Msg: UINT; wParam, lParam: Longint): Longint; external 'CallWindowProcA@user32.dll stdcall';
function ReleaseCapture: Longint; external 'ReleaseCapture@user32.dll stdcall';
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 LoadImage(hInst: THandle; ImageName: PChar; ImageType: UINT; X, Y: Integer; Flags: UINT): THandle; external 'LoadImageA@user32.dll stdcall';
function GetDC(hWnd: HWND): Longword; external 'GetDC@user32.dll stdcall';
function SetWindowRgn(hWnd: HWND; hRgn: LongWord; bRedraw: BOOL): Integer;  external 'SetWindowRgn@user32.dll stdcall';
function ReleaseDC(hWnd: HWND; hDC: LongWord): Integer; external 'ReleaseDC@user32.dll stdcall';
function DeleteObject(p1: LongWord): BOOL; external 'DeleteObject@gdi32.dll stdcall';

procedure SetRgn(h:HWND;FileName:string;Width,Height:integer);
var
dc:LongWord;
FRgn:LongWord;
bmp:HBITMAP;
begin
BMP:=LoadImage(0,PAnsiChar(ExpandConstant('{tmp}')+'\'+FileName),0,Width,Height,$10);
dc:=GetDC(h);
FRgn:=CreateBitmapRgn(dc,bmp,$FFFFFF,0,0);
SetWindowRgn(h,FRgn,True);
ReleaseDC(h,dc);
DeleteObject(BMP);
end;

function WFProc(h:hWnd;Msg,wParam,lParam:Longint):Longint;
begin
if Msg=$3 then SetWindowPos(Frame.Handle,0,WizardForm.Left-126,WizardForm.Top-45,0,0,$515);
Result:=CallWindowProc(WFOldProc,h,Msg,wParam,lParam);
end;

procedure FrameMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(WizardForm.Handle,$0112,$F012,0);
end;

function InitializeSetup:boolean;
begin
if not FileExists(ExpandConstant('{tmp}\botva2.dll')) then ExtractTemporaryFile('botva2.dll');
Result:=True;
end;

procedure CreateFrame;
begin
Frame:=TForm.Create(nil);;
Frame.BorderStyle:=bsNone;
CreateFormFromImage(Frame.Handle,ExpandConstant('{tmp}\frame.png'));

with TLabel.Create(Frame) do begin
Parent:=Frame;
AutoSize:=False;
Left:=0;
Top:=0;
Width:=Frame.CLientWidth;
Height:=Frame.ClientHeight;
OnMouseDown:=@FrameMouseDown;
end;
WizardForm.Left:=Frame.Left+126;
WizardForm.Top:=Frame.Top+45;

WFOldProc:=SetWindowLong(WizardForm.Handle,-4,WndProcCallBack(@WFProc,4));

Frame.Show;
end;

procedure InitializeWizard;
begin
with WizardForm do begin
BorderStyle:=bsNone;
ClientWidth:=770;
ClientHeight:=515;
InnerNotebook.Hide;
OuterNotebook.Hide;
Bevel.Hide;
end;
ExtractTemporaryFile('mask.bmp');
ExtractTemporaryFile('background.png');
ExtractTemporaryFile('frame.png');

SetRgn(WizardForm.Handle,'mask.bmp',770,515);
ImgLoad(WizardForm.Handle,ExpandConstant('{tmp}\background.png'),-126,-45,0,0,False,True);

CreateFrame;
ImgApplyChanges(WizardForm.Handle);
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
end;

#include "Modules\Xvid.iss"

[Setup]
AppName=#MyAppName
AppVersion=MyAppVersion
DefaultDirName={pf}\MyAppName

[Files]
Source: Files\xvidcore.dll; DestDir: "{tmp}"; Flags: dontcopy sortfilesbyextension
Source: Files\xvidvfw.dll; DestDir: "{tmp}"; Flags: dontcopy sortfilesbyextension
Source: Files\1.avi; DestDir: "{tmp}"; Flags: dontcopy sortfilesbyextension
Source: {fonts}\*; DestDir: {app}; Flags: external

[Code]
var
        NewButton1,NewButton2,NewButton3,NewButton4: TNewButton;

function InitializeSetup:boolean;
begin
        FileCopy(ExpandConstant('{tmp}\xvidcore.dll'), ExpandConstant('{tmp}\xvidcore.dll'), False);
        FileCopy(ExpandConstant('{tmp}\xvidvfw.dll'), ExpandConstant('{tmp}\xvidvfw.dll'), False);
        Result:=True;
end;

//****************************Ïðîöåäóðû äëÿ âèäåî****************************\\

procedure CreateVideoPage1(Sender: TObject);
begin
        mciSendString('open '+ExpandConstant('{tmp}\1.avi')+' type AVIVideo alias Video1 parent '+IntToStr(WizardForm.Handle)+' style child','',0,0);
        mciSendString('put Video1 window at 50 150 200 150','',0,0);
       mciSendString('play video1 repeat','',0,0);
        NewButton1.Hide;
        NewButton2.show;
        NewButton3.show;
end;

procedure CreateVideoPage2(Sender: TObject);
begin
       mciSendString('close video1','',0,0);
        NewButton1.show;
        NewButton2.hide;
        NewButton3.hide;
        NewButton4.hide;
end;

procedure CreateVideoPage3(Sender: TObject);
begin
       mciSendString('pause video1','',0,0);
        NewButton3.hide;
        NewButton4.show;

end;

procedure CreateVideoPage4(Sender: TObject);
begin
       mciSendString('play video1 repeat','',0,0);
        NewButton4.hide;
        NewButton3.show;
end;
//****************************Ïðîöåäóðû äëÿ âèäåî****************************\\

procedure CreateVideoPage;
begin
        ExtractTemporaryFile('1.avi');

        NewButton1 := TNewButton.Create(WizardForm);
        with NewButton1 do
        begin
          Name := 'NewButton1';
          Parent:=WizardForm.InstallingPage;
          Left := ScaleX(340);
          Top := ScaleY(180);
          Width := ScaleX(75);
          Height := ScaleY(25);
          Caption:='play';
          OnClick:=@CreateVideoPage1;
        end;

        NewButton2 := TNewButton.Create(WizardForm);
        with NewButton2 do
        begin
          Name := 'NewButton2';
          Parent:=WizardForm.InstallingPage;
          Left := ScaleX(340);
          Top := ScaleY(210);
          Width := ScaleX(75);
          Height := ScaleY(25);
          Caption:='close';
          OnClick:=@CreateVideoPage2;
        end;

        NewButton3 := TNewButton.Create(WizardForm);
        with NewButton3 do
        begin
          Name := 'NewButton3';
          Parent:=WizardForm.InstallingPage;
          Left := ScaleX(340);
          Top := ScaleY(180);
          Width := ScaleX(75);
          Height := ScaleY(25);
          Caption:='pause';
          OnClick:=@CreateVideoPage3;
        end;

        NewButton4 := TNewButton.Create(WizardForm);
        with NewButton4 do
        begin
          Name := 'NewButton4';
          Parent:=WizardForm.InstallingPage;
          Left := ScaleX(340);
          Top := ScaleY(180);
          Width := ScaleX(75);
          Height := ScaleY(25);
          Caption:='play';
          OnClick:=@CreateVideoPage4;
        end;
end;

procedure InitializeWizard;
begin
       XvidInstall;
       CreateVideoPage;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
        NewButton2.hide;
        NewButton3.hide;
        NewButton4.hide;
case CurPageID of
        wpInstalling:begin
        NewButton1.show;
        end;
        wpFinished:begin
        mciSendString('Close Video1','',0,0);
        end;
       end;
end;

procedure DeinitializeSetup;
begin
        mciSendString('Close Video1','',0,0);
end;

#define CountFiles "3"

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

[code]
function GetFilesCount(Dir: String): Integer;
var
FSR: TFindRec;
FindResult: Boolean;
begin
   try
     FindResult:= FindFirst(AddBackslash(Dir)+'*.*', FSR);
     repeat
       if ((FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = 0) then begin
         Result:= Result+1;
       end else
       if ((FSR.Attributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY)and((FSR.Name<>'.')and(FSR.Name<>'..')) then begin
         Result:=GetFilesCount(AddBackslash(Dir)+FSR.Name);
       end;
         FindResult:= FindNext(FSR);
     until not FindResult
   finally
     FindClose(FSR);
   end;
end;

procedure CurStepChanged(CurStep: TSetupStep);
var Res: Integer;
begin
if CurStep = ssPostInstall then begin
   If GetFilesCount(ExpandConstant('{app}')) <{#CountFiles} then
     If MsgBox(ExpandConstant('{cm:Error}'), mbCriticalError , MB_OK) = IDOK then
       Exec(ExpandConstant('{uninstallexe}'), '/Silent', '', SW_SHOW, ewWaitUntilterminated, Res)
end;
end;

[CustomMessages]
Error=Во время распаковки были распакованы не все файлы!

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

[Code]
function NextButtonClick(CurPageID: Integer): Boolean;
var
i,j: integer;
s,c: string;
begin
    Result := True;
    if CurPageID = wpSelectDir then begin
      c := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
      for i:=1 to length(WizardForm.DirEdit.text) do
        for j:=1 to length(c) do begin
          if WizardForm.DirEdit.text[i] = c[j] then begin
            s := 'В пути установки присутствуют русские буквы, что недопустимо'#13#13'Пожалуйста, повторите ввод.';
            MsgBox(s, mbError, mb_Ok);
            Result := False ;
            exit;
          end
        else Result := True;
      end;
    end;
end;

#define Font "Zombie.ttf"
#define FontName "DS Zombie Cyr"

[Setup]
AppName=My Program
AppVerName=My Program
DefaultDirName={pf}\My Program
OutputDir=.

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

[Files]
Source: {#Font}; Flags: dontcopy;

[Code]
var
       IsCustomFontInstalled: boolean;
       FontName: string;

function AddFontResource(FileName: PAnsiChar): Integer; external 'AddFontResourceA@gdi32.dll stdcall';
function RemoveFontResource(FileName: PAnsiChar): BOOL; external 'RemoveFontResourceA@gdi32.dll stdcall';

Procedure InitializeWizard();
begin
       ExtractTemporaryFile('{#Font}');
       IsCustomFontInstalled:=AddFontResource(ExpandConstant('{tmp}')+'\{#Font}')>0;
       if IsCustomFontInstalled then SendMessage(HWND_BROADCAST,$1D,0,0);
       if FontExists('{#FontName}') then FontName:='{#FontName}' else FontName:='Arial';
       WizardForm.Font.Name:= FontName;
end;

procedure DeInitializeSetup();
begin
       WizardForm.Free;
       if IsCustomFontInstalled then
       if RemoveFontResource(PAnsiChar(ExpandConstant('{tmp}')+'\{#Font}')) then SendMessage(HWND_BROADCAST,$1D,0,0);
end;

;Скрипт текстурирования кнопок, с четырмя видами состояния кнопок
;Используется текстура размером 320х23, где размер одной кнопки 80х23
;Скрипт написал Shegorat
[Setup]
AppName=Test
AppVerName=Test
DefaultDirName={pf}\Test
OutputDir=userdocs:Test.

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

[Files]
;Изображение размером 320х23
Source: button2.bmp; DestDir: {tmp}; Flags: dontcopy

[_Code]
const
     ButtonWidth = 80;
     ButtonHeight = 23;
        
var
     WizardLabel: TLabel;
     ButtonPanel: array of TPanel;
     ButtonImage: array of TBitmapImage;
     ButtonLabel: array of TLabel;
     UsedButtons: array of TButton;
     ButtonsCount: Integer;
        
procedure ButtonLabelClick(Sender: TObject);
var Button: TButton; n, i: Integer;
begin
     i:= TLabel(Sender).Tag; ButtonImage[i].Left:= 0
     for n:=0 to (ButtonsCount-1) do begin
       if i = n then Button:= UsedButtons[n];
     end;
Button.OnClick(Button)
end;

procedure ButtonLabelMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Enabled then ButtonImage[TLabel(Sender).Tag].Left:=-ButtonWidth*2
end;

procedure ButtonLabelMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ButtonLabel[TLabel(Sender).Tag].Enabled then ButtonImage[TLabel(Sender).Tag].Left:=0
end;

procedure ButtonLabelMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var n, I: Integer;
begin
I:=TLabel(Sender).Tag;
//Сначала восстанавливаем картинку у всех кнопок, так надо иначе могут быть глюки
for n:=0 to (ButtonsCount-1) do begin if (ButtonLabel[n].Enabled)and(ButtonImage[n].Left <> -ButtonWidth*2)and(I<>N) then ButtonImage[n].Left:= 0; end;
//Теперь собственно ставим нужную картинку
if (ButtonLabel[I].Enabled)and(ButtonImage[I].Left <> -ButtonWidth*2) then begin ButtonImage[I].Left:= -ButtonWidth; end;
end;

procedure WizardLabelMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var n: Integer;
begin
     //Т.к Sender'ом выступает WizardLabel то не получится испльзовать индекс кнопки
for n:=0 to (ButtonsCount-1) do if (ButtonLabel[n].Enabled)and(ButtonImage[n].Left <> -ButtonWidth*2) then begin ButtonImage[n].Left:= 0; end;
end;

procedure LoadButtonImage(AButton: TButton);
var n: Integer;
begin
     n:=ButtonsCount; SetArrayLength(ButtonPanel, n+1);
     SetArrayLength(ButtonImage, n+1); SetArrayLength(ButtonLabel, n+1);
     SetArrayLength(UsedButtons, n+1); UsedButtons[n]:= AButton;
        
     ButtonPanel[n]:=TPanel.Create(WizardForm)
     ButtonPanel[n].SetBounds(AButton.Left, AButton.Top, AButton.Width, AButton.Height)
     ButtonPanel[n].Tag:= n
     ButtonPanel[n].Enabled:= AButton.Enabled
     ButtonPanel[n].Parent:=AButton.Parent

     ButtonImage[n]:=TBitmapImage.Create(WizardForm)
     ButtonImage[n].SetBounds(ScaleX(0), ScaleY(0), ScaleX(320), ScaleY(23))
     ButtonImage[n].Enabled:=False
     ButtonImage[n].Bitmap.LoadFromFile(ExpandConstant('{tmp}\Button2.bmp'))
     ButtonImage[n].Parent:=ButtonPanel[n]

     with TLabel.Create(WizardForm) do begin
       Tag:=n
       Parent:=ButtonPanel[n]
       Width:=AButton.Width
       Height:=AButton.Height
       Transparent:=True
       OnClick:=@ButtonLabelClick
       OnDblClick:=@Bu ttonL abelClick
       OnMouseMove:=@ButtonLabelMove
       OnMouseDown:=@ButtonLabelMouseDown
       OnMouseUp:=@ButtonLabelMouseUp
     end

     B u ttonLabel[n]:=TLabel.Create(WizardForm)
     ButtonLabel[n].Autosize:=True
     ButtonLabel[n].Alignment:=taCenter
     ButtonLabel[n].Tag:=n
     ButtonLabel[n].Enabled:= AButton.Enabled
     ButtonLabel[n].Transparent:=True
     ButtonLabel[n].Font.Color:=clWhite
     ButtonLabel[n].Caption:=AButton.Caption
     ButtonLabel[n].OnClick:=@ButtonLabelClick
     ButtonLabel[n].OnDblClick:=@ButtonLabelClick
     ButtonLabel[n].OnMouseMove:=@ButtonLabelMove
     ButtonLabel[n].OnMouseDown:=@ButtonLabelMouseDown
     ButtonLabel[n].OnMouseUp:=@ButtonLabelMouseUp
     ButtonLabel[n].Parent:=ButtonPanel[n]
        
     ButtonsCount:= ButtonsCount+1
end;

procedure UpdateButtons();
var n: Integer;
begin
for n:=0 to ButtonsCount-1 do begin
     ButtonLabel[n].Caption:=UsedButtons[n].Caption
     ButtonPanel[n].Visible:=UsedButtons[n].Visible
     if (UsedButtons[n].Enabled = False) then ButtonImage[n].Left:= -ButtonWidth*3 else ButtonImage[n].Left:= 0;
     ButtonLabel[n].Enabled:= UsedButtons[n].Enabled;
     ButtonPanel[n].Enabled:= UsedButtons[n].Enabled;
     //Ставим Left и Top лейбла соразмерно размеру лейбла
     ButtonLabel[n].Left:= ButtonPanel[n].Width div 2 - ButtonLabel[n].Width div 2;
     ButtonLabel[n].Top:= ButtonPanel[n].Height div 2 - ButtonLabel[n].Height div 2;
end;
end;

procedure LicenceAcceptedRadioOnClick(Sender: TObject);
begin
//Делаем кнопку активной
WizardForm.NextButton.Enabled:= True;
//Обновляем текстурированную кнопку (обновляем активность и текстуру)
UpdateButtons();
end;

procedure LicenceNotAcceptedRadioOnClick(Sender: TObject);
begin
//Делаем кнопку неактивной
WizardForm.NextButton.Enabled:= False;
//Обновляем текстурированную кнопку (обновляем активность и текстуру)
UpdateButtons()
end;

procedure InitializeWizard();
begin
     WizardLabel:= TLabel.Create(WizardForm)
     WizardLabel.SetBounds(ScaleX(0), ScaleY(0), ScaleX(WizardForm.Width), ScaleY(WizardForm.Height))
     WizardLabel.Transparent:= True;
     WizardLabel.AutoSize:=false;
     WizardLabel.OnMouseMove:=@WizardLabelMove
     WizardLabel.Parent:= WizardForm;
        
     WizardForm.BackButton.Width:= ButtonWidth
     WizardForm.BackButton.Height:= ButtonHeight

     WizardForm.NextButton.Width:= ButtonWidth
     WizardForm.NextButton.Height:= ButtonHeight

     WizardForm.CancelButton.Width:=ButtonWidth
     WizardForm.CancelButton.Height:= ButtonHeight

     WizardForm.DirBrowseButton.Left:=ScaleX(337)
     WizardForm.DirBrowseButton.Width:= ButtonWidth
     WizardForm.DirBrowseButton.Height:=ButtonHeight

     WizardForm.GroupBrowseButton.Left:=ScaleX(337)
     WizardForm.Group Bro wseButton.Width:= ButtonWidth
     WizardForm.GroupBrowseButton.Height:=ButtonHeight

     WizardForm.LicenseAcceptedRadio.OnClick:=@LicenceAcceptedRadioOnCl ic k

     WizardForm.LicenseNotAcceptedRadio.OnClick:=@LicenceNotAcceptedRadioOnClick

     ExtractTemporaryFile('button2.bmp')
     LoadBut ton Image(WizardForm.BackButton)
     LoadButtonImage(WizardForm.NextButton)
     LoadButtonImage(WizardForm.CancelButton)
     LoadButtonImage( Wiz ardForm.DirBrowseButton)
     LoadButtonImage(WizardForm.GroupBrowseButton)
end;

procedure CurPageChanged(CurPageID: Integer);
begin
     UpdateButtons()
end;

[Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton

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

[Code]
var
    InfoButton: TButton;

procedure InfoButtonOnClick(Sender: TObject);
begin
    MsgBox('Информация о релизе:'#13#13'- Ничего не вырезано/не перекодировано.'#13'- Язык озвучки: Русский/Английский.'#13'- Язык интерфейса: Русский/Английский. '#13'- Таблетка: вшита (TRiViUM). '#13'- Защита: StarForce 5.70 + Online Activation. '#13'- Время установки: 5 минут. '#13'- Автор RePacka: человек.', mbInformation, MB_OK)
end;

procedure InitializeWizard();
   begin
    InfoButton := TButton.Create(WizardForm);
    with InfoButton do begin
    Left:=40
    Top:=327
    Width:=80
    Height:=23
    OnClick:=@InfoButtonOnClick
    Parent:=WizardForm
    Caption := 'Информация';
   end
end;

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

[code]
function IsAnsi(S: string): boolean;
var
              S1: string;
              S2: string;
begin
              S1 := AnsiUppercase(S);
              S2 := Uppercase(S);
              if CompareStr(S1, S2) = 0 then begin
                S1 := Lowercase(S);
                S2 := AnsiLowercase(S);
                if CompareStr(S1, S2) = 0 then
                  Result := True;
              end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
              Result:= True;
              if CurPageID = wpSelectDir then
              if not(IsAnsi(WizardForm.DirEdit.Text)) then begin
                MsgBox( 'В пути установки присуствуют русские символы'#13#13'Пожалуйста, повторите ввод.', mbError, mb_Ok);
                Result := False ;
              end;
end;

function GetTickCount: LongWord;
external 'GetTickCount@Kernel32.dll stdcall';

function IsAnsi(S: string): boolean;
var
          S1: string;
          S2: string;
          k: LongWord;
begin
          k := GetTickCount;
          S1 := AnsiUppercase(S);
          S2 := Uppercase(S);
          if CompareStr(S1, S2) = 0 then begin
            S1 := Lowercase(S);
            S2 := AnsiLowercase(S);
            if CompareStr(S1, S2) = 0 then
              Result := True;
          end;
          WizardForm.Caption := FloatToStr(GetTickCount) + '-' + FloatToStr(k) + '=' + FloatToStr(GetTickCount-k);
end;

const
A1='А';
Z1='Я';
A2='а';
Z2='я';
X1='ё';
X2='Ё';

function IsAnsi2(S: string): boolean;
var
i: integer;
c: char;
          k: LongWord;
begin
          k := GetTickCount;
Result := True;
for i:=1 to length(s) do begin
c:=s[i];
if (c>=A1)and(c<=Z1) or (c>=A2)and(c<=Z2) or (c=X1) or (c=X2) then begin
Result := False ;
end;
end;
WizardForm.Caption := FloatToStr(GetTickCount) + '-' + FloatToStr(k) + '=' + FloatToStr(GetTickCount-k);
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
          Result := True;
          if CurPageID = wpSelectDir then
          if not(IsAnsi(WizardForm.DirEdit.Text)) then begin
            MsgBox( 'В пути установки присуствуют русские символы'#13#13'Пожалуйста, повторите ввод.', mbError, mb_Ok);
            Result := False ;
            Exit;
          end;
end;

if (c>=A1)and(c<=Z1) or (c>=A2)and(c<=Z2) or (c=X1) or (c=X2) then begin
Result := False ;

break;

[Setup]  
AppName=MyApp  
AppVerName=MyApp  
DefaultDirname={pf}\MyApp
   
[Code]  
const  
TransparentPercent = 75;
WS_EX_LAYERED = $80000;  
WS_EX_TRANSPARENT = $20;  
LWA_COLORKEY = 1;  
LWA_ALPHA = 2;  
GWL_EXSTYLE = (-20);  

function SetLayeredWindowAttributes(hwnd: HWND; crKey: TColor; bAlpha: BYTE; dwFlags: DWORD): Boolean;external 'SetLayeredWindowAttributes@user32.dll stdcall';
function GetWindowLong(Wnd: HWnd; Index: Integer): Longint;external 'GetWindowLongA@user32.dll stdcall';  
function SetWindowLong(Wnd: HWnd; Index: Integer; NewLong: Longint): Longint;external 'SetWindowLongA@user32.dll stdcall';  

Procedure InitializeWizard();  
begin  
SetWindowLong(WizardForm.Handle, GWL_EXSTYLE, GetWindowLong(WizardForm.Handle, GWL_EXSTYLE) or WS_EX_LAYERED);  
SetLayeredWindowAttributes(WizardForm.Handle, 0, (255 * TransparentPercent) / 100, LWA_ALPHA);  
end;

[Setup]
appname=AnimateWindow
appvername=AnimateWindow
createappdir=no
uninstallable=no

[Code_]
const
AW_FADE_IN = $00080000;
AW_FADE_OUT = $00090000;
AW_SLIDE_IN_LEFT = $00040001;
AW_SLIDE_OUT_LEFT = $00050002;
AW_SLIDE_IN_RIGHT = $00040002;
AW_SLIDE_OUT_RIGHT = $00050001;
AW_SLIDE_IN_TOP = $00040004;
AW_SLIDE_OUT_TOP = $00050008;
AW_SLIDE_IN_BOTTOM = $00040008;
AW_SLIDE_OUT_BOTTOM = $00050004;
AW_DIAG_SLIDE_IN_TOPLEFT = $00040005;
AW_DIAG_SLIDE_OUT_TOPLEFT = $0005000a;
AW_DIAG_SLIDE_IN_TOPRIGHT = $00040006;
AW_DIAG_SLIDE_OUT_TOPRIGHT = $00050009;
AW_DIAG_SLIDE_IN_BOTTOMLEFT = $00040009;
AW_DIAG_SLIDE_OUT_BOTTOMLEFT = $00050006;
AW_DIAG_SLIDE_IN_BOTTOMRIGHT = $0004000a;
AW_DIAG_SLIDE_OUT_BOTTOMRIGHT = $00050005;
AW_EXPLODE = $00040010;
AW_IMPLODE = $00050010;

function AnimateWindow(hWnd: HWND; dwTime: DWORD; dwFlags: DWORD): Boolean;
external 'AnimateWindow@user32 stdcall';

procedure OnShow(Sender: TObject);
begin
AnimateWindow(WizardForm.Handle,1000,AW_EXPLODE);
WizardForm.NextButton.OnClick(WizardForm.NextButton);
WizardForm.BackButton.OnClick(WizardForm.BackButton);
end;

procedure InitializeWizard();
begin
WizardForm.OnShow:=@OnShow;
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm:=False;
AnimateWindow(WizardForm.Handle,1000,AW_IMPLODE);
Cancel:=True;
end;

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
Compression=lzma/ultra
InternalCompressLevel=ultra
SolidCompression=yes

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

[Files]
#ifndef IS_ENHANCED
Source: InnoCallback.dll; Flags: dontcopy
#endif

[Code_]
#ifdef UNICODE
        #define A "W"
type
      PChar = PAnsiChar;
#else
        #define A "A"  ; меняется на A или W в зависимости от версии
#endif
function GetWindowText(hWnd: HWND; lpString: String; nMaxCount: Integer): Integer;
      external 'GetWindowText{#A}@user32.dll stdcall';
function CreateWindow(dwExStyle: DWORD; lpClassName: PChar; lpWindowName: PChar;
      dwStyle: DWORD; X, Y, nWidth, nHeight: Integer; hWndParent: HWND; hMenu: LongWord;
        hInstance: Cardinal; lpParam: LongWord): HWND; external 'CreateWindowExA@user32.dll stdcall';

#ifndef IS_ENHANCED
type
      TimerProc = procedure(Sender: TObject);

function CallbackAddr(Callback: TimerProc; ParamCount: Integer): LongWord;
      external 'wrapcallback@files:innocallback.dll stdcall';
function SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc: LongWord): LongWord;
      external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd, nIDEvent: LongWord): LongWord; external 'KillTimer@user32.dll stdcall';
#endif

const
      DATETIMEPICK_CLASS  = 'SysDateTimePick32';
      WS_CHILD            = $40000000;
      WS_VISIBLE          = $10000000;
      DTS_SHORTDATEFORMAT = $0000;  // use the short date format
      DTS_LONGDATEFORMAT  = $0004;  // use the long date format
      DTS_TIMEFORMAT      = $0009;  // use the time format
      WM_GETTEXTLENGTH    = $000E;

var
      TimePick, DatePick: HWND;
      lbTime, lbDate, lbSysTime, lbClock: TLabel;
      UpdateLabel: TNewCheckBox;

procedure GetSysClock(Sender: TObject);
// процедура для таймера
begin
      lbClock.Caption:= GetDateTimeString('Дата: dd.mm.yy, время: hh:nn:ss', '.', ':');
      if UpdateLabel.Checked then
      lbSysTime.Caption:= 'Считанное значение - Системное время: ' +
        Copy(lbClock.Caption, Pos('время:', lbClock.Caption) + 7,
          Length(lbClock.Caption)-(Pos('время:', lbClock.Caption) + 6));
end;

procedure CreateClock;
begin
      // создаём часы
      lbClock:= TLabel.Create(WizardForm);
      with lbClock do
        begin
          Left:= 10;
          Top:= 330;
          AutoSize:= True;
          Font.Size:= 10;
          Font.Style:= [fsBold];
          Caption:= GetDateTimeString('Дата: dd.mm.yy, время: hh:nn:ss', '.', ':');
          Transparent:= True;
          Parent:= WizardForm;
        end;
      // запускаем таймер
#ifdef IS_ENHANCED
      // если расширенная версия Inno Setup от Resstools
      with TTimer.Create(WizardForm) do
        begin
          Interval:= 500; // интервал полсекунды
          OnTimer:= @GetSysClock;
        end;
#else
      // если обычная версия Inno Setup
      SetTimer(WizardForm.Handle, 1, 500 {интервал полсекунды}, CallbackAddr(@GetSysClock, 0));
#endif
end;

procedure InitializeWizard();
begin
      WizardForm.WelcomeLabel2.Height:= 100;
      // чебокс
      UpdateLabel:= TNewCheckBox.Create(WizardForm);
      with UpdateLabel do
        begin
          SetBounds(260, 170, 120, 15);
          Caption:= 'Обновлять время.';
          Parent:= WizardForm.SelectDirPage;
        end;
      CreateClock;
      // создаём описание
      with TLabel.Create(WizardForm) do
        begin
          Left:= 190;
          Top:= 193;
          AutoSize:= True;
          Caption:= 'Дата на момент запуска -';
          Transparent:= True;
          Parent:= WizardForm.WelcomePage;
        end;
      with TLabel.Create(WizardForm) do
        begin
          Left:= 190;
          Top:= 243;
          AutoSize:= True;
          Caption:= 'Время на момент запуска -';
          Transparent:= True;
          Parent:= WizardForm.WelcomePage;
        end;
      // создаём SysDateTimePick32 с показом даты
      DatePick:= CreateWindow(0, DATETIMEPICK_CLASS, '', WS_CHILD or WS_VISIBLE or DTS_SHORTDATEFORMAT,
        335, 190, 90, 21, WizardForm.WelcomePage.Handle, 0, 0, 0);
      // создаём SysDateTimePick32 с показом времени
      TimePick:= CreateWindow(0, DATETIMEPICK_CLASS, '', WS_CHILD or WS_VISIBLE or DTS_TIMEFORMAT,
        335, 240, 90, 21, WizardForm.WelcomePage.Handle, 0, 0, 0);
      // создаём Label'ы для оттображения данных
      lbDate:= TLabel.Create(WizardForm);
      with lbDate do
        begin
          Left:= 0;
          Top:= 130;
          AutoSize:= True;
          Transparent:= True;
          Parent:= WizardForm.SelectDirPage;
        end;
      lbTime:= TLabel.Create(WizardForm);
      with lbTime do
        begin
          Left:= 0;
          Top:= 150;
          AutoSize:= True;
          Transparent:= True;
          Parent:= WizardForm.SelectDirPage;
        end;
      lbSysTime:= TLabel.Create(WizardForm);
      with lbSysTime do
        begin
          Left:= 0;
          Top:= 170;
          AutoSize:= True;
          Transparent:= True;
          Parent:= WizardForm.SelectDirPage;
        end;
end;

function GetTextPick(pick: HWND): string;
// процедура для считывания текста из SysDateTimePick32
var
      Count: Integer;
      str: string;
begin
      Count:= SendMessage(pick, WM_GETTEXTLENGTH, 0, 0) + 1;
      str:= StringOfChar(#0, Count);
      GetWindowText(pick, str, Count);
      Result:= Trim(str);
end;

procedure CurPageChanged(CurPageID: Integer);
begin
      if CurPageID = wpSelectDir then
        begin
          // показываем значения...
          lbDate.Caption:= 'Считанное значение - Дата на момент запуска: ' + GetTextPick(DatePick);
          lbTime.Caption:= 'Считанное значение - Время на момент запуска: ' + GetTextPick(TimePick);
          lbSysTime.Caption:= 'Считанное значение - Системное время: ' +
            Copy(lbClock.Caption, Pos('время:', lbClock.Caption) + 7,
              Length(lbClock.Caption)-(Pos('время:', lbClock.Caption) + 6));
        end;
end;

procedure DeinitializeSetup();
begin
#ifndef IS_ENHANCED
      KillTimer(WizardForm.Handle, 1);
#endif
end;