delphi多线程例子 采用createThread创建多线程

一、才用createThread创建多线程，需要先声明一个多线程句柄（全局的）如：hThread：THandle；

二、声明了一个多相处句柄之后，还需要先写一个函数，在创建多线程是用来掉用的函数。

三、使用createThread创建多线程，hThread：=createThread(nil, 0, @MyThreadFun1, nil, CREATE_SUSPENDED, ID);这里线程创建起是挂起状态

createThread方法参数：

function CreateThread(
lpThreadAttributes: Pointer;           {安全设置}
dwStackSize: DWORD;                    {堆栈大小}
  lpStartAddress: TFNThreadStartRoutine; {入口函数}