多线程编程（5）-从CreateThread说起[续三]

多线程编程（5）-从CreateThread说起[续三]2009-10-11博客园万一

function CreateThread（
 lpThreadAttributes: Pointer;
 dwStackSize: DWORD;
 lpStartAddress: TFNThreadStartRoutine; {入口函数的指针}
 lpParameter: Pointer;
 dwCreationFlags: DWORD;
 var lpThreadId: DWORD
）: THandle; stdcall;

到了入口函数了, 学到这个地方, 我查了一个入口函数的标准定义, 这个函数的标准返回值应该是 DWORD, 不过这函数在 Delphi 的 System 单元定义的是: TThreadFunc = function（Parameter: Pointer）: Integer; 我以后会尽量使用 DWORD 做入口函数的返回值.

这个返回值有什么用呢？

等线程退出后, 我们用 GetExitCodeThread 函数获取的退出码就是这个返回值！

如果线程没有退出, GetExitCodeThread 获取的退出码将是一个常量 STILL_ACTIVE （259）; 这样我们就可以通过退出码来判断线程是否已退出.

还有一个问题: 前面也提到过, 线程函数不能是某个类的方法！假如我们非要线程去执行类中的一个方法能否实现呢？

尽管可以用 Addr（类名.方法名）或 MethodAddress（"published 区的方法名"）获取类中方法的地址, 但都不能当做线程的入口函数, 原因可能是因为类中的方法的地址是在实例化为对象时动态分配的.

后来换了个思路, 其实很简单: 在线程函数中再调用方法不就得了, 估计 TThread 也应该是这样.

下面的例子就尝试了用线程调用 TForm1 类中的方法, 并测试了退出码的相关问题.

本例效果图: