文章标题:如何正确给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就完成了,希望对你有所帮助。 如有错误请指教。 |
转:如何正确给CreateThread传递参数?
最新推荐文章于 2020-04-07 18:11:38 发布