一个很奇怪的Windows服务程序问题
星之瀚海 2005-05-13 01:38:09 我写了一个服务程序,里面有一个处理业务的线程,线程是循环的,初非服务被停止,但在实际应用中发现,有时隔1分钟,有时隔10分钟,线程就会停止运行,不知道是什么原因,下面是主体的代码
procedure TBusiToAction.Execute;
var
lIsFirst:Boolean;
begin
{ Place thread code here }
FStartTime := GetTickCount;
lIsFirst := True;
while not Terminated do
begin
if ((GetTickCount - FStartTime) < FInterval ) and ( not lIsFirst)then
Sleep(100)
else
begin
log.WriteLog('-------执行业务逻辑----------');
DoBusiness;
lIsFirst := False;
FStartTime := GetTickCount;
end;
end;
end;