Eigene Anwendung bei Mehrfachstart beenden

[MiKaEr]

ich versuche gerade meine eigene anwendung zum test bei einem 2. start zu beenden. dazu suche ich das handle meiner anwendung BEVOR es gestartet wird.
wurde das fenster gefunden bedeutet das, dass meine anwendung bereits offen ist. also sende ich eine message mit SC_CLOSE.

Delphi-Quellcode:

begin
 hExisting := FindWindow('TMeinTestForm', nil);
 if hExisting <> 0 then
  begin
   SetForegroundWindow(hExisting);

   SendMessage(hExisting, WM_SYSCOMMAND, SC_CLOSE, 0);

   Halt(1);
  end;

 Application.Initialize;
 // ...

auf meiner form ist ein TApplicationEvent und dort steht im OnMessage-Event:

Delphi-Quellcode:

 if Msg.message = WM_SYSCOMMAND then
  if Msg.wParam = SC_CLOSE then
   showmessage('X');

sollte ich bei einem zweiten start meines programms nicht ein "X" zu sehen bekommen?

[Sir Rufo]

Um zu erkennen, ob eine Anwendung mehrfach gestartet wurde bietet sich eigentlich ein Mutex an.

Und es ist eigentlich einfacher, die neu gestartete Programm-Instanz einfach nicht starten zu lassen, als die schon laufende zu Beenden

[MiKaEr]

das ist leider aber meine aufgabe die bereits laufende zu beenden, daraufhin wieder neuzustarten und mit gewissen parametern aufzuführen

eine andere idee wäre über sendmessage einen integer zu senden, und den bei applicationevents on-message auszuwerten. dann bräuchte ich den neustart nicht.

aber wie komme ich bei OnMessage an genau diese "nachricht"?

[generic]

Ein Mutex ist übrigens eine doofe Idee auf einen Terminalserver.
Dann bekommt keiner mehr eine weitere Instanz auf.

[DeddyH]

Du kannst Dir doch eine WM_COPYDATA-Message schicken, wenn Du Daten übermitteln willst.

[MiKaEr]

das kannte ich noch nicht, klingt aber einleuchtend.

nur leider kann man nur zahlwerte und keine zeichenketten senden =/

[Sir Rufo]

Zitat von generic:

Ein Mutex ist übrigens eine doofe Idee auf einen Terminalserver.
Dann bekommt keiner mehr eine weitere Instanz auf.

Wieso das denn nicht?

Doku lesen

Zitat von Microsoft:

On a server that is running Terminal Services, a named system mutex can have two levels of visibility. If its name begins with the prefix "Global\", the mutex is visible in all terminal server sessions. If its name begins with the prefix "Local\", the mutex is visible only in the terminal server session where it was created. In that case, a separate mutex with the same name can exist in each of the other terminal server sessions on the server. If you do not specify a prefix when you create a named mutex, it takes the prefix "Local\". Within a terminal server session, two mutexes whose names differ only by their prefixes are separate mutexes, and both are visible to all processes in the terminal server session. That is, the prefix names "Global\" and "Local\" describe the scope of the mutex name relative to terminal server sessions, not relative to processes.

[DeddyH]

Zitat von MiKaEr:

nur leider kann man nur zahlwerte und keine zeichenketten senden =/

Wieso das denn? Schau Dir die COPYDATASTRUCT-Struktur mal genau an, vor allem das letzte Feld.

[Luckie]

In den Parametern von WM_COPYDATA kannst du Zeiger auf Zeichenketten übergeben. Windows sorgt bei WM_COPYDATA dafür, dass das funktioniert.

[MiKaEr]

das mit dem "letzten feld", verstehe ich übrhaupt nicht.

ich sende meinen "string" nun im ascii-format:

Delphi-Quellcode:

     iNew := 0;

     for i := 0 to Length(ParamStr(2)) - 1 do
      iNew := iNew + Ord(ParamStr(2)[i]);

     SendMessage(hExisting, WM_COPYDATA, iNew, 0);

und egal was ich mache, folgendes trifft, warum auch immer, nie ein:

Delphi-Quellcode:

 if Msg.message = WM_COPYDATA then
   showmessage(inttostr(Msg.wParam));