Hänger bei Sendmessage

[Shark99]

Ich will dass nur eine Instanz meiner App läuft. Dazu erzeuge ich einen Mutex.

MutexHandle := CreateMutex(nil, True, PROGNAME); Dann überprüfe ich on eine Instanz schon da

Delphi-Quellcode:

if GetLastError = ERROR_ALREADY_EXISTS then
...

und schicke ihr eine Nachricht dass der User das Programm nochmal gestartet hat

Delphi-Quellcode:

            SendMessage( HWND_BROADCAST,
                        MyMsg,
                        MSG_STARTAGAIN,
                        0 );

Die alte Instanz emfängt die Nachricht problemlos und kann darauf reagieren (ohne die MessageQueue zu blockieren, es wird nur ein Timer gestartet).

Das ganze mit Delphi 2009 unter Win 7 x64.

Nun passiert aber merkwürdiges. Die neue Instanz hängt dauerhaft bei SendMessage und ich muss den Task mit den Taskmanager beenden.

Hab auch ohne IDE Log in eine Datei geschrieben und der Code nach SendMessage wird definitiv nicht ausgeführt.

Help!

[Popov]

Schon lange nicht mehr mit SendMessage gearbeitet. Ist es nicht so, dass SendMessage so lange nicht zurückkehrt, bis es verarbeitet wurde?

Zitat von Delphi Hilfe:

Die Funktion SendMessage sendet eine Meldung an ein oder mehrere angegebene Fenster.
SendMessage kehrt solange nicht zurück, bis die Meldung verarbeitet wurde. Die Funktion ruft die Fensterprozedur für das Fenster auf und kehrt solange nicht zurück, bis die Meldung verarbeitet wurde. Die Meldung wird, im Gegensatz zu der Funktion PostMessage, nicht in der Warteschlange plaziert.

Wie wäre es evtl. mit PostMessage?

[Dalai]

Ich mache das so ähnlich, nur mit einigen kleinen Unterschieden:

Delphi-Quellcode:

LimitInstancesMsg:= RegisterWindowMessage(PChar('LimitInstanceMessage.' + PRODUCTNAME));

hMutex:= CreateMutex(nil, True, PRODUCTNAME + PRODUCTNAME + PRODUCTCOPYRIGHT);
if GetLastError = ERROR_ALREADY_EXISTS then
begin
    SendMessage(HWND_BROADCAST, LimitInstancesMsg, 0, 0);
    Exit;
end;

Prinzipiell hat aber SendMessage, gerade bei einem Broadcast, das Problem, dass es erst zurückkehrt, wenn alle Fenster die Nachricht empfangen und verarbeitet haben (wie auch in meinem Code). Mögliche Lösungen: PostMessage statt SendMessage benutzen oder Fenster aller eigenen Instanzen suchen und die Message nur an diese senden.

MfG Dalai

[Shark99]

PostMessage() kommt leider nicht in Frage, weil es kein Broadcast unterstützt.

Habe aber eine gute Lösung gefunden und zwar SendMessageTimeOut().

[DeddyH]

Zitat von Shark99:

PostMessage() kommt leider nicht in Frage, weil es kein Broadcast unterstützt.

Da sagt das MSDN aber etwas anderes:

Zitat:

HWND_BROADCAST
((HWND)0xffff)


The message is posted to all top-level windows in the system, including disabled or invisible unowned windows, overlapped windows, and pop-up windows. The message is not posted to child windows.

[Luckie]

Warum ballerst du alle Fenster mit der Nachricht zu? Such dir das Handle deines Fenster und schicke es nur an dein Fenster.

[Shark99]

Zitat von DeddyH:

Zitat von Shark99:

PostMessage() kommt leider nicht in Frage, weil es kein Broadcast unterstützt.

Da sagt das MSDN aber etwas anderes:

Zitat:

HWND_BROADCAST
((HWND)0xffff)


The message is posted to all top-level windows in the system, including disabled or invisible unowned windows, overlapped windows, and pop-up windows. The message is not posted to child windows.

Funktioniert definitiv nicht. Habs schon vor Jahren ausführlich getestet. Man kann es absetzen, aber nichts kommt an.

[DeddyH]

Komisch, hier z.B. hat es funktioniert.

[Shark99]

Genauer gesagt funktioniert es nur mit System Messages, nicht mit User Messages.

[Bernhard Geyer]

Zitat von Luckie:

Warum ballerst du alle Fenster mit der Nachricht zu? Such dir das Handle deines Fenster und schicke es nur an dein Fenster.

Mit einer entsprechenden Umstellung heben wor vor Jahren auch den Hänger weg bekommen