delphi与多线程编程之多线程同步之 CriticalSection.pdfVIP

function CreateThread( lpThreadAttributes:Pointer; dwStackSize: DWORD; lpStartAddress:TFNThreadStartRoutine; {入口函数的指针} lpParameter: Pointer; dwCreationFlags:DWORD; varlpThreadId: DWORD ): THandle; stdcall; 到了入口函数了, 学到这个地方, 我查了一个入口函数的标准定义, 这个函数的标准返回值 应该是 DWORD, 不过这函数在 Delphi 的 System 单元定义的是: TThreadFunc = function(Parameter:Pointer): Integer; 我以后会尽量使用 DWORD 做入口函数的返回值. 这个返回值有什么用呢? 等线程退出后, 我们用 GetExitCodeThread 函数获取的退出码就是这个返回值! 如果线程没有退出,GetExitCodeThread 获取的退出码将是一个常量 STILL_ACTIVE (259); 这样我们就可以通过退出码来判断线程是否已退出. 还有一个问题: 前面也提到过, 线程函数不能是某个类的方法! 假如我们非要线程去执行类 中的一个方法能否实现呢?