NT 服务程序在系统启用后就开始工作了,即使没有用户登录。
用delphi做nt程序也很简单了,new-> other -> new页签 --> service Application. 便会生成一个NT服务框架,TserviceApplice . 默认生成1个 Tservice . 一个NT服务框架可以生成很多service ,一个service 代表一个服务。 设置 Tservice 实例的displayName and Name . 设置 run-params-> /install /nuinstall net start ***; net parse *** , net stop ** ;分别是注册服务,卸载服务, 启动、暂停,停止服务。
运用Delphi编写Windows NT中服务程序 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对象上加许多非可视化控件来与数据库关联,实现很多复杂的功能。 |