文件名称:了解一下Delphi的线程知识.rar
文件大小:13KB
文件格式:RAR
更新时间:2022-07-30 12:18:40
Delphi源码-系统相关
了解一下Delphi的线程知识,里面用了不少函数,比如: WResult:=WaitForSingleObject(HMutex,INFINITE); //WaitForSingleObject函数来等待一个内核对象变为已通知状态: {DWORD WaitForSingleObject( HANDLE hObject, //指明一个内核对象的句柄 DWORD dwMilliseconds); //等待时间 该函数需要传递一个内核对象句柄,该句柄标识一个内核对象, 如果该内核对象处于未通知状态,则该函数导致线程进入阻塞状态; 如果该内核对象处于已通知状态,则该函数立即返回WAIT_OBJECT_0。 第二个参数指明了需要等待的时间(毫秒),可以传递INFINITE指明要无限期等待下去。 如果等待超时,该函数返回WAIT_TIMEOUT。 如果该函数失败,返回WAIT_FAILED。 可以通过下面的代码来判断: DWORD dw = WaitForSingleObject(hProcess, 5000); //等待一个进程结束 ReleaseMutex()函数并传递一个互斥对象的句柄作为参数时,这种拥有关系就被解除,互斥对象重新 FreeOnTerminate := true; {这可以让线程执行完毕后随即释放} // Synchronize(Paint); //同步 synchronize是主线程调用的
【文件预览】:
codesc.net
----SimpleThreadDemo()
--------Project1.res(876B)
--------Unit1.dfm(6KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(10KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(15KB)