Application.Terminate und initialization

[nahpets]

Hallo,

habe keine Lösung, aber einen Vorschlag:

Delphi-Quellcode:

begin
  ProgHandle := CreateMutex(nil, True, 'Anwendung'); 
  if GetLastError <> ERROR_ALREADY_EXISTS then 
  begin 
    Application.Initialize;
    Application.CreateForm(TfmMain, fmMain);
    Application.CreateForm(TfmLogSort, fmLogSort);
    Application.CreateForm(TfmDatenauswertung, fmDatenauswertung);
    Application.Run;
  end;
  CloseHandle(hMutex); 
end.

Du muss (denk ich mal) das Programm beenden, bevor die ersten Initialisierungen aufgerufen werden.