WM_COPYDATA zwischen Delphi- und Freepascalprogramm

[Astat]

Hallo delphifan2004, WM_COPYDATA ist in der LCL wegen Platform Kompatibilität nicht integriert, für Windows musst du

mit SetWindowLong + gwl_WndProc die WndProc anzapfen.

Anbei Sample.

Delphi-Quellcode:

var
  WProc: pointer;

function NewWndProc(Handle: hWnd; Msg, wParam, lParam: Longint): Longint; stdcall;
begin
  if Msg = WM_COPYDATA then begin
    showmessage('Treffer');
  end else
    Result := CallWindowProc(WProc, Handle, Msg, wParam, lParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  WProc := Pointer(SetWindowLong(handle, gwl_WndProc, Integer(@NewWndProc)));
end;

lg. Astat