delphi怎样编写服务程序

Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络银拆管理人员而言是非常重要的，Delphi作为一种高效、快速、强大的开发语言，为开发NT服务程序提供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有关的NT服务程序变得非常简单，下面以编写一个NT定期备份程序为例，介绍如何运用Delphi编写Windows NT的服务程序。

打开Delphi编辑器，选择菜单中的File|New，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TServiceApplication是一个封装NT服务程锋腊枣序的类，它包含一个TService1对象以及服务程序的装卸、注册、取消方法。

将TService1对象的属性做下列更改：

DisplayName与Name改为：DataBackup，ServiceStartName属性改为系统管理员用户(如DOMAIN\Administrator)和Password则输入用户密码

这样，服务程序运行时将自己以该用户的权限 *** 作NT。

这样，一个NT服务程序编写已经完成，在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/install，程序编译运行后，一个名为DataBackup的NT服务程序已经安装好，你可以双击控制面板中的服务项目，将会看到此服务程序，只是此服务程序没有任何东西而已；在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/uninstall，程序编译运行后，系统将会将此服务程序卸掉。局链

服务程序是通过控制一个线程的生成、暂停、继续、停止来达到服务目的的，因此我们必须加入一个TSession对象来编写文件自动备份代码，在Delphi编辑器中选择菜单中的File|New，在New Item中选择Thread Object项，Delphi会提示你为该TSession对象输入一个名称(输入DataCopy),Delphi便生成了一个基于TSession的DataCopy对象，并提供了一个Execute过程供重载，我们要Execute过程中输入以下程序：

var

Hour, Min, Sec, MSec: Word

TimeStamp, DirectoryEdit1, DirectoryEdit2: String

SearchRec: TSearchRec

Source, Temp, Dest: Pchar

F, F1: THandle

FF, FF1: WIN32_FIND_DATA

Begin

// 每次文件备份执行时间

TimeStamp:= '12:00'

// 文件备份源目录

DirectoryEdit1:= 'C:\temp'

// 文件备份目录

DirectoryEdit2:= 'C:\temp1'

While True do

Begin

DecodeTime(Time, Hour, Min, Sec, MSec)

IF Trim(TimeStamp) = Format('%-2.2d:%-2.2d',[Hour, Min]) then

Begin

GetMem(Source, 250)

GetMem(Dest, 250)

GetMem(Temp, 250)

StrPcopy(Dest, DirectoryEdit2 + '\' + FormatDateTime('YYYYMMDD', Date))

CreateDirectory(Dest, Nil)

IF FindFirst(DirectoryEdit1 + '\*.*', faAnyFile, SearchRec) = 0 then

Begin

Repeat

StrPcopy(Source, DirectoryEdit1 + '\' + SearchRec.Name)

StrPcopy(Dest, DirectoryEdit2+'\' + FormatDateTime('YYYYMMDD', Date) + '\' + SearchRec.Name)

CopyFile(Source, Dest, False)

Until FindNext(SearchRec) <>0

end

SysUtils.FindClose(SearchRec)

FindClose(F)

FreeMem(Source, 250)

FreeMem(Dest, 250)

FreeMem(Temp, 250)

end

Sleep(60000)

end

end

此线程执行时每隔一分钟将检查一次时间，看是否到了备份时间，如果是则将DirectoryEdit1中的所有文件拷到DirectoryEdit2目录中去。

现在编写服务控制DataCopy线程的代码，在TdataBackup对象中的OnStart、OnStop、OnPause、OnContinue事件中分别输入如下代码：

Procedure TDataBackup.DataBackupStart(Sender: TService

var Started: Boolean)

begin

DataThread:= TDataCopy.Create(False)

Started := True

end

procedure TDataBackup.DataBackupStop(Sender: TService

var Stopped: Boolean)

begin

DataThread.Terminate

Stopped := True

end

procedure TDataBackup.DataBackupPause(Sender: TService

var Paused: Boolean)

begin

DataThread.Suspend

Paused := True

end

procedure TDataBackup.DataBackupContinue(Sender: TService

var Continued: Boolean)

begin

DataThread.Resume

Continued := True

end

这样一个文件自动备份程序已经完成，编译好后，加上/install参数执行程序，系统会将此服务程序安装，由于服务程序中StartType属性为stAuto，NT每次启动时，此程序自动执行，你可以在控制面板中的服务项目来启动、暂停、恢复、停止它，也可以加上/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到，用Delphi编写NT服务器程序十分方便，而且你也可以在TService对象上加许多非可视化控件来与数据库关联，实现很多复杂的功能。

如果不需要用户界面，那么按照服务程序的方式开发就可以了，Windows Service：

具体开发步骤:

1、New->Other->Service Application

2、现在一个服务程序的框架已经搭起来了，打开Service1窗口，有几个属性说明一喊岁下：

AllowPause:是否允许暂停

AllowStop: 是否允许停止

Dependencies: 设置服务的依存关系，服务的启动是否依赖于某个服务或者组

DisplayName: 在“服务”窗口显示的名称

Interactive: 设置为true时可以和Windows桌面进行交互，如果我们想在服务里显示窗体的话此设置就要设置为true，另外ServiceType必须为stWin32

Password: 密码

StartType: 启动方式

3、返友如果我们想让服务与窗体交互，步骤如下：

在工程中新建一个窗体fmMain

然后在Service1的OnStart中写代码

procedure TService1.ServiceStart(Sender: TServicevar Started: Boolean)

begin

Started := True

Svcmgr.Application.CreateForm(TFmMain, fmMain)

FmMain.show

end

OnStop的代码

procedure TService1.ServiceStop(Sender: TServicevar Stopped: Boolean)

begin

Stopped := True

FmMain.Free

end

这样在服务启动的时候就会显示出新建的那个窗体

4、编译完成后，我们可以安装服务了，安装方法为：

在cmd窗口中执行 appname /install，

如F:\Book\DService\Project1.exe /install

这样服务就安装完成了

5、同样，删除时也是在cmd窗口输入命令 appname /uninstall

如F:\Book\DService\Project1.exe /uninstall

关于其他：

1、关于服务程序的调试

如果我们开发的服务有多个窗体，程序的调试无疑是个大问题

其实服务程序稍微一改就能改成一个标准的Win32工程，为了防止不停的变来变去，我们可以加上一个编译条件，通过编译条件来切换生成服务程序还是普通可执行程序，假设编译条件为 NormalApp，在以下几个地方需要加入编译条件

工程文件中，单郑世睁元的引用

{$IFDEF NormalApp}

Forms,

{$ELSE}

SvcMgr,

{$ENDIF}

工程初始化

{$IFDEF NormalApp}

Application.Initialize

Application.CreateForm(TFmMain, FmMain)

Application.Run

{$ELSE}

if not Application.DelayInitialize or Application.Installing then

Application.Initialize

Application.CreateForm(TService1, Service1)

Application.Run

{$ENDIF}

这样我们就可以通过增加/删除NormalApp的编译条件来切换服务程序和普通窗口程序了

系统服务(system services) 是指执行指定系统功能的程序、例程或进程，以便支持其他程序，尤其是底层(接近硬件)程序。

在 delphi 语笑誉言中创建系统服务程序，比较便捷，delphi 专门提供了一个 Service Application 的模板向导。

步骤如下：

1、在 IDE 里，点击菜单 File -->New -->Other

2、点击 Service Application -->OK

3、delphi 会自动生成一个服务程序的框模散架，包含一个 Unit 和一个 Project:

4、设置一下服务程序的名称、是否允许交互等属性：

5、根据服务程旦升氏序功能设计需要，添加和编写实现代码。

6、编译代码，最终生成服务程序(.exe）。

---