ultimo
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребят, подскажите как правильно сделать так, чтобы по завершению установки была кнопка "Запустить игру", которая только при успешном выполнении установки ISDone
Код:
Procedure CurPageChanged(CurPageID: Integer);
Begin
case CurPageID of
wpSelectDir:
begin
GetFreeSpaceCaption(nil);
end;
wpInstalling: begin
FileCopy(ExpandConstant('{tmp}\0.bmp'),ExpandConstant('{app}\0.bmp'),False);
TimerID:=SetTimer(0, 0, 10000, WrapTimerProc(@OnTimer, 4));
WizardForm.CancelButton.SetBounds(ScaleX(460),ScaleY(347),ScaleX(80),ScaleY(36));
//WizardForm.CancelButton.SetBounds(ScaleX(485),ScaleY(25),ScaleX(80),ScaleY(36));
LoadButtonImage('_IS_BTN1', WizardForm.CancelButton);
end;
wpFinished: begin
DeinitializeSlideShow;
KillTimer(0, TimerID);
// И ВОТ ТУТ НАДО КНОПКУ ПРОПИСАТЬ С ЗАПУСКОМ ФАЙЛА {app}\PROG.EXE
{WizardForm.CancelButton.SetBounds(ScaleX(460),ScaleY(347),ScaleX(80),ScaleY(36)); И почему-то не могу найти конфу кнопки Завершить (координаты)
//WizardForm.CancelButton.SetBounds(ScaleX(485),ScaleY(25),ScaleX(80),ScaleY(36));
LoadButtonImage('_IS_BTN1', WizardForm.CancelButton);}
WizardForm.FinishedLabel.SetBounds(ScaleX(80), ScaleY(35), ScaleX(457), ScaleY(20));
if ISDoneError then begin
WizardForm.Caption:= ExpandConstant('{cm:Error}');
WizardForm.FinishedLabel.Caption:= SetupMessage(msgSetupAborted);
WizardForm.FinishedLabel.SetBounds(ScaleX(80), ScaleY(35), ScaleX(457), ScaleY(20));
end;
end;
end;
UpdateButtons();
end; |
|
заранее спасибо за помощь...
