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