Delphi中的线程类--之（2）

Delphi中的线程类

猛禽[Mental Studio]

http://mental.mentsu.com

之二

首先就是构造函数：

constructor TThread.Create(CreateSuspended: Boolean);

begin

  inherited Create;

  AddThread;

  FSuspended := CreateSuspended;

  FCreateSuspended := CreateSuspended;

  FHandle := BeginThread(nil, 0, @ThreadProc, Pointer(Self), CREATE_SUSPENDED, FThreadID);

  if FHandle = 0 then

    raise EThread.CreateResFmt(@SThreadCreateError, [SysErrorMessage(GetLastError)]);

end;

虽然这个构造函数没有多少代码，但却可以算是最重要的一个成员，因为线程就是在这里被创建的。

在通过Inherited调用TObject.Create后，第一句就是调用一个过程：AddThread，其源码如下：