写一个服务程序的模板

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

 

//unit UntService;interfaceuses 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.