Delphi 服务程序[2] TService 属性、事件

时间:2021-01-21 09:29:18   收藏:0   阅读:35

Delphi 服务程序[2] TService 属性、事件

1、TService属性:

2、TService事件:

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);   
procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    Sleep(10);
    ServiceThread.ProcessRequests(False);
  end;
end;
procedure TService1.ServicePause(Sender: TService; var Paused: Boolean);
procedure TService1.ServiceContinue(Sender: TService; var Continued: Boolean);

  

 

 

创建时间:2021.01.21  更新时间:

 

原文:https://www.cnblogs.com/guorongtao/p/14306151.html

评论(0
© 2014 bubuko.com 版权所有 - 联系我们:wmxa8@hotmail.com
打开技术之扣,分享程序人生!