Problem mit Nachricht aus DLL

[neolithos]

Ersten:

Schließe in der Hook das Filemapping-Object sauber.

Zweitens:

lParam bei einer MouseHook ist vom Typ PMouseHookStruct.

Delphi-Quellcode:

procedure TForm1.DllMessage(var Msg: TMessage);
begin
  case Msg.wParam of
       WM_MOUSEMOVE: 
         with PMouseHookStruct(Msg.lParam)^ do
           begin   
             Label1.Caption := InttoStr(pt.x);
             Label2.Caption := InttoStr(pt.y);
           end;
  end;
end;