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
|
begin
CoInitialize(nil); // Initialization de la librairie
CoInitializeSecurity(nil, -1, nil, nil, RPC_C_AUTHN_LEVEL_NONE,
RPC_C_IMP_LEVEL_IMPERSONATE, nil, EOAC_NONE, nil);
Application.Initialize;
Parametres:=TParametresProgramme.Create;
Repartiteur:=TRepartiteur.Create;
MainThreadRepartiteur:=TRepartiteurThreadPrincipal.Create(Repartiteur);
UtilisateurEnCours:=TUtilisateur.Create(LireUserName);
Trace:=TTraceur.Create(UtilisateurEnCours.LogsFile);
Application.ShowMainForm:=True;
Application.Title:='xxxxxx';
Application.CreateForm(TMainFrm, MainFrm);
Application.CreateForm(TfrmChoixFormat, frmChoixFormat);
Application.Run;
if Assigned(Trace) then begin
Trace.EmpileChaine('Fin de l''application.');
Trace.ViderBuffer;
end;
if Assigned(MainThreadRepartiteur) then begin
FreeAndNil(MainThreadRepartiteur);
end;
if Assigned(Repartiteur) then begin
Repartiteur.Terminate;
Repartiteur.Resume;
FreeAndNil(Repartiteur);
end;
if Assigned(Trace) then begin
{$IFDEF DEBUG}
Trace.EmpileChaine('Finfin OK.');
{$ENDIF}
Trace.EmpileChaine('-------------------------------------------------------');
Trace.EmpileChaine('');
Trace.ViderBuffer;
end;
application.ProcessMessages;
CoUninitialize;
OleUninitialize();
Application.Terminate;
end. |
Partager