CreateMutex, komischer Fehler

[Koma-Code]

Hi,

ich verwende CreateMutex, damit das Programm nicht mehrmals gestartet wird.
Das komische ist aber, das Delphi einen Mutex auf dem Programmnamen (sag man das so?) reserviert.
Mein Programm lädt daraufhin immer Delphi in den Vordergrund.

Wenn mein Progrann läuft, läßt sich Delphi wiederrum nicht starten
('Programm is already running.')

:corky:

Kennt jemand diesen Fehler?

[Sharky]

Hai Koma-Code,

zeige mal wie Du den Mutex erzeugst.

[Koma-Code]

Hier:

Delphi-Quellcode:

initialization
mHandle := CreateMutex(nil,True,'Name');
if (GetLastError = ERROR_ALREADY_EXISTS) then 
 begin 
  ...
 end
  else ShowMessage ('Program is already running.');

  halt;    
end;


finalization
if mHandle <> 0 then CloseHandle(mHandle);

[Sharky]

Hmmm.... ich verwende bei meinen Programmen als "Name" immer eine GUID (Im Editor von Delphi Shift-Ctrl-G).
Der sollte dann "auf jeden Fall" eindeutig sein. Ausserdem prüfst Du falsch. Du sagst wenn der Mutex nicht existiert soll das Programm beendet werden.

Delphi-Quellcode:

initialization
mHandle := CreateMutex(nil,True,'{4A1ADBC4-25EA-42AF-8A30-35F5A4606554}');
if (GetLastError = ERROR_ALREADY_EXISTS) then 
  begin 
    ShowMessage ('Program is already running.'); 
    halt; 
  end
  else 
  begin
   
  end;
end;


finalization
if mHandle <> 0 then CloseHandle(mHandle);

[Koma-Code]

Oh,

als ich den Code abgekürzt habe,
ist es an die falsche stelle gerutscht.

Es funktioniert auch auf meinem anderem PC,
nur auf dem neuen nicht.


Aber mit der GUID klappt es :)

Danke

[sakura]

Dann bedenke mal, daß Name auch nicht unbedingt so einmalig ist ;) Wird mal wohl oft in Code-Schnippseln sehen und Programmierer sind oft zu faul die kompletten Anweisungen zu lesen :zwinker:

...:cat:...

[Koma-Code]

:lol: Bei Name stand aber schon Application.Name

[sakura]

Zitat:

Zitat von Koma-Code

:lol: Bei Name stand aber schon Application.Name

Gut, wenn der dann z.B. "Delphi-PRAXiS User Anwendung zum Durchsuchen von HDDs" ist, aber wenn der einfach nur "Windows Explorer" heißt... :mrgreen:

...:cat:...

[Sharky]

Zitat:

Zitat von Koma-Code

:lol: Bei Name stand aber schon Application.Name

Hmmm. Und dieser ist ein Leerstring wenn Du ihn nicht vorher setzt.

[Koma-Code]

Habe ich gemacht

Delphi-Quellcode:

 Application.Title := 'Koma-Mail';
 Application.CreateForm(TForm1, Form1);

Es lief ja wie gesagt auch auf den anderen PCs.