| [251] | 1 | PROGRAM oni_trainer;
|
|---|
| 2 | USES
|
|---|
| 3 | Forms, Windows,
|
|---|
| 4 | Unit1 IN 'Unit1.pas' {Form1},
|
|---|
| 5 | Unit2 IN 'Unit2.pas',
|
|---|
| 6 | Unit3 IN 'Unit3.pas' {CharForm},
|
|---|
| 7 | Unit4 IN 'Unit4.pas' {Form4},
|
|---|
| 8 | Unit5 IN 'Unit5.pas' {Form5},
|
|---|
| 9 | Unit6 IN 'Unit6.pas' {Form6},
|
|---|
| 10 | Unit7 IN 'Unit7.pas' {Form7},
|
|---|
| 11 | Unit8 IN 'Unit8.pas',
|
|---|
| 12 | Unit9 IN 'Unit9.pas' {Form9},
|
|---|
| 13 | Unit10 IN 'Unit10.pas' {Form10},
|
|---|
| 14 | Unit11 IN 'Unit11.pas' {Form11},
|
|---|
| 15 | Unit12 IN 'Unit12.pas' {Form12},
|
|---|
| 16 | Unit13 IN 'Unit13.pas' {Form13},
|
|---|
| 17 | Unit14 IN 'Unit14.pas' {Form14},
|
|---|
| 18 | Unit15 IN 'Unit15.pas' {Form15};
|
|---|
| 19 |
|
|---|
| 20 | {$R *.res}
|
|---|
| 21 | CONST
|
|---|
| 22 | MutexName = 'ONI-Trainer';
|
|---|
| 23 | VAR
|
|---|
| 24 | hMutex: THandle;
|
|---|
| 25 |
|
|---|
| 26 | BEGIN
|
|---|
| 27 | hMutex:=CreateMutex(NIL, True, MutexName);
|
|---|
| 28 | IF (hMutex=0) OR (GetLastError=ERROR_ALREADY_EXISTS) THEN BEGIN
|
|---|
| 29 | CloseHandle(hMutex);
|
|---|
| 30 | Halt;
|
|---|
| 31 | END;
|
|---|
| 32 | Application.Initialize;
|
|---|
| 33 | Application.Title := 'ONI-Trainer';
|
|---|
| 34 | Application.CreateForm(TForm1, Form1);
|
|---|
| 35 | Application.CreateForm(TForm5, Form5);
|
|---|
| 36 | Application.CreateForm(TForm6, Form6);
|
|---|
| 37 | Application.CreateForm(TForm7, Form7);
|
|---|
| 38 | Application.CreateForm(TForm10, Form10);
|
|---|
| 39 | Application.CreateForm(TForm11, Form11);
|
|---|
| 40 | Application.CreateForm(TForm12, Form12);
|
|---|
| 41 | Application.CreateForm(TForm13, Form13);
|
|---|
| 42 | Application.CreateForm(TForm4, Form4);
|
|---|
| 43 | Application.CreateForm(TForm14, Form14);
|
|---|
| 44 | Application.CreateForm(TForm15, Form15);
|
|---|
| 45 | Application.Run;
|
|---|
| 46 | CloseHandle(hMutex);
|
|---|
| 47 | END.
|
|---|
| 48 |
|
|---|
