如何正确给CreateThread传递参数

 如何正确给CreateThread传递参数

文章标题:如何正确给CreateThread传递参数？
文章作者:JJony
文章来源:http://blog.csdn.net/jzj_jony
注意:您可任意转载，但请注明作者和来源
    在网上我们也可以找到相关例子，不过用的是Delphi的TThread类，我个人不太爱用，一个线程也弄

的那么麻烦，不过各有各的好处，这里就不谈论Delphi的TThread类了，我们以在线程里运行MessageBoxA

显示一对话框为例（也就是线程MessageBoxA）。

我们先看看CreateThread的函数定义:

function CreateThread(lpThreadAttributes: Pointer;
                      dwStackSize: DWORD;
                      lpStartAddress: TFNThreadStartRoutine;
                      lpParameter: Pointer;
                      dwCreationFlags: DWORD;
                      var lpThreadId: DWORD): THandle; stdcall;

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

ThreadProc函数定义:
Function ThreadProc(lpParameter:Pointer):DWORD;stdcall;

下面给出具体实例:
因为我们要在线程里执行MessageBoxA所以线程函数可以这样写:

Function ThreadProc(lpParameter:Pointer):DWORD;stdcall;
var
 h:hmodule;
 MyMessagebox:function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;stdcall;
begin
 result:=0;
 h:=LoadLibrary('user32.dll');
 if h>0 then
 begin
  @MyMessagebox:=GetProcAddress(h,'MessageBoxA');
  if @MyMessagebox<>nil then
  MyMessageBox(0 ,'线程MessageBoxA测试','提示',0);
  freeLibrary(h);
 end;
end;
创建线程:
createthread(nil,0,@ThreadProc,p,0,TheThread);

上面我们动态调用了MessageBoxA并显示信息，这样就出现了问题，因为我们不可能每显示一个

MessageBoxA消息都要手动定义一个ThreadProc过程，那么我们如何做呢，就是利用lpParameter参数传递
lpParameter是指针类型，而MessageBoxA最主要的两个参数是Title和Msg,因此我们可以定义自己的结构
type
 MYPARA=record
  title:pchar;
  str:pchar;
 end;
PMYPARA=^MYPARA;
这样我们的ThreadProc过程就可以这样写
Function ThreadProc(Para:PMYPARA):DWORD;stdcall;
var
 h:hmodule;
 MyMessagebox:function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;stdcall;
begin
 result:=0;
 h:=LoadLibrary('user32.dll');
 if h>0 then
 begin
  @MyMessagebox:=GetProcAddress(h,'MessageBoxA');
  if @MyMessagebox<>nil then
  MyMessageBox(0 ,Para^.str,Para^.title,0);
  freeLibrary(h);
 end;
end;

创建线程可以这样:
var
  P:PMYPARA;
  ThreadHandle: THandle;
  TheThread: DWORD;
begin
  getmem(p,sizeof(p));//分配内存
  ThreadHandle:=0;
try
  p.title:='测试';    //填充
  p.str:='线程MessageBoxA';
  ThreadHandle:=createthread(nil,0,@ThreadProc,p,0,TheThread);
finally
  if ThreadHandle<>0 then closehandle(ThreadHandle);
  if p<>nil then freemem(p);
end;

至此一个完整的带有参数的CreateThread就完成了，希望对你有所帮助。
如有错误请指教。