多線程編程(2)-從CreateThread說起

function CreateThread(
　lpThreadAttributes: Pointer;　　　　　 {安全設定}
　dwStackSize: DWORD;　　　　　　　　　　{堆棧大小}
　lpStartAddress: TFNThreadStartRoutine; {入口函數}
　lpParameter: Pointer;　　　　　　　　　{函數參數}
　dwCreationFlags: DWORD;　　　　　　　　{啟動選項}
　var lpThreadId: DWORD　　　　　　　　　{輸出線程 ID }
): THandle; stdcall;　　　　　　　　　　 {返回線程控制代碼}

在 Windows 上建立一個線程, 離不開 CreateThread 函數;

TThread.Create 就是先調用了 BeginThread (Delphi 自訂的), BeginThread 又調用的 CreateThread.

既然有建立, 就該有釋放, CreateThread 對應的釋放函數是: ExitThread, 譬如下面代碼:

procedure TForm1.Button1Click(Sender: TObject);
begin
　ExitThread(0); {此句即可退出當前程式, 但不建議這樣使用}
end;

代碼注釋:

當前程式是一個進程, 進程只是一個工作環境, 線程是工作者;

每個進程都會有一個啟動線程(或叫主線程), 也就是說: 我們之前大量的編碼都是寫給這個主線程的;

上面的 ExitThread(0); 就是退出這個主線程;

系統不允許一個沒有線程的進程存在, 所以程式就退出了.

另外: ExitThread 函數的參數是一個退出碼, 這個退出碼是給之後的其他函數用的, 這裡隨便給個不帶正負號的整數即可.

或許你會說: 這個 ExitThread 挺好用的; 其實不管是用 API 還是用 TThread 類寫多線程, 我們很少用到它; 因為:

1、假如直接使用 API 的 CreateThread, 它執行完入口函數後會自動結束, 無需 ExitThread;

2、用 TThread 類建立的線程又絕不能使用 ExitThread 退出; 因為使用 TThread 建立線程時會同時分配更多資源(譬如你自訂的成員、還有它的祖先類(TObject)分配的資源等等), 如果用 ExitThread 給草草退出了, 這些資源將得不到釋放而導致記憶體泄露. 儘管 Delphi 提供了 EndThread(其內部調用 ExitThread), 這也不需要我們手動操作(假如非要手動操作也是件很麻煩的事情, 因為很多時候你不知道線程是什麼時候執行完畢的).

除了 CreateThread, 還有一個 CreateRemoteThread, 可在其他進程中建立線程, 這不應該是現在學習的重點;

現在先集中精力把 CreateThread 的參數搞徹底.

倒著來吧, 先談談 CreateThread 將要返回的 "線程控制代碼".

"控制代碼" 類似指標, 但通過指標可讀寫對象, 通過控制代碼只是使用對象;

有控制代碼的對象一般都是系統層級的對象(或叫核心對象); 之所以給我們的是控制代碼而不是指標, 目的只有一個: "安全";

貌似通過控制代碼能做很多事情, 但一般把控制代碼提交到某個函數(一般是系統函數)後, 我們也就到此為止很難瞭解更多了; 事實上是系統並不相信我們.

不管是指標還是控制代碼, 都不過是記憶體中的一小塊資料(一般用結構描述), 微軟並沒有公開控制代碼的結構細節, 猜一下它應該包括: 真實的指標地址、存取權限設定、引用計數等等.