用delphi7编写windows服务程序

下载后可任意编辑用 delphi7 编写 windows 服务程序总结 一、服务程序的创建 delphi 编写服务程序非常简单，点击菜单 File－>New－>Other－>New 属性页－>Service Application，系统自动会创建基本的代码。这里需要说明的是，在“New 属性页”中还有一个 Service，这个 Service 和 Service Application 还是有区别的，应该说 Service Application 的范围大，它可以包含几个 Service。 一个 Service Application 可以创建几个 Service，service 继承自 TService，界面表现和TDataModel 类似，做过数据库的朋友肯定都不陌生，区别是 TDataModel 是用来放数据库连接及操作组件的容器，而 TService 则是可以存放很多没有界面的组件，如 indy 的IDtcpclient 等。 二、重要属性及事件说明 属性：DisplayName 显示名称 Name 名称，当你用命令提示符来启动、停止服务时，就需要用到 Interactive 与界面交互的选项 事件：OnCreate：类似于 Tform 的 OnCreate OnDestroy：类似于 Tform 的 OnDestroy OnExecute：非常重要，一般写成下面while not Terminated dobegin Sleep(10); ServiceThread.ProcessRequests(False);end; OnPause：服务暂停 OnShutdown：不太清楚 OnStart：服务启动，重要下载后可任意编辑 OnStop：服务停止，重要三、服务的依赖关系 因为我的服务是要连接数据库的，所以必须要等 sql server 的服务起来之后，我才能起来，这样才能连接数据库，因此这里面有个依赖关系的问题。可以在属性 Dependencies 中增加一项，选择 MSSQLSERVER。四、服务与界面的通讯 服务也是可以创建 form 的，只是只是这个窗口，在服务启动时显示，服务停止后就关闭了。而我想做一个就象 sql server 2000 的服务管理器哪样的界面，不论服务启动是否，都可以显示，而且也可以在界面上直接控制服务。所以我就又建了一个应用，而这个应用和原来服务的通讯用自定义消息来传递。比如，有人通过控制面板停止服务了，服务必须通知界面上的状态。Delphi 猎取 Windows 系统服务的状态function ServiceGetStatus(sMachine, sService: string ): DWord;var schm, schs: SC_Handle;ss: TServiceStatus;dwStat : DWord;begindwStat := 0;schm := OpenSCManager(PChar(sMachine), Nil, SC_MANAGER_CONNECT);if (schm > 0) thenbegin schs := OpenService(schm, PChar(sS...