Was passiert, wenn EnumProcesse, OpenProcess, EnumProcessModules oder GetModuleBaseName nicht funktionieren? (ihnen z.B. eine Berechtigung fehlt)
Niemand wertet die Fehlerfälle aus und dann wird blindlinks davon ausgegangen, das Programm liefe angeblich nicht (nur weil die Suche nicht wollte).
Selbst als Admin hat man nicht unbedingt automatisch das Recht, um auf alle fremden Prozesse zuzugreifen, vor allem nicht in anderen und sogar höherwertigen Sitzungen.
Delphi-Quellcode:
OneMutex := CreateMutex(nil, True, 'Global\xxxxxxxx');
if OneMutex = 0 then
RaiseLastOSError;
if GetLastError = ERROR_ALREADY_EXISTS then
...; // Programm läuft schon
... // Application.Run; usw.
CloseHandle(OneMutex);
Da aber Windows den
Mutex zum Programmende automatisch freigibt, ginge es auch einfach so:
Delphi-Quellcode:
if CreateMutex(nil, True, 'Global\xxxxxxxx') = 0 then
RaiseLastOSError;
if GetLastError = ERROR_ALREADY_EXISTS then
...; // Programm läuft schon
...
xxxxxxxx ist irgendein eindeutiger Name (ID, Name deines Programms, sonstwas) oder z.B. auch eine
GUID (Strg+Shift+G)