nonVCL Programm nur einmal starten

[WeTec]

lange Rede, kurzer Sinn.

ich habs jetzt so gelöst:

Delphi-Quellcode:

var
  mHandle: THandle;    // Mutexhandle

function dlgfunc(hwnd...
begin
...
end;

begin
  mHandle := CreateMutex(nil, True, 'XYZ');
  if GetLastError = ERROR_ALREADY_EXISTS then halt;
  if mHandle <> 0 then ReleaseMutex(mHandle);
...
end.

trotz dem danke an alle beteiligten!

[MathiasSimmack]

Also, ich hoffe mal, du hast einfach nur vergessen, hier im Forum zu sagen, dass deine Dialogbox zwischen dem Erzeugen und Freigeben des Mutex aufgerufen wird. Die 3 Punkte am Ende lassen mich aber was anderes vermuten, also wundere dich nicht, wenn du dein Programm trotz Mutex mehrfach starten kannst.

Edit: Du hast Glück, , "ReleaseMutex" sorgt dafür, dass man dein Programm nur ein einziges Mal starten kann, auch wenn du ihn vor dem Erzeugen der Dialogbox freigibst.

[WeTec]

klar! stimmt ja!
mit
CloseHandle(mHandle); funktioniert es nicht.

so klappt es aber:

Delphi-Quellcode:

begin
  mHandle := CreateMutex(nil, True, 'XYZ');
  if GetLastError = ERROR_ALREADY_EXISTS then halt
  else
  begin
    // Fenster erzeugen
    ...
  end;
  if mHandle <> 0 then CloseHandle(mHandle);
end.

danke für den Hinweis

[NicoDE]

http://www.luckie-online.de/Ablage/E...co/oneinst.zip

Das Behandeln der Nachricht in Deiner Nachrichtenschleife bzw. Fensterprozedur darfst/kannst Du selbst schreiben

[WeTec]

@NicoDE: super. danke!
jetzt fehlt nur noch das das Fenster in den vordergrund geholt wird.
werd ich wohl mal mit FindWindow herum experimentieren. oder hat hier dafür jemand was one VCL da?

[NicoDE]

Da die zweite Instanz mit den Parametern versorgt wird, hindert Dich niemand daran, an der Stelle SetForegroundWindow aufrufen.