用delphi7编写windows服务程序

《用delphi7编写windows服务程序》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、用delphi7编写windows服务程序总结一、服务程序的创建delphi编写服务程序非常简单，点击菜单File－>New－>Other－>New属性页－>ServiceApplication，系统自动会创建基本的代码。这里需要说明的是，在“New属性页”中还有一个Service，这个Service和ServiceApplication还是有区别的，应该说ServiceApplication的范围大，它可以包含几个Service。一个ServiceApplication可以创建几个Service，service继承自TService，界面表现和TDataModel类

2、似，做过数据库的朋友肯定都不陌生，区别是TDataModel是用来放数据库连接及操作组件的容器，而TService则是可以存放很多没有界面的组件，如indy的IDtcpclient等。二、重要属性及事件说明属性：DisplayName显示名称Name名称，当你用命令提示符来启动、停止服务时，就需要用到Interactive与界面交互的选项事件：OnCreate：类似于Tform的OnCreateOnDestroy：类似于Tform的OnDestroyOnExecute：非常重要，一般写成下面whilenotTerminateddobeginSleep(10);Serv

3、iceThread.ProcessRequests(False);end;OnPause：服务暂停OnShutdown：不太清楚OnStart：服务启动，重要OnStop：服务停止，重要三、服务的依赖关系因为我的服务是要连接数据库的，所以必须要等sqlserver的服务起来之后，我才能起来，这样才能连接数据库，因此这里面有个依赖关系的问题。可以在属性Dependencies中增加一项，选择MSSQLSERVER。四、服务与界面的通讯服务也是可以创建form的，只是只是这个窗口，在服务启动时显示，服务停止后就关闭了。而我想做一个就象sqlserver2000的服务管理器

4、哪样的界面，不论服务启动是否，都可以显示，而且也可以在界面上直接控制服务。所以我就又建了一个应用，而这个应用和原来服务的通讯用自定义消息来传递。比如，有人通过控制面板停止服务了，服务必须通知界面上的状态。Delphi获取Windows系统服务的状态functionServiceGetStatus(sMachine,sService:string):DWord;varschm,schs:SC_Handle;ss:TServiceStatus;dwStat:DWord;begindwStat:=0;schm:=OpenSCManager(PChar(sMachine),N

5、il,SC_MANAGER_CONNECT);if(schm>0)thenbeginschs:=OpenService(schm,PChar(sService),SERVICE_QUERY_STATUS);if(schs>0)thenbeginif(QueryServiceStatus(schs,ss))thendwStat:=ss.dwCurrentState;CloseServiceHandle(schs);end;CloseServiceHandle(schm);end;Result:=dwStat;end;{判断某服务是否安装，未安装返回true，已安装返回f

6、alse}functionServiceUninstalled(sMachine,sService:string):boolean;beginResult:=0=ServiceGetStatus(sMachine,sService);end;{判断某服务是否启动，启动返回true，未启动返回false}functionServiceRunning(sMachine,sService:string):boolean;beginResult:=SERVICE_RUNNING=ServiceGetStatus(sMachine,sService);end;{判断某服务是否停

7、止，停止返回true，未停止返回false}functionServiceStopped(sMachine,sService:string):boolean;beginResult:=SERVICE_STOPPED=ServiceGetStatus(sMachine,sService);end;Delphi如何停止、启动windows系统服务//下面是写了一个启动服务的函数StartService，用来启动服务。。。functionStartService(AServName:string):Boolean;//useWinSvcvarSCManag