您好，请教3个关于消息处理的类型的用法，谢谢

Question

您好，请教3个关于消息处理的类型的结构，用法
  TCopyDataStruct 
  THandle
  TWMCOPYDATA
谢谢您

Answer 1

type TWMCopyData=record ／／数据复制消息
                   Msg:Cardinal;
                   From:HWnd;
                   CopyDataStruct:PCopyDataStruct;
                   Result:longint;
                 end;
THandle ／／其实是Dword，就是Windows句柄，用来标识一个对象或消息
eg:
procedure GetdataMsg(var msg:TWMCopyData); message wm_copydata;
begin
  with msg.CopyDataStruct^ do
    begin
      Showmessage(pchar(lpdata));
    end;
end;
////////////////
SendMessage:
////////////////
var
  rh:THandle;ss:PChar;
  cds:TCopyDataStruct;
rh:=FindWindow('TMyPrj','MyPrj');
if rh>0 then
begin
s:='hello';
         cds.cbData:=length(s)+1;
         getmem(ss,cds.cbData);
         strcopy(ss,pchar(s));
         cds.lpData:=ss;
         SendMessage(rh,wm_copydata,application.handle,integer(@cds));
         freemem(ss);
         end;

Answer 2

我很早不是已经结贴了吗 ?ly_liuyang(Liu Yang) 先生得分怎么是 0 呢 ？