简单用CreateThread传递自定义参数

1. 声明一个Record类

type

 MyData=record

  title:pchar;

  str:string;

  num:Integer ;

 end;

PMyData=^MyData;

 2. 线程函数像这样写

Function ThreadProc(Para:PMyData):integer;stdcall;

begin

 result:=0;

  Form1.Canvas.TextOut(10,10,Format('%s,%s,%d',[Para^.str,Para^.title,para^.num ]));

end;

 3.写下传递过程呗

procedure TForm1.btnClick(Sender: TObject);

var

  Ro:PMyData ;

  hThread: THandle;

  ThreadID: DWORD;

begin

  getmem(p,sizeof(p));//分配内存

  hThread:=0;

try

  Ro.title:='我的自定义参数';    //数据分配

  Ro.str:='测试成功';

  Rp.num := 100;

  hThread:=createthread(nil,0,@ThreadProc,Ro,0,ThreadID);

finally

  if hThread<>0 then closehandle(hThread);

  if Ro<>nil then freemem(Ro);

end;

end;

好了，这样就可以传递到自己的参数了，如下图：