'API创建线程，线程的过程必须有1个参数
'实事证明，此API创建的线程不如 FB 语句创建的安全，
'所以用 Threadcall ，返回的指针，第1个就是【线程句柄】，可以参与API 里使用，也可以当成 线程句柄 指针
'YF_CreateThread 过程地址，1个参数
'返回线程句柄
'远程创建线程，看注入DLL
'  'CloseHandle bb   关闭线程句柄，但不会终止线程。 必须关闭线程 
'  'WaitForSingleObject   '等待函数 – 使线程进入等待状态，直到指定的内核对象被触发。
'  '例题：WaitForSingleObject(线程句柄,INFINITE) ’线程运行完后，才返回
'--------------------------------------------------------------------------
Function YF_CreateThread(ByVal ThreadFun as any ptr, ByVal Parameter as Integer) as HANDLE
   '创建线程，线程的过程必须有1个参数
   
   Function = CreateThread(Null, Null, ThreadFun, CPtr(LPVOID, Parameter), 0, Null) '返回线程句柄
   'CloseHandle bb   关闭线程句柄，但不会终止线程。 必须关闭线程
   'WaitForSingleObject   '等待函数 – 使线程进入等待状态，直到指定的内核对象被触发。
   '例题：WaitForSingleObject(线程句柄,INFINITE) ’线程运行完后，才返回
   
End Function