nonVCL Programm nur einmal starten

[DP-Maintenance]

Dieses Thema wurde von "Christian Seehase" von "Object-Pascal / Delphi-Language" nach "Windows API" verschoben.
Wie der Titel schon vermuten lässt gehört das besser nach Windows API.

[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!
:wink:

[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, :mrgreen:, "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

Delphi-Quellcode:

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 :thuimb:

[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! :thuimb:
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.