@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 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 von
negaH:
Die sich ergebenden Fragen sind nun:
- WaitForInputIdle() welche Parameter hast du benutzt ?
WaitForInputIdle(SEInfo.hProcess, 5000);
Zitat von
negaH:
- ist deine Anwendung eine Consolen Anwendung ?
Nein
Zitat von
negaH:
- wird deine Anwendung mit Application.Run gestartet ?
begin
Application.Initialize;
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.
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 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?!?
Delphi-Quellcode:
function PeekMessage(var lpMsg: TMsg; hWnd: HWND;
wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): BOOL; stdcall;
Gottes Segen