home *** CD-ROM | disk | FTP | other *** search
- program StartRight;
-
- uses
- Forms,
- UnitFrmMain in 'UnitFrmMain.pas' {frmMain},
- UnitStartupMover in 'UnitStartupMover.pas',
- UnitStartupRunner in 'UnitStartupRunner.pas',
- UnitMyKeys in 'UnitMyKeys.pas',
- UnitFrmDummyRunner in 'UnitFrmDummyRunner.pas' {frmDummyRunner},
- UnitErrorLog in 'UnitErrorLog.pas',
- UnitFormEdit in 'UnitFormEdit.pas' {FrmEdit},
- UnitListViewMover in 'UnitListViewMover.pas',
- UnitFrmAbout in 'UnitFrmAbout.pas' {FrmAbout},
- UnitItemManager in 'UnitItemManager.pas',
- UnitSpecialPaths in 'UnitSpecialPaths.pas';
-
- {$R *.res}
-
- begin
- Application.Initialize;
-
- if (ParamCount <> 0) then begin
- Application.ShowMainForm := false;
-
- end;
-
- Application.CreateForm(TfrmMain, frmMain);
- Application.CreateForm(TFrmEdit, FrmEdit);
- Application.CreateForm(TFrmAbout, FrmAbout);
- Application.CreateForm(TfrmDummyRunner, frmDummyRunner);
- if (ParamCount <> 0) then begin
- // Application.CreateForm(TfrmDummyRunner, frmDummyRunner);
- end;
-
-
- Application.Run;
- end.
-