简单用CreateThread传递自定义参数

1. 声明一个Record类 type  MyData = record   title:pchar;   str:string;   num:Integer ;   end ; PMyData = ^MyData;  2. 线程函数像这样写html Function ThreadProc(Para:PMyData):integer;stdcall; begin  result: = 0 ;   

>>阅读原文<<