Плавный запуск установщика

[nortem]

Как можно реализовать более-менее плавный запуск установщика?

 

[Хамик]

Типа такого?:

Спойлер

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

[Code]
const
AW_ACTIVATE = $00020000;
AW_BLEND = $00080000;
AW_HIDE = $00010000;

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

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
if MsgBox(SetupMessage(msgExitSetupMessage), mbConfirmation, MB_OKCANCEL) = IDOK then
begin
Confirm := False;
AnimateWindow(WizardForm.Handle, 2500, AW_BLEND or AW_HIDE);
Cancel := True;
end else
Cancel := False;
end;

procedure InitializeWizard();
begin
AnimateWindow(WizardForm.Handle, 2500, AW_BLEND or AW_ACTIVATE);
end;