home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / index / source / wintrouv.dpr < prev   
Text File  |  1996-05-03  |  1KB  |  47 lines
  1. program WinTrouv;
  2.  
  3. {$D Win Trouve Delphi v1.0 par EVAIN StΘphane (c)1995. }
  4.  
  5. {$DEFINE Final}
  6.  
  7. {$IFDEF Final}
  8.  {$A+,B-,D-,G+,I-,K+,L-,R-,Y-,Z-}
  9. {$ELSE}
  10.  {$D+,L+,Y+}
  11. {$ENDIF}
  12.  
  13.  
  14.  
  15. uses
  16.   Forms,
  17.   SysUtils,
  18.   Main in 'MAIN.PAS' {MainForm},
  19.   Scan in 'SCAN.PAS' {ScanForm},
  20.   Affiche in 'AFFICHE.PAS' {DescForm},
  21.   Option in 'OPTION.PAS' {OptionForm},
  22.   Directo in 'DIRECTO.PAS' {RepForm},
  23.   Start in 'START.PAS' {StartForm};
  24.  
  25. {$R *.RES}
  26.  
  27. var StartTime : TDateTime ;
  28.  
  29. begin
  30.   Application.Title := 'Delphi Trouve v1.01';
  31.   StartForm := TStartForm. Create (Application) ;
  32.   StartForm. Show ;
  33.   StartForm. UpDate ;
  34.   Application.CreateForm(TMainForm, MainForm);
  35.   Application.CreateForm(TScanForm, ScanForm);
  36.   Application.CreateForm(TDescForm, DescForm);
  37.   Application.CreateForm(TOptionForm, OptionForm);
  38.   Application.CreateForm(TRepForm, RepForm);
  39.   { Please wait a few... }
  40.   StartTime := Now;
  41.   repeat until Now-StartTime > 1.0/24.0/3600.0;
  42.   StartForm. Hide ;
  43.   StartForm. Free ;
  44.   { Let's go! }
  45.   Application.Run;
  46. end.
  47.