Delphi 消息TMessage的使用示例

消息发送：
var
  sData: TCopyDataStruct;
begin
  sData.lpData := PChar(sUrl);
  SendMessage(g_Hwnd, WM_ThreadMsg, 1, Cardinal(@sData));   //向主线程发启动加载消息


消息接收：
procedure WMThreadMessage(var msg: TMessage); message WM_ThreadMsg;

procedure TfCEF.WMThreadMessage(var msg: TMessage);
var
  cdds: TcopyDataStruct;
  s: string;
begin
  case msg.WParam of
    0:
      begin
//        cdds := PcopyDataStruct(msg.LParam)^;
//        ThreadLOG(StrPas(PChar(cdds.lpData)));
      end;
    1:
      begin
        cdds := PcopyDataStruct(msg.LParam)^;
        s := StrPas(PChar(cdds.lpData));
      end;
  end;
end;