Delphi编写Windows系统服务程序【转帖】
2008-07-16 03:35
645 查看
Windows NT服务程序不同于一般的运行程序,它不需要NT登录进去,只需要开机进入NT系统便可以运行,一般用于系统服务方面的应用,学会编写NT服务程序对网络管理人员而言是非常重要的,Delphi4.0作为一种高效、快速、强大的开发语言,为开发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);
IFFindFirst(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对象上加许多非可视化控件来与数据库关联,实现很多复杂的功能。
打开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);
IFFindFirst(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对象上加许多非可视化控件来与数据库关联,实现很多复杂的功能。
相关文章推荐
- Delphi编写系统服务四:如何限制系统服务和桌面程序只运行一个
- Delphi编写系统服务四:如何限制系统服务和桌面程序只运行一个
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- Windows下编写系统服务程序的实例
- Delphi编写系统服务二:系统服务和桌面程序的区别
- delphi编写windows服务程序,含托盘
- Delphi编写系统服务二:系统服务和桌面程序的区别
- 用Delphi编写Windows服务程序
- 用Delphi编写Windows服务程序(1)
- 使用Delphi编写自动关闭Windows信使服务窗体程序
- 用Delphi编写Windows服务程序(2)
- 用Delphi编写Windows服务程序(Winnt Service Application)
- 用Delphi编写Windows服务程序(2)
- (02)C++ builder之WINDOWS系统服务编写与WINDOWS桌面程序调用
- Delphi编写系统服务五:在系统服务和桌面程序之间共享内存
- C编写Windows服务程序详细介绍
- VC编写有图形界面的Windows服务程序
- 用 C 语言编写 Windows 服务程序的五个步骤
- 如何在asp.net中编写 Windows 服务程序 [转]
- 用 C 语言编写 Windows 服务程序的五个步骤(附源代码)