TCopyDataStruct von Pointer

[HPW]

Mit folgenden Code hooke ich eine Main-window message loop.
Dabei möchte ich eine WM_COPYDATA-message auswerten:

Zitat:

function MyWndProc(hwnd: HWND; Msg: Word; wParam: WPARAM; lParam: LPARAM): Integer; stdcall;
var
DataStrct : TCopyDataStruct;
begin
if Msg = WM_COPYDATA then
begin
DataStrct := lParam; {Das geht nicht}
showmessage(Pchar(DataStrct.lpData));
if Assigned(OrgWndProc) then
Result := CallWindowProc(@OrgWndProc, hwnd, Msg, wParam, lParam)
else
Result := DefWindowProc(hwnd, Msg, wParam, lParam);
end;

Wie komme ich über den Pointer in lParam wieder den TCopyDataStruct zurück:

DataStrct := lParam;

Hat jemand einen Tip?

[Christian Seehase]

Moin HPW,

probier's doch mal so:

Delphi-Quellcode:

// vor TCopyDataStruct deklariert
type
  PCopyDataStruct = ^TCopyDataStruct;

// In der function

var
  pDataStruct : PCopyDataStruct;

begin
  //...
    pDataStruct := PCopyDataStruct(lParam);
  //...
end;

[HPW]

Danke für den Tip.

Zitat:

rcvStr := StrPas(PCopyDataStruct(lParam).lpData);

So hat es dann funktioniert.