其中lpStartAddress，lpParameter，lpThreadId三个参数是必须的。
lpStartAddress参数指向的是线程执行体ThreadProc的开始地址；
lpParameter指针类型，线程的传入参数，我们如果想给线程执行体ThreadProc传递我们自己的数据，
           就要通过它了；
lpThreadId返回创建线程ID,这是我们控制线程必须的。

unit CreateThreadFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  MyParam = record    //线程的时候传递
    str:string;
  end;
  PMyParam=^MyParam; //Record类型指针
   procedure CallAgent(msg: PMyParam);stdcall;  //这个方法声明为什么要放在这里就可以,放在类TForm1里面就不行.
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{
发送消息给消息弹出代理程序   POPAgent.exe
DDZ
2010年8月28日14:44:36
}

procedure TForm1.Button1Click(Sender: TObject);
var
  PMyPara:PMyParam;
  MyPara:MyParam;
  Cthread: THandle;   //线程句柄
  Tid: DWord;
begin
  new(PMyPara) ;   //另外这里还有一个问题,这里只New开辟类型,并没有FreeMem会不会漏了
  PMyPara.str := 'h太低发出来';
  Cthread:=CreateThread(nil,0,@CallAgent,PMyPara,0,Tid); //创建一个线程，同时调用线程函数
end;

procedure CallAgent(msg: PMyParam);stdcall;
var
  HlAgent:HWND;
  ds:TCopyDatastruct;
  AgentMsg:string;
begin
 
  //showmessage(msg^.str);
  AgentMsg := msg.str;
  //Application.ProcessMessages;
  ds.cbData := Length(AgentMsg)+1;
  GetMem(ds.lpData,ds.cbData); //分配内存
  StrCopy(ds.lpData,PChar(AgentMsg)); //复制值到指针

  HlAgent :=FindWindow('TmsgpopMainCaller','调用者');
  if  HlAgent <> 0 then
  begin
    SendMessage(HlAgent,WM_COPYDATA,0,Cardinal(@ds));
  end;
  FreeMem(ds.lpData); //释放内存  这里要释放, 上面的Record记录要不要释放 呢.我这样写会报错的
end;

end.



看这个例子可以参考   CreateThread 函数与.线程间的通信方法.这两个技术点.

  procedure TMainForm.CallAgent(msg: string);
  var
    HlAgent:HWND;
    ds:TCopyDatastruct;    //定义一个TCopyDatastruct结构体变量
  begin
    AgentMsg := msg;
    ds.cbData := Length(msg)+1; //结构体的第一个元素: 长度cbData 
    GetMem(ds.lpData,ds.cbData); //分配内存,结构体的第二个参数:  数据的指针lpDATA
    StrCopy(ds.lpData,PChar(msg)); //复制值到结构指针

    HlAgent :=FindWindow('TmsgpopMainCaller','调用者');  //查找目标窗体的Handle
    if  HlAgent <> 0 then
    begin
      //ShowMessage('主' + IntToStr(Cardinal(@ds)));
      SendMessage(HlAgent,WM_COPYDATA,0,Cardinal(@ds));   //发送WM_COPYDATA消息,并带上参数 @ds
    end;
    FreeMem(ds.lpData); //释放数据内存
  end;

2.
    接收方程序:
    public 
            procedure MyMessage(var m:TWmCopyData);message WM_CopyData;   //定义一个消息响应过程,并传入一个TWmCopyData的参数
    ...
    procedure TmsgpopMainCaller.MyMessage(var m: TWmCopyData); //实现响应
    var
      msg:string;
    begin
      msg :=StrPas(m.CopyDataStruct^.lpData);    //获取参数数据
      ShowMessageForm := TShowMessageForm.Create(self,msg);  //处理
    end;