Delphi中的线程类--之（2）[1]

delphi中的线程类

之二

首先就是构造函数：

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;

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