function
CreateThread(
lpThreadAttributes: Pointer;
{
安全设置
}
dwStackSize: DWORD;
{
堆栈大小
}
lpStartAddress: TFNThreadStartRoutine;
{
入口函数
}
lpParameter: Pointer;
{
函数参数
}
dwCreationFlags: DWORD;
{
启动选项
}
var
lpThreadId: DWORD
{
输出线程 ID
}
): THandle; stdcall;
{
返回线程句柄
}
在 Windows 上建立一个线程, 离不开 CreateThread 函数;
既然有建立, 就该有释放, CreateThread 对应的释放函数是: ExitThread
CreateThread 的最后一个参数是 "线程的 ID";
既然可以返回句柄, 为什么还要输出这个 ID? 现在我知道的是:
1、线程的 ID 是唯一的; 而句柄可能不只一个, 譬如可以用 GetCurrentThread 获取一个伪句柄、可以用 DuplicateHandle 复制一个句柄等等.
2、ID 比句柄更轻便.
CreateThread 的倒数第二个参数 dwCreationFlags(启动选项) 有两个可选值:
0: 线程建立后立即执行入口函数;
Create_SUSPENDED: 线程建立后会挂起等待.
可用 ResumeThread 函数是恢复线程的运行;
可用 SuspendThread 再次挂起线程.
这两个函数的参数都是线程句柄, 返回值是执行前的挂起计数.
线程入口函数的参数是个无类型指针(Pointer), 用它可以指定任何数据;
关于无类型指针的传递请参考:简单用CreateThread传递自定义参数 地址:http://www.cnblogs.com/rogee/archive/2010/09/19/1831091.html
入口函数, 这个函数的标准返回值应该是 DWORD, 不过这函数在 Delphi 的 System 单元定义的是: TThreadFunc = function(Parameter: Pointer): Integer;
这个返回值有什么用呢?等线程退出后, 我们用 GetExitCodeThread 函数获取的退出码就是这个返回值!
如果线程没有退出, GetExitCodeThread 获取的退出码将是一个常量 STILL_ACTIVE (259); 这样我们就可以通过退出码来判断线程是否已退出.
第二个参数是分配给线程的堆栈大小.
这首先这可以让我们知道: 每个线程都有自己独立的堆栈(也拥有自己的消息队列).
什么是堆栈? 其实堆是堆、栈是栈, 有时 "栈" 也被叫做 "堆栈".
它们都是进程中的内存区域, 主要是存取方式不同(栈:先进后出; 堆:先进先出);
"栈"(或叫堆栈)适合存取临时而轻便的变量, 主要用来储存局部变量;
譬如 for i := 0 to 99 do 中的 i 就只能存于栈中, 你把一个全局的变量用于 for 循环计数是不可以的.
栈是私有的但堆是公用的, 如果不同的线程都来使用一个全局变量有点乱套;
解决这个问题 Delphi 为我们提供了一个类似 var 的 ThreadVar 关键字, 线程在使用 ThreadVar 声明的全局变量时会在各自的栈中留一个副本, 这样就解决了冲突. 不过还是尽量使用局部变量, 或者在继承 TThread 时使用类的成员变量, 因为 ThreadVar 的效率不好, 据说比局部变量能慢 10 倍.
CreateThread 的第一个参数 lpThreadAttributes 是指向 TSecurityAttributes 结构的指针, 一般都是置为 nil, 这表示没有访问限制;