.Tevent建立单元:
var
myEvent:tevent; //最好是一个全局变量,
begin myEvent := tevent.Create(nil,false,true); //缺省安全等级,自动复位,初始状态为,有信号。
2.使用单元:
//×××××××××××××××××××××××.....
//-------------------
WaitForSingleObject(myEvent.Handle,INFINITE);
//---------------
AnalyseManager.Process(xxx); // 开始独占使用 myEvent.SetEvent; // 访问完成,设置为有信号
.......
end;
end;
//×××××××××××××××××××××××××××
var
myEvent:tevent; //最好是一个全局变量,
begin myEvent := tevent.Create(nil,false,true); //缺省安全等级,自动复位,初始状态为,有信号。
2.使用单元:
//×××××××××××××××××××××××.....
//-------------------
WaitForSingleObject(myEvent.Handle,INFINITE);
//---------------
AnalyseManager.Process(xxx); // 开始独占使用 myEvent.SetEvent; // 访问完成,设置为有信号
.......
end;
end;
//×××××××××××××××××××××××××××
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货