说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

运用Delphi编写Windows NT中服务程序

HTML文档下载 WORD文档下载 PDF文档下载
运用Delphi编写Windows NT中服务程序

---- 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开发“瘦”单机数据库应用系统 用Delphi如何实现VFP中的Cache特性 用Delphi设计数据库应用的几点体会 在我们日常工作中,常会碰到这样一个难题:一大堆-Delphi资料 用DELPHI制作应用软件 用Dephi 程 序 维 护Paradox 数 据 表 的 索 引-Delphi资料 用Dephi程序维护Paradox数据表的索引-Delphi资料 用InstallShield制作数据库应用系统的安装程序-Delphi资料 在BDE中使用ASCII-Delphi资料 在DBMemo中查找文字-Delphi资料 在Delphi 程序中维护DBF 数据库 在Delphi 中 利 用 Tbatch 组 件 完 成 数 据 批 处 理 在Delphi 中使用计算出的字段 在Delphi3 程 序 中自 动 检 测、 建 立 数 据 库 别 名 和 表 格 在Delphi3程序中自动检测、建立数据库别名和表格 在Delphi4 BDE中配置Access数据库 在Delphi5 中修改了Delphi自带的VCL Source文件后怎样重建Delphi的库文 在DELPHI程序中动态设置ODBC数据源 在DELPHI程序中使用ADO对象存取ODBC数据库 在DELPHI程序中自动设置ODBC数据源 在Delphi的DBGrid中插入其他可视组件 在Delphi的Socket编程中如何从服务器向指定的客户机发送信息? 在Delphi动态生成定义数据库 在Delphi中处理数据库日期型字段的显示与输入 在Delphi中简单实现多重查询 在Delphi中建立和使用别名 在DELPHI中使用ADO对象存取ODBC数据库 在Delphi中使用DBF数据 在Delphi中随意控制DBGrid 每一行的颜色 在Delphi中自动检测、建立数据库别名和表格 在存储过程中使用use database-Delphi资料 移动文件 DataSource的问题 cookie的问题 我学C语言有一段时间了但我发现没有什么成果?? 我想做一个象MSN类似的界面,请教各位应该怎么整啊? 简单的textbox控件问题,再次散分了! 有一个1024K*32位的存储器,由128K*8位的DRAM芯片构成,看下面对吗? colordialog的问题 win98窗口上的最大化最小化按钮变成了数字 请问,如何以编程的方式创建SQL server的实例的? 请问“[System.ComponentModel.DesignerCategory("Code")]的意义? table1.FieldbyName('Company').asstring:= ExpandFileName (filelistbox1.filename); 网卡使用的问题!在线等候 会c/s的高手请帮忙! 为什么我的winme关机后在开机总是要检查磁盘,可是我是正常关机呀,烦死我了。谁能解决给100分。 各位高高手,有没有MS SQLServer6.5的JDBC驱动?救人一命胜造十级**,忘了咋说的了. 大家给我解答我不会用,请再帮帮忙(前后贴200分一起结,谢谢) 在一个dataset中,对于不是主键的列中的值如何进行查询? 星球大战前传2:美国人全面攻击 有谁知道在哪有IIS6.0下载呢 请问在mysql中怎么建立自动增加的字段呢 , 好想在mysql中没有那么强大的工具。 请问哪里可以下载中文的windows Media Player SDK? 高分求助 数据备份 为什么Access中排序顺序不正确?<在线等待> 在菜单中增加CIMAGELIST中的位图,这样写对吗? 为什么受伤的总是我?只因为我是菜鸟??? 寻一个asp.net(codebehind)实现的数据库访问的demo sybase事务处理的问题 我的程序用的Access,,运行时出现“无法为更新引集定位:一些值可能已在最后读取后改变”什么原因? 怎样加大在sql server中存储图片字段的大小 这回真的是“高手请进”了!!!! 求救,javabean编译问题?? 如何获取Dispatch接口中的事件? 小小问题:如何清空用ADO连接的数据库表中的记录 大家由没有碰到这样的问题? 100分请高手给澄清关于数据库引擎的几个概念 请问 ucs2编码如何转化成gb格式的? 在Ado2.1中如果已经Addnew,如何撤消而不引起错误? 打开新窗口的问题 谁知道那里有电子版的《C语言编程思想》 如何获得输入得BSTR 字符串得值? 帮我想想! 为什么我运行 ms-project2000会出错!错误内容在里面,请大家指教!!! 哈工大附近有卖3号足球(最小的那种,可以在室内玩)的吗? 修改?? 关于CPU 100%使用率的问题 如何使用VB访问MySQL数据库? 视图窗口的windows句柄和视图窗口的指针有什么区别? SQLServer出现问题,急!! 如何像Windows Form一样,弹出 .aspx的Web文件。 请教一个问题。急 改成打比方的句子海鸥起起落落飞翔着.要表达更生动、形象.给我写好的 我看了如果很好 在12月11日晚上9点给我答案! 汽车发动机原理是什么? 液态氯化氢为什么不是电解质?不是说酸、碱、盐都是由离子组成,都是电解质吗 阅读题:映山红, 改成打比方的句子,急`~(1)果园里桃花开了,远远望去很美.(2)八路军把敌人的阵地完全包围了.(3)春雨很细,也很轻,柔柔的洒向大地. 如何区分强、弱电解质?如何区分强弱电解质?怎样能知道某物质是否完全电离呢?必须所有的都背吗?没有什么规律吗?都有哪些盐是属于弱电解质的?问题多了点……我是高一的…… 为什么以公元前475年做为春秋和战国时期的分界点? 一支粗细均匀的蜡烛长20cm.点燃5分钟后,蜡烛缩短2cm;点燃12分钟后,蜡烛还剩多少厘米?比例解 怎样判断哪些是碱性氧化物,哪些是酸性氧化物?怎么判断强弱酸、强弱碱以及强弱电解质?有什么窍门 公元前七百年到公园前476年是春秋到战国经历的时间吗 太阳下山了.打个比方句子写下来,怎么写. 游泳和跑步哪个氧气消耗大跑马拉松和游泳哪个耗氧大 公元前476年发生了什么事,为什么以这一年为界分开春秋与战国? 为什么卡诺循环效率最高 24题BCD分别解释一下? 电子 质子 离子 原子 区别和联系 线路板清洗剂里面含双氧水吗? “胡萝卜,鸡蛋和咖啡”这篇文章中富有哲理的一个句子摘录下来,并把自己的感受写下来 关于电子质子分子原子离子的所有知识点 卡诺循环的效率不是负数吗n=1-T1/T2 已知T1是高温热源 T2是低温热源 则T1大于T2 则 T1/T2必定大于1啊,1-T1/T2 则肯定小于零啊 求解是怎么回事? 请你提出两种不同方案,证明HA酸是弱电解质 原子,电子,质子,中子,离子,核子,分子的区别与联系? 一支粗细均匀的蜡烛长20cm.点燃5分钟后,蜡灶缩短2cm,点燃12分钟后,蜡烛还剩多少厘米? 下列事实能说明HA酸是弱电解质的是( )下列事实能说明HA酸是弱电解质的是( )A 浓度相同时HA溶液的导电性比强酸弱,B 10mL 1mol/L的HA溶液与10mL 1mol/L的NaOH溶液恰好完全反应,C NaA溶液的PH>7,D 原子,分子,离子,质子, 一支蜡烛长20cm,点燃5分钟后,蜡烛说短2cm,点燃12分钟后,蜡烛还剩多少厘米?比例解 证明次氯酸是弱电解质那个选项   A.次氯酸在光照下分解   B.次氯酸钙溶液中通入适量二氧化碳气体产生白色沉淀   C.次氯酸与氢氧化钠中和   D.次氯酸和亚硫酸作用 为什么把公元前475年作为战国的开始?这种说法是何时出现的? 一支粗细均匀的蜡烛长20厘米,点燃5分钟后,蜡烛缩短了2cm,点燃12分钟后还剩多少cm? 怎么证明hclo是弱电解质? 公元前475年到公元前221年为战国时期,是我国奴隶制向封建制转变时期duicuo. 一只粗细均匀的蜡烛长20厘米.点燃5分钟后,蜡烛缩短2㎝;点燃12分钟后,蜡烛还剩多少厘米 在一根长1.5L的不能伸长的轻绳上,穿过一个质量为m的光滑小圆环c,然后把绳的两端固定在竖直轴上,绳的A、B端在竖直轴上的距离为L/2,转动竖直轴带动c环在水平面内做匀速圆周运动,当绳的B端 初一一元一次方程应用题:京泸高速公路全长1262千米 不饱和烃消去反应生成卤代烃的化学方程式卤代烃加成反应生成不饱和烃的化学方程式不饱和烃发生加成反应生成醇的化学方程式醇发生消去反应生成不饱和烃的化学方程式 竖直平面上的圆周运动,绳模型和杆模型求详细讲解,包括各种临界点分析.好的要追加分数的. 电动车电池,用铅酸电池好,还是磷酸铁锂电池好呢 怎么辨别人的体质是酸性还是碱性?汪涵和何炅为什么合不来? 摄制电影时,为了拍摄下落物体的特写镜头,做了一个线速度味事物的1/49的模型.放电影时,走片的速度为每秒24张,为了使画面逼真,拍摄时走片速度应为多大?模型的云广东速度应为实物的多少倍 白菜-甘蓝可育吗?为什么? 为什么人体会有酸性和碱性的区分?是酸性好呢?还是碱性好? 质点在连续相等的时间t内所通过的位移之比为(下标为罗马数字1.2.3.4)S1:S2:S3:……:SN=1:3:5:……:(2n-1)质点在连续相等的位移段内,连续各段所用的时间之比为(下标为数字)t1: 被染色的衣服怎样恢复原色? 人的人身体是否有酸性或碱性之说? 我还没有学到机器能守恒,请用圆周运动的知识讲解一下,小球质量为m,用长为L的轻质细线悬挂在O点,在O点的正下方L/2处有一钉子P,把细线沿水平方向拉直,如图所示.无初速度地释放小球,当细线 战国公元前几年到公元前几? 一根蜡烛长20厘米,点燃后每小时燃烧5厘米,燃烧时剩下的高度h(厘米)与时间t(小时)之间的关系图( ) 《胡萝卜.鸡蛋和咖啡》 哪一句话是富有哲理的句子.是最后一段 父亲说的话吗 永不凋谢的杜鹃花阅读答案 必修二生物.为什么答案是d而不是b. 请问:易挥发成无味气体的试剂有哪些?(1)易挥发成无味气体的多为液体试剂,请问这类试剂有哪些?(2)也可两种试剂合成为无味气体的,如有请告知.(3)有些固体试剂也易挥发,但挥发较 卢宁高速公路全长约275千米,量得这条高速公路的图上距离是5.5厘米,这幅地图的比例尺是多少 为什么不选A而选 刚刚那个《胡萝卜.鸡蛋和咖啡》哲理的句子,.简而言之后面要不要写 在比例尺是1:5000000的地图上,量得卢宁高速公路长5.5厘米一辆汽车以每小时125千米的速度行完全程需要几小时 必修一生物,为什么答案是A 为什么同为电解质 盐和碱在熔融状态下可以导电,酸不可以?我刚上高一,老师没和我们解释什么是共价化合物.请问这和共价化合物有什么关系,什么是共价化合物 泸泞高速公路全长约275千米,在一幅地图上量得这条高速公路长2.5厘米.这幅地图的比例尺是多少?在另一幅地图上量得这条高速公路长5厘米,这幅地图的比例尺是多少?拿衣服缩小的程度大一些? 慢走一个小时消耗多少热量? 还原糖实验 胡萝卜代替苹果可以用胡萝卜代替苹果作为实验材料吗?原因是什么?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘