Problem mit Nachricht aus DLL

[Christian Seehase]

Moin Chris,

ich hab' mir das mal, auf die Schnelle, so gefakt:

Delphi-Quellcode:

procedure TForm1.DllMessage(var Msg: TMessage);

var
  MouseHook : PMOUSEHOOKSTRUCT;

begin
  MouseHook := PMOUSEHOOKSTRUCT(msg.lParam);
  case Msg.wParam of
     WM_MOUSEMOVE: begin   Label1.Caption := InttoStr(MouseHook^.pt.x);
                           Label2.Caption := InttoStr(MouseHook^.pt.y);
                   end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);

var
  msg       : TMessage;
  MouseHook : MOUSEHOOKSTRUCT;

begin
  MouseHook.pt.x := 100;
  MouseHook.pt.y := 200;
  msg.WParam := WM_MOUSEMOVE;
  msg.LParam := lParam(@MouseHook);
  DLLMessage(msg);
end;

Funktioniert allerbest.

Hast Du lParam in der DLL auch wieder korrigiert, so dass es die Adresse enthält?