Funktion wie Application.Processmessages für DLL ohne Forms

[the-networker]

Ich habe jetzt folgende Funktion bei Lucky-Online gefunden:

Delphi-Quellcode:

  Procedure : ProcessMessages
  Author    : Nico bendlin
  Date      : 2003-02-08
  Purpose   : Replacement for Application.ProcessMessages
  Arguments : hWnd: DWORD
  Result    : None
-----------------------------------------------------------------------------}
procedure ProcessMessages(hWnd: DWORD);
var
  Msg: TMsg;
begin
  while PeekMessage(Msg, hWnd, 0, 0, PM_REMOVE) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end;

aber ich weis nicht welchen Handle(hWnd) von der Procedure erwartet wird


Gruß

Uwe Lange

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]