MessageQueue nie leer? - WaitForInputIdle Problem

[Meta777]

Hi DP,

ich habe ein Problem mit WaitForInputIdle und zwar kehrt die Funktion bei Start eines Bestimmten Programms von mir nur mit WAIT_TIMEOUT zurück.
Nun habe ich aber keine Ahnung woran das genau liegt. Vielleicht an irgendwelchen Kompos die noch benutze (DSPack, Envision, JEDI).
Ich lass folgenden Beitrag wo Olli was von MessageQueue schrieb.
Deshlab meine Frage: Was und wo genau ist die MessageQueue? Und wie kann ich diese leeren? Oder kann ich sonst irdgendwie beeinflussen das WaitForInputIdle zurückkommt :?:

Danke im Voraus

[Christian Seehase]

Moin Meta777,

hast Du schon einmal probiert die Wartezeit hochzusetzen?
Eventuell benötigt Dein Programm einfach länger zur Initialisierung, als Du vorsiehst/erwartest.

[negaH]

WAIT_TIMEOUT das bedeutet deine Funktion kehrt nicht zurück weil keine Messages im Queue liegen.

Die sich ergebenden Fragen sind nun:

- WaitForInputIdle() welche Parameter hast du benutzt ?
- ist deine Anwendung eine Consolen Anwendung ?
- wird deine Anwendung mit Application.Run gestartet ?
- hast du einen Quelltext der das Problem demonstriert ?


Du möchtest den Messagequeue leeren ? Warum benutzt du nicht folgendes ?

Delphi-Quellcode:

procedure ClearMessageQueue;
var
  Msg: TMsg;
begin
  while PeekMessage(0, 0, $FFFF, Msg, pm_Remove) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

Gruß hagen

[Meta777]

@Christian:
Hatte erst mit INFINITE gewartet aber da kamm es nie zurück (obwohl es gestartet und bereit war).
Um das Problem zu "umgehen" hab ich im .FormCreate ein TOpenDialog erzeugt welcher sich selbst wieder schließt - Das ist allerdings seeehr unelegant... :|

Zitat:

Zitat von negaH

WAIT_TIMEOUT das bedeutet deine Funktion kehrt nicht zurück weil keine Messages im Queue liegen.

Das heißt also WaitForInputIdle() wartet solange bis ein Nachricht in der Queue ist? Ich dachte das ist genau anderstrum?

Zitat:

Zitat von negaH

Die sich ergebenden Fragen sind nun:

- WaitForInputIdle() welche Parameter hast du benutzt ?

WaitForInputIdle(SEInfo.hProcess, 5000);

Zitat:

Zitat von negaH

- ist deine Anwendung eine Consolen Anwendung ?

Nein

Zitat:

Zitat von negaH

- wird deine Anwendung mit Application.Run gestartet ?

begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.

Zitat:

Zitat von negaH

- hast du einen Quelltext der das Problem demonstriert ?

Momentan grad nicht. Da ich noch nicht weiß welche Kompo/welche Source das Problem verursacht.

Zitat:

Zitat von negaH

Du möchtest den Messagequeue leeren ? Warum benutzt du nicht folgendes ?

Delphi-Quellcode:

procedure ClearMessageQueue;
var
  Msg: TMsg;
begin
  while PeekMessage(0, 0, $FFFF, Msg, pm_Remove) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;
end;

Gruß hagen

Danke leider sind die Parameter der PeekMessage nicht kompatible mit der Windows.PeekeMessage?!? :gruebel:

Delphi-Quellcode:

function PeekMessage(var lpMsg: TMsg; hWnd: HWND;
  wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;

Gottes Segen

[negaH]

Zitat:

leider sind die Parameter der PeekMessage nicht kompatible mit der Windows.PeekeMessage?!?

Ja dann passe sie an ;)

hWnd = 0;
Msg = Msg;
wMsgFilterMin = 0;
wMsgFilterMax = $FFFF;
wRemoveMsg = pm_Remove;

Gruß Hagen

[Meta777]

Zitat:

Zitat von negaH

Zitat:

leider sind die Parameter der PeekMessage nicht kompatible mit der Windows.PeekeMessage?!?

Ja dann passe sie an ;)

hWnd = 0;
Msg = Msg;
wMsgFilterMin = 0;
wMsgFilterMax = $FFFF;
wRemoveMsg = pm_Remove;

Gruß Hagen

:oops: Hab wohl zu viel geschlafen letzt Nacht...
Mit dem Handle vom main form funzt es! Ich danke Dir! :cheers:

Shalom

Meta777