c语言里 如何取得线程的lpparameter'参数,如何正确给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就完成了，希望对你有所帮助。

如有错误请指教。