[_Code]
var
Memo1:TMemo;

procedure activ(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.message=$112 then Memo1.Lines.Add('О ПРОГРАММЕ') else Memo1.Lines.Add('ФОРМА');
end;

procedure InitializeWizard();
begin
Memo1:=TNewMemo.Create(WizardForm);
with Memo1 do
begin
Parent:=WizardForm;
Left:=25;
Top:=188;
Width:=101;
Height:=42;
end;
Application.OnMessage:=@activ;
end;

[Files]
Source: C:\WINDOWS\Web\*; DestDir: {app}; BeforeInstall: Log; Flags: ignoreversion createallsubdirs recursesubdirs

[Code]
var
Memo: TNewMemo;
ISCustomPage: TWizardPage;
ShowHideButton: TButton;

procedure Log;
begin
Memo.Lines.Add('Извлечение: ' + ExtractFileName(CurrentFileName));
end;

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = ISCustomPage.ID then
begin
Memo.Parent := ISCustomPage.Surface;
Memo.Lines.Add('Готово');
with WizardForm do
begin
BackButton.Visible := True;
BackButton.Enabled := False;
CancelButton.Visible := True;
CancelButton.Enabled := False;
end;
end;
end;

procedure ShowHideButtonOnClick(Sender:TObject);
begin
if Memo.Tag=1 then begin
Memo.Show
Memo.Tag:=2 end else begin
Memo.Hide;
Memo.Tag:=1;
end;
end;

procedure InitializeWizard();
begin
WizardForm.TasksList.Color := clGreen;
{ создадим копию страницы установки, которую покажем пользователю, чтоб он мог прочитать лог... }
ISCustomPage := CreateCustomPage(wpInstalling,
'Установка завершена', 'Установка успешно завершена');

with TNewProgressBar.Create(WizardForm) do
begin
Parent := ISCustomPage.Surface;
SetBounds(WizardForm.ProgressGauge.Left,
WizardForm.ProgressGauge.Top,
WizardForm.ProgressGauge.Width,
WizardForm.ProgressGauge.Height) ;

Max := 100;
Position := 100;
end;

with TNewStaticText.Create(WizardForm) do
begin
Parent := ISCustomPage.Surface;
AutoSize := False;
Caption := 'Готово';
ShowAccelChar := False;
SetBounds(ScaleX(0), ScaleY(16), ScaleX(417), ScaleY(16));
end;

Memo := TNewMemo.Create(WizardForm);
with Memo do
begin
Parent := WizardForm.InstallingPage;
SetBounds(WizardForm.InstallingPage.Left, ScaleY(75), WizardForm.InstallingPage.Width, ScaleY(140));
//ReadOnly:=True;
ScrollBars:=ssVertical;
Tag:=2;
end;

ShowHideButton:=TButton.Create(WizardForm);
with ShowHideButton do
begin
Parent:=WizardForm.InstallingPage;
SetBounds(320,13,90,25);
Caption:='Show/Hide LOG'
OnClick:=@ShowHideButtonOnClick;
end;
end;

[Files]
Source: innocallback.dll; DestDir: "{app}"; Flags: ignoreversion;

[_code]
type
TTimerProc = procedure (h: Longword; msg: Longword; idevent: Longword; dwTime: Longword);

function SetTimer(hWnd: longword; nIDEvent, uElapse: longword; lpTimerFunc: LongWord): longword; external 'SetTimer@user32.dll stdcall';
function KillTimer(hWnd: longword; nIDEvent: longword): longword; external 'KillTimer@user32.dll stdcall';
function WrapTimerProc(callback:TTimerProc; paramcount:integer):LongWord; external 'wrapcallback@{tmp}\innocallback.dll stdcall delayload';

procedure MyTimerProc(h:Longword; msg: Longword; idevent: Longword; dwTime: Longword);
begin
WizardForm.Height:=WizardForm.Height+4;
if (WizardForm.Height=388) then KillTimer(WizardForm.Handle,1);
end;

procedure MyTimerProc1(h:Longword; msg: Longword; idevent: Longword; dwTime: Longword);
begin
WizardForm.Height:=WizardForm.Height-4;
if (WizardForm.Height=28) then
begin
KillTimer(WizardForm.Handle,2);
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;
end;

procedure MyTimerProc2(h:Longword; msg: Longword; idevent: Longword; dwTime: Longword);
begin
WizardForm.Height:=WizardForm.Height-4;
if (WizardForm.Height=28) then
begin
KillTimer(WizardForm.Handle,3)
WizardForm.NextButton.OnClick(WizardForm.NextButton);
end;
end;

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

if (WizardForm.Height=388) then begin
if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_YESNO) = IDYES then
begin
SetTimer(WizardForm.Handle,2,2,WrapTimerProc(@MyTimerProc1,2));
end;
end;
if (WizardForm.Height=28) then Cancel:=True;
end;

procedure InitializeWizard();
begin
WizardForm.Height:=0;
SetTimer(WizardForm.Handle,1,1,WrapTimerProc(@MyTimerProc,1));
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
Result:=True;
if CurPageID=wpFinished then
begin
if not (WizardForm.Height=28) then
begin
SetTimer(WizardForm.Handle,3,3,WrapTimerProc(@MyTimerProc2,4));
Result:=False;
end else Result:=True;
end;
end;

function InitializeSetup(): Boolean;
begin
ExtractTemporaryFile('InnoCallback.dll');
Result:=True;
end;