home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / StartRight / source.zip / StartRight.dpr < prev    next >
Text File  |  2004-10-13  |  2KB  |  57 lines
  1. program StartRight;
  2.  
  3. uses
  4.   Forms,
  5.   Windows,
  6.   SysUtils,
  7.   Dialogs,
  8.   UnitFrmMain in 'UnitFrmMain.pas' {frmMain},
  9.   UnitStartupMover in 'UnitStartupMover.pas',
  10.   UnitStartupRunner in 'UnitStartupRunner.pas',
  11.   UnitMyKeys in 'UnitMyKeys.pas',
  12.   UnitFrmDummyRunner in 'UnitFrmDummyRunner.pas' {frmDummyRunner},
  13.   UnitErrorLog in 'UnitErrorLog.pas',
  14.   UnitFormEdit in 'UnitFormEdit.pas' {FrmEdit},
  15.   UnitListViewMover in 'UnitListViewMover.pas',
  16.   UnitFrmAbout in 'UnitFrmAbout.pas' {FrmAbout},
  17.   UnitItemManager in 'UnitItemManager.pas',
  18.   UnitSpecialPaths in 'UnitSpecialPaths.pas',
  19.   UnitFrmOptions in 'UnitFrmOptions.pas' {FrmOptions},
  20.   UnitUtils in 'UnitUtils.pas',
  21.   UnitMyRegistry in 'UnitMyRegistry.pas',
  22.   UnitCPUUsage in 'UnitCPUUsage.pas',
  23.   UnitFrmAutoTuneError in 'UnitFrmAutoTuneError.pas' {FrmAutoTuneError};
  24.  
  25. {$R *.res}
  26. var M : integer;
  27. begin
  28.     m := Windows.CreateMutex(nil, true, pchar(ExtractFileName(Application.exename)));
  29.     if (Windows.GetLastError = 0) then begin
  30.  
  31.         Application.Initialize;
  32.  
  33.         if (ParamCount <> 0) then begin
  34.             Application.ShowMainForm := false;
  35.         end;
  36.  
  37.  
  38.         Application.CreateForm(TfrmMain, frmMain);
  39.   Application.CreateForm(TFrmAutoTuneError, FrmAutoTuneError);        
  40.   Application.CreateForm(TFrmOptions, FrmOptions);
  41.   Application.CreateForm(TFrmEdit, FrmEdit);
  42.   Application.CreateForm(TFrmAbout, FrmAbout);
  43.   Application.CreateForm(TfrmDummyRunner, frmDummyRunner);
  44.  
  45.   FrmMain.MyCreate;
  46.   Application.Run;
  47.  
  48.         if m <> 0 then Windows.CloseHandle(m);
  49.     end else begin
  50.         ShowMessage('Only one instance of StartRight can be run. Terminating.');
  51.  
  52.         Application.Terminate;
  53.         Halt(0);
  54.     end;
  55.  
  56. end.
  57.