Hallo,
@hoika: den Breakpoint habe ich gesetzt, obwohl onDestroy bisher gar nicht existiert hat.
Ich habe also mal label1.caption := 'test'; reingeschrieben.
Beim durchsteppen kommt erst der ganze label caption Kram, und dann landet er,
auch bei anderen Befehlen (also close() statt label.caption) bei dem
Mutex-Befehl:
Delphi-Quellcode:
const
MutexName = '
Helfomat';
//-->der Name, unter dem Windows dein Programm anspricht
var
hMutex: THandle;
begin
hMutex := CreateMutex(
NIL, True, MutexName);
//-->Versuch, dem Programm den obigen Mutex zuzuweisen
if (hMutex = 0)
OR (GetLastError = ERROR_ALREADY_EXISTS)
then
begin
CloseHandle(hMutex);
halt;
end;
Application.Initialize;
Application.CreateForm(TF_Navigation_705_Abfrage, F_Navigation_705_Abfrage);
Application.CreateForm(TF_Hier_Starten, F_Hier_Starten);
Application.CreateForm(TF_SM, F_SM);
Application.Run;
CloseHandle(hMutex);
Dieser Code steht bei meiner "program"-datei, also der "Programmname.dpr".
Merkwürdigerweise läuft der Prozess auch nur weiter, nachdem ich ins
zweite Formular gewechselt bin. Wenn ich nur Form1 aufmache, ist alles ok.
Noch jemand ne gute Idee?
litotes