关于多线程的问题 用按钮触发一个线程和其他语句,请问如何才能让线程先执行完然后再执行下面的语句? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 为什么我写a:TEvent时不行?是不是要引用什么单元? 我晓得F1是什么了,可我还是不晓得Event是怎么用的 转贴:等待线程结束如果要等待一个线程结束,可以这样做:在线程得私有变量中申明:FEvent:TSimpleEvent;published部分:property Event:TSimpleEvent read FEvent;Create中:FEvent:=TSimpleEvent.Create;Destroy中:FEvent.Free;在Execute中的第一行:FEvent.ResetEvent;在线程得结束(一般是最后一行代码)后添加:FEvent.SetEvent;然后在另外需要等待线程结束的地方把原来的WaitForSingleObject(AThread.Handle,????)改成WaitForSingleObject(AThread.Event.Handle)即可。 delphi根据数据库服务器时间来限制软件使用的问题,请教! 怎样限制在DBGrid增加记录(就是限制Tab和向下的箭头增加) 开发平台的革命——前程MIS开发平台 使用DSPACK开发疑难问题高分求助 ReportBuilder的简单问题 用IstallShield打包如何实现多个程序的打包安装 读写这样的数据用什么最快? webservice 如何测试指定端口是否被占用??急!急!急!急!急! C/S型数据库及MIDAS的服务器端必须运行在NT上吗?Win98行不行? 难死一万程序员的一个小问题,看来基础也应该多学学 请各位大侠帮忙。。如何获得MYSQL的安装路径?
在线程得私有变量中申明:
FEvent:TSimpleEvent;
published部分:
property Event:TSimpleEvent read FEvent;Create中:
FEvent:=TSimpleEvent.Create;Destroy中:
FEvent.Free;在Execute中的第一行:
FEvent.ResetEvent;
在线程得结束(一般是最后一行代码)后添加:
FEvent.SetEvent;然后在另外需要等待线程结束的地方把原来的
WaitForSingleObject(AThread.Handle,????)改成WaitForSingleObject(AThread.Event.Handle)即可。