Автор: ultimo
Дата сообщения: 01.07.2012 22:51
		Ребят, подскажите как правильно сделать так, чтобы по завершению установки была кнопка "Запустить игру", которая только при успешном выполнении установки 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;