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.