2013-08-16 11:59:20| 分类： delphi xe4 | 标签： |举报 |字号大中小 订阅
创建线程时
...
thread1 = new MyThread(false);
thread1 -> FreeOnTerminate = false; // 不自动释放线程
thread1 -> Resume(); // 开始执行线程
...
在Execute方法中循环检查Terminated是否为true,如果为true,则退出循环.
在主线程中结束线程时采用以下语句
...
thread1->Terminated(); // 将thread1中的Terminated变量设为true
thread->WaitFor(); // 等待线程结束
delete thread; // 释放线程对象占用的空间
...
方法一:
直接用操作系统的WaitForSingleObject 来判断线程是否激活，try catch 所有错误
方法二：
判断 Thread->Handle 是否为空
方法三：
在线程做个Semaphore 然后在Terminate 的时候释放一次 主线程判断
我自己是这样做的，不知到是否有更好的方法，感觉方法一是最准确的，把延时设短一点
如果有更好的方法请高手门务必贴出来，这个也是我一直比较头疼的地方
//--------------------------------------------------------------------------------------------------------------------------------
方法一:
直接用操作系统的WaitForSingleObject 来判断线程是否激活，try catch 所有错误
MSDN 里面就有说啊
int sec=1;
DWORD dw=WaitForSingleObject(Thread->Handle,sec);
WaitForSingleObject 是如何使用的？
评论