home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi2 / wowsrc.exe / WOW.DPR < prev    next >
Text File  |  1995-12-11  |  952b  |  41 lines
  1. program Wow;
  2.  
  3. uses
  4.   Forms,
  5.   Classes,
  6.   SysUtils,
  7.   Dialogs,
  8.   Ssave in 'SSAVE.PAS' {Scrn},
  9.   Msgdefs in 'MSGDEFS.PAS' {SetupMsg},
  10.   Globals in 'GLOBALS.PAS',
  11.   Getpass in 'GETPASS.PAS' {Wpwd},
  12.   Winpwd in 'WINPWD.PAS',
  13.   Newpass in 'NEWPASS.PAS' {ChPwd},
  14.   Selectss in 'SELECTSS.PAS' {SsSelect},
  15.   Codemsg in 'CODEMSG.PAS',
  16.   Codeball in 'CODEBALL.PAS',
  17.   Spotdefs in 'SPOTDEFS.PAS' {SetupSpot},
  18.   Balldefs in 'BALLDEFS.PAS' {SetupBalls},
  19.   Codespot in 'CODESPOT.PAS',
  20.   Picdlg in 'PICDLG.PAS' {BitmapDlg},
  21.   Bitmap in 'BITMAP.PAS';
  22.  
  23. {$R *.RES}
  24. {$D SCRNSAVE : Wild Screen Saver}
  25. Var
  26.   CmdLine : String;
  27.  
  28. begin
  29.   If HPrevInst <> 0 then Exit;
  30.   CmdLine := UpperCase(ParamStr(1));
  31.   if (CmdLine = '/S') or
  32.      (CmdLine = '') then begin
  33.      Application.Title := 'Wild Screen Saver';
  34.   Application.CreateForm(TScrn, Scrn);
  35.   end
  36.   else
  37.     Application.CreateForm(TSsSelect, SsSelect);
  38.     Application.Run;
  39. end.
  40.  
  41.