TLama

Untitled

Aug 1st, 2013
257
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.45 KB | None | 0 0
  1. [Setup]
  2. AppName=Image Presenter Project
  3. AppVersion=1.0
  4. DefaultDirName={pf}\Image Presenter Project
  5.  
  6. [Code]
  7. function NeedRestart: Boolean;
  8. begin
  9.   Result := True;
  10. end;
  11.  
  12. procedure CurPageChanged(CurPageID: Integer);
  13. begin
  14.   if not FileExists(ExpandConstant('{sd}\RebootFile.txt')) then
  15.     WizardForm.FinishedLabel.Caption := 'RebootFile not found. Restart ?'
  16.   else
  17.     WizardForm.FinishedLabel.Caption := 'RebootFile was found. Restart ?';
  18. end;
Advertisement
Add Comment
Please, Sign In to add comment