[Setup]
AppName=MyApp
AppVerName=MyApp
DefaultDirname={pf}\MyApp
[code]
var
NewButton1: TNewButton;
procedure okbtnclick(Sender: TObject);
begin
if not FileExists(ExpandConstant('{src}\bum.bin')) then
MsgBox('File is not exists!', mbError, MB_OK);
end;
procedure RedesignWizardForm;
begin
NewButton1 := TNewButton.Create(WizardForm);
with NewButton1 do
begin
Name := 'NewButton1';
Parent := WizardForm.WelcomePage;
Left := ScaleX(48);
Top := ScaleY(216);
Width := ScaleX(75);
Height := ScaleY(25);
Caption := 'Ok';
OnClick := @okbtnclick;
end;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;