home *** CD-ROM | disk | FTP | other *** search
/ Más de 2,500 Juegos / CD1.iso / ZIPDAT / 0828 / 0828.ZIP / MAGGOT.DPR next >
Text File  |  1998-03-08  |  338b  |  18 lines
  1. program Maggot;
  2.  
  3. uses
  4.   Forms, SysUtils,
  5.   Main in 'MAIN.PAS' {mainscreen};
  6.  
  7. {$R *.RES}
  8. {$D SCRNSAVE Maggot}
  9.  
  10. begin
  11.   if (ParamCount > 0) and (UpperCase(ParamStr(1)) <> '/S') then application.terminate;
  12.   if hPrevInst = 0 then
  13.   begin
  14.     Application.CreateForm(Tmainscreen, mainscreen);
  15.     Application.Run;
  16.   end;
  17. end.
  18.