写一个服务程序的模板

//这个服务程序模板的作用是每隔一定的时间做一定事件处理。有时会在服务中创建一个窗体，来实现与窗体的交互(一般都是添写配置信息)，这里需要注意一下：与窗体交互一定要把服务的InterActive属性设置为True;

 

//unit UntService; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, DB, ADODB,Registry,ActiveX; type TService2 = class(TService) con1: TADOConnection; procedure ServiceExecute(Sender: TService); procedure ServiceAfterInstall(Sender: TService); procedure ServiceContinue(Sender: TService; var Continued: Boolean); procedure ServiceStart(Sender: TService; var Started: Boolean); procedure ServicePause(Sender: TService; var Paused: Boolean); private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; var Service2: TService2; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin Service2.Controller(CtrlCode); end; function TService2.GetServiceController: TServiceController; begin Result := ServiceController; end; procedure TService2.ServiceExecute(Sender: TService); begin while not Terminated do begin ServiceThread.ProcessRequests(True); //do some thing; //这里VCL创建了一个线程,并在线程中实现了一个消息泵来接收消息 //你可以把循环检测的事件加到这里 Sleep(100); end; end; procedure TService2.ServiceAfterInstall(Sender: TService); var Registry: TRegistry; key: String; begin Registry := TRegistry.Create; try Registry.RootKey := HKEY_LOCAL_MACHINE; key := 'System/CurrentControlSet/Services/' + Name; if Registry.KeyExists(key) then begin Registry.OpenKey(key, True); Registry.WriteString('Description', 'XXXXXXXXXXXXX'); Registry.CloseKey; end; finally Registry.Free; end; end; procedure TService2.ServiceContinue(Sender: TService; var Continued: Boolean); begin Continued := True; end; procedure TService2.ServiceStart(Sender: TService; var Started: Boolean); begin CoInitialize(nil); try con1.Open; except LogMessage('Database connection error'); end; Started := True; end; procedure TService2.ServicePause(Sender: TService; var Paused: Boolean); begin Paused := True; end; end.