用Delphi编写Windows服务程序(Winnt Service Application)

Windows的服务（Services）是一个比较实用的功能，它可以让你的程序在Windows未进行登录的时候就开始运行，且不受用户注销的影响，也不容易被用户误关闭。
但是编写服务也许不是一件容易的事情，幸好Delphi给我们提供了一个模板，可以很容易的编写一个标准的Windows服务程序。
首先，在Delphi内新建一个Service Application。
此时，Delphi已经给我们建好了一个Service程序的框架，我们只需要把我们的代码加到合适的位置就行了。
一般情况下，Service内需要一个线程来不断的工作，也许定时器也可以，但线程工作起来更好。
Delphi会生成一个可视化的Service容器，你可以放一些必要的控件在它上面（特别是DataSetProvider组件），而且由于它是服务程序类，本身是非可视的（没有界面显示的），因此不应在上面安放Edit之类的控件，服务只是应该做处理工作的，显示界面应该由其它的标准窗体或其他程序来完成。Service控件的DisplayName属性是显示在管理工具－＞服务的左边的名称的内容，而Name属性则是服务名称，当你用命令提示符来启动、停止服务时，就需要用到。
在事件OnStart内，我们应该完成启动线程之类的工作。
如：

procedure TServiceDemo.ServiceStart(Sender: TService; var Started: Boolean); var Reg:TRegistry; LogFileName,LogPath:String; slTemp:TStringList; begin CoInitialize(nil); //uses ActiveX;本函数在ActiveX中定义，引用它 Reg:=TRegistry.Create; Reg.RootKey:=HKEY_LOCAL_MACHINE; Reg.OpenKey('/SoftWare/BHome/Education',True); LogPath:=Trim(Reg.ReadString('LogPath')); SourceConnStr:=Trim(Reg.ReadString('SourceConnStr')); if Trim(LogPath)='' then LogPath:='C:/'; Reg.CloseKey; Reg.Free; if RightStr(LogPath,1)<>'/' then LogPath:=LogPath+'/'; LogFileName:=LogPath+FormatDateTime('yyyymmdd',Now)+'Log.txt'; Try if not FileExists(LogFileName) then begin slTemp:=TStringList.Create; slTemp.Clear; slTemp.SaveToFile(LogFileName); slTemp.Free; end; AssignFile(LogFile, LogFileName); Append(LogFile); Except Started:=False; Exit; End; Started:=True; try AC_Source:=TADOConnection.Create(nil); Q_Source:=TADOQuery.Create(nil) ; Q_Source.Connection:=AC_Source; try AC_Source.Close; AC_Source.ConnectionString:=SourceConnStr; AC_Source.Open; SYSLog('与源数据库连接成功！'); DBOK:=True; Except on E:Exception do begin DBOK:=False; SYSLog('数据库连接失败！'+E.Message); end; End; finally MyPHSThread := TPHSSendThread.Create(); MyPHSThread.FreeOnTerminate:=True; MyPHSThread.Priority:= tpLower ; end; end; 

   在OnStop事件内，我们应该停止线程，并释放打开的资源，需要注意的是当你停止线程时，一般用Terminate方法，在线程内用Terminated属性来判断是否需要结束线程，而由于是线程，和主进程是时间运行的，有可能你刚好在进行Terminate时，线程已经刚进行过Terminated判断，正在进行比较费时的处理工作，而此时主进程立即执行Terminate后就进行释放资源的工作时，会造成线程执行错误，因此应该等到线程真正的正确停止后，主进程才能进行资源释放工作。
如：

procedure TServiceDemo.ServiceStop(Sender: TService; var Stopped: Boolean); begin try MyPHSThread.Terminate; while __ThreadIsRun do sleep(1000); AC_Source.Close; CloseFile(LogFile); FreeAndNil(Q_Source); FreeAndNil(AC_Source); CoUnInitialize; Except End; Stopped:=True; end;