Anwendung nur einmal starten

[ruppi98]

Hallo,

der Aufgabenplaner ist so eingestellt, das nur eine Instanz läuft.
Das Problem ist, wenn sich der Benutzer Angemeldet hat und das Programm nochmals
startet.

Abfragen, ob das Programm bereits läuft, wird über die bekannten API-Funktionen
durchgeführt ( EnumProcesses, EnumProcessModules, GetModuleBaseName).

Hänge mal den Code als Datei an.

Ruppi

[Uwe Raabe]

Ich würde das, wie Frank schon erwähnte, über einen globalen Mutex machen.

[ruppi98]

Hallo Uwe,

habe Mutex lange nicht mehr benutzt. Hättest Du da ein kurzen Snippet?

Hatte mal folgendes vor langer langer Zeit:

HANDLE hMutex;
const char* myMutex = "mein programm.exe";

hMutex = CreateMutex(NULL, true, (wchar_t*) myMutex);
if (GetLastError() == ERROR_ALREADY_EXISTS) {
ShowMessage("Nur eine Instanz erlaubt !");
PostQuitMessage(0); // Mutex gibts schon,Programm beenden

Hatte aber irgendwie nicht so richtig geklappt.

Ruppi

[himitsu]

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)

[ruppi98]

Hallo Uwe,

danke für das Snippet. Werde es mal probieren, ob ich damit Erfolg habe.

Danke an alle die bisher geantwortet haben.

Wünsche ein schönes Wochenende.

Werde mich nächste Woche mal melden, ob ich Erfolg hatte.

Ruppi

[Uwe Raabe]

Wichtig ist hier der Prefix "Global" damit der Mutex nicht auf die aktuelle Session beschränkt ist.