如何通过POSTMESSAGE发送一个结构 ( 积分: 20 )

如何通过POSTMESSAGE发送一个结构，通过postmessage函数中参数发送一个结构，（因为我需要发送3个参数，而POSTMESSAGE中参数只有两个，我想将这三个参数做成一个结构发送）
谢谢

如何通过POSTMESSAGE发送一个结构，通过postmessage函数中参数发送一个结构，（因为我需要发送3个参数，而POSTMESSAGE中参数只有两个，我想将这三个参数做成一个结构发送）
谢谢

type
TBeforeChoicePackage = packed record
Desc: string;
DefFlag: string;
end;
PBeforeChoicePackage = ^TBeforeChoicePackage;
var
BeforeChoicePackage: TBeforeChoicePackage;
PostMessage(Handle, WM_MESSAGE, LongInt(@BeforeChoicePackage), 0);
procedure TObject.WmMessage(var Message: TMessage);
var
BeforeChoicePackage: TBeforeChoicePackage;
begin
BeforeChoicePackage := TBeforeChoicePackage( Message.wParam^ );
...
end;

差不多就是上面的样子

OK 谢谢