So sieht ProcessMesasges aus:
Delphi-Quellcode:
procedure ProcessMessages(hWnd: DWORD);
var
Msg : TMsg;
begin
while PeekMessage(Msg, hWnd, 0, 0, PM_REMOVE) do
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
Du wirst wohl auf alle Fälle noch das
Handle des Fensters mitgeben und obige Version nehmen müssen, da in der
DLL ja dein Fentser nicht bekannt ist.