文章标题:如何正确给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就完成了，希望对你有所帮助。
如有错误请指教。
