[LordSP]

Ребят есть вопрос: Как в этом скрипте:

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

[CustomMessages]
ProgressBar_Caption=ProgressBar Caption
ProgressBar_Description=ProgressBar Description

[code]
var
DSProgressBar: TNewProgressBar;

{ ProgressBar_Activate }

procedure ProgressBar_Activate(Page: TWizardPage);
begin
// enter code here...
end;

{ ProgressBar_ShouldSkipPage }

function ProgressBar_ShouldSkipPage(Page: TWizardPage): Boolean;
begin
Result := False;
end;

{ ProgressBar_BackButtonClick }

function ProgressBar_BackButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ ProgressBar_NextkButtonClick }

function ProgressBar_NextButtonClick(Page: TWizardPage): Boolean;
begin
Result := True;
end;

{ ProgressBar_CancelButtonClick }

procedure ProgressBar_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean);
begin
// enter code here...
end;

{ ProgressBar_CreatePage }

function ProgressBar_CreatePage(PreviousPageId: Integer): Integer;
var
Page: TWizardPage;
begin
Page := CreateCustomPage(
PreviousPageId,
ExpandConstant('{cm:ProgressBar_Caption}'),
ExpandConstant('{cm:ProgressBar_Description}')
);

{ DSProgressBar }
DSProgressBar := TNewProgressBar.Create(Page);
with DSProgressBar do
begin
Parent := Page.Surface;
Left := ScaleX(0);
Top := ScaleY(88);
Width := ScaleX(413);
Height := ScaleY(49);
Min := 0;
Max := 100;
end;

with Page do
begin
OnActivate := @ProgressBar_Activate;
OnShouldSkipPage := @ProgressBar_ShouldSkipPage;
OnBackButtonClick := @ProgressBar_BackButtonClick;
OnNextButtonClick := @ProgressBar_NextButtonClick;
OnCancelButtonClick := @ProgressBar_CancelButtonClick;
end;

Result := Page.ID;
end;

{ ProgressBar_InitializeWizard }

procedure InitializeWizard();
begin
ProgressBar_CreatePage(wpInstalling);
end;

Заменить стандартный прогресс-бар,тем что появляется в конце страницы,пробовал wpInstalling,не помогло,появляется,сразу после установки...Please Help!