如何正確給CreateThread傳遞參數

   在網上我們也可以找到相關例子，不過用的是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就完成了，希望對你有所協助。
如有錯誤請指教。