AThread=class(TThread)
public
property IsWork:boolean read FIsWork;
end;
在线程的主执行函数里用WaitForSingleObject函数等待信号
在没有信号的开始出使化FIsWork:=False;如果有信号就把
FIsWork:=True;,完成工作以后FIsWork:=False;继续用
WaitForSingleObject等待新的信号，主控制程序就是通过
IsWork来判断线程状态,通过SetEvent来分配任务
我在网吧里,写了这么多字，最开始写好了，结果我一
发出IE就挂了，真是$@$@$@%@%$,这是我第二次写的，
