1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE hMutex;
try
{
hMutex=CreateMutex(NULL,FALSE,"Application");
if(GetLastError()==ERROR_ALREADY_EXISTS) return 0;
Application->Initialize();
Application->Title = "Cathild";
SetCurrentDir(ExtractFileDir(ParamStr(0)) + "\\");
Application->CreateForm(__classid(TApplicathilde), &Applicathilde);
Application->CreateForm(__classid(TFImageGarde), &FImageGarde);
Application->CreateForm(__classid(TModifconduite), &Modifconduite);
Application->CreateForm(__classid(TProgfacultative), &Progfacultative);
Application->CreateForm(__classid(TPassword), &Password);
Application->CreateForm(__classid(TChangePassword), &ChangePassword);
Application->CreateForm(__classid(TDispersion), &Dispersion);
Application->CreateForm(__classid(TCoderegulation), &Coderegulation);
Application->CreateForm(__classid(TParamgestener), &Paramgestener);
Application->CreateForm(__classid(TConsom), &Consom);
Application->CreateForm(__classid(TRalenti), &Ralenti);
Application->CreateForm(__classid(TGrillelec), &Grillelec);
Application->CreateForm(__classid(TOptimisationregulservo), &Optimisationregulservo);
Application->CreateForm(__classid(TNumsortnomsech), &Numsortnomsech);
Application->CreateForm(__classid(TOptimisations), &Optimisations);
Application->CreateForm(__classid(TReglageSeuils), &ReglageSeuils);
Application->CreateForm(__classid(TAfficDebug), &AfficDebug);
Application->CreateForm(__classid(TTemps), &Temps);
Application->CreateForm(__classid(TEvents), &Events);
Application->CreateForm(__classid(TGestentre), &Gestentre);
Application->CreateForm(__classid(TCharge), &Charge);
Application->CreateForm(__classid(TCourbes), &Courbes);
Application->CreateForm(__classid(TChoixSechoir), &ChoixSechoir);
Application->CreateForm(__classid(TModifReduite), &ModifReduite);
Application->CreateForm(__classid(TModifPassword), &ModifPassword);
Application->CreateForm(__classid(TSuperviseurgeneral), &Superviseurgeneral);
Application->CreateForm(__classid(TChargement), &Chargement);
Application->CreateForm(__classid(TControlManu), &ControlManu);
Application->CreateForm(__classid(TGraphique), &Graphique);
Application->CreateForm(__classid(TSaisieArticle), &SaisieArticle);
Application->CreateForm(__classid(TEnregistrement), &Enregistrement);
Application->CreateForm(__classid(TAssistantSechage), &AssistantSechage);
Application->CreateForm(__classid(TContinuerCycle), &ContinuerCycle);
Application->CreateForm(__classid(TVerrouillage), &Verrouillage);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0; |
Partager