简单用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 ;

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

 

 

转载于:https://www.cnblogs.com/rogee/archive/2010/09/19/1831091.html