PROGRAM oni_trainer; USES Forms, Windows, Unit1 IN 'Unit1.pas' {Form1}, Unit2 IN 'Unit2.pas', Unit3 IN 'Unit3.pas' {CharForm}, Unit4 IN 'Unit4.pas' {Form4}, Unit5 IN 'Unit5.pas' {Form5}, Unit6 IN 'Unit6.pas' {Form6}, Unit7 IN 'Unit7.pas' {Form7}, Unit8 IN 'Unit8.pas', Unit9 IN 'Unit9.pas' {Form9}, Unit10 IN 'Unit10.pas' {Form10}, Unit11 IN 'Unit11.pas' {Form11}, Unit12 IN 'Unit12.pas' {Form12}, Unit13 IN 'Unit13.pas' {Form13}, Unit14 IN 'Unit14.pas' {Form14}, Unit15 IN 'Unit15.pas' {Form15}; {$R *.res} CONST MutexName = 'ONI-Trainer'; VAR hMutex: THandle; BEGIN hMutex:=CreateMutex(NIL, True, MutexName); IF (hMutex=0) OR (GetLastError=ERROR_ALREADY_EXISTS) THEN BEGIN CloseHandle(hMutex); Halt; END; Application.Initialize; Application.Title := 'ONI-Trainer'; Application.CreateForm(TForm1, Form1); Application.CreateForm(TForm5, Form5); Application.CreateForm(TForm6, Form6); Application.CreateForm(TForm7, Form7); Application.CreateForm(TForm10, Form10); Application.CreateForm(TForm11, Form11); Application.CreateForm(TForm12, Form12); Application.CreateForm(TForm13, Form13); Application.CreateForm(TForm4, Form4); Application.CreateForm(TForm14, Form14); Application.CreateForm(TForm15, Form15); Application.Run; CloseHandle(hMutex); END.