| 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 |
|
