Forum: Win32/Win64 API (native code)
Delphi
by Hador,
18. Nov 2006
Es ging mir eigentlich nur darum, dass sich die zweite Instanz des Programmes nicht schließt.
Kurz könnte man den Code daher auch so darstellen:
mHandle := CreateMutex(nil, True, '{E46EF2D5-34C6-4FC1-A3BA-E9A49C0327B0}');
if GetLastError = ERROR_ALREADY_EXISTS then
Exit;
Und komischerweise hab ich grad bemerkt, dass er so auch funktioniert.
Forum: Win32/Win64 API (native code)
Delphi
by Hador,
18. Nov 2006
Jeweils 0
Also sollte es daran liegen, aber ich weiß immer noch nicht, was faclsch ist.
Forum: Win32/Win64 API (native code)
Delphi
by Hador,
18. Nov 2006
Der Sinn dieses Codes soll sein, dass die Anwendung nicht doppelt gestartet wird.
Und genau das funktioniert nicht.
Ob Exit oder App.Terminate ist egal.
Forum: Win32/Win64 API (native code)
Delphi
by Hador,
18. Nov 2006
Hallo,
ich versuche grad den doppelstart einer Anwendung zu verhindern.
Dazu hab ich in der CodeLib einen Beitrag von Luckie gefunden.
Meine Umsetzung sieht folgendermaßen aus:
var
mHandle: THandle;
i: Integer;