windows服务编程

柔情只为你懂 2022-08-10 14:40 240阅读 0赞

WindowsNT下Service的编程

\[ 2005-12-6 22:03:00 | By: 风吹雨点飘 \]

\----此例中原程序使用Delphi编制，老妖将之改成CB版。：D

\----WindowsNTServer提供多种功能强大的服务（Service）,例如FTP,WWW或远程登录服务,另外常用的数据库服务器也是以Service的形式存在于NTServer上的,如Sybase SQLServer For NT。Service一般在NT启动时自动启动,在NT关机时停止。但是有时用户可能想手工启动、暂停、停止某项Service,这就需要在控制面板中进行配置,对于不太熟悉NT的用户来说比较困难;对于软件开发人员,有时需要在软件中访问和操作某项Service,甚至可能需要开发新Service的提供给用户使用。上面两种情况都可以通过对Service的编程来解决。对Service的编程涉及到NT的内核,比较复杂且相关资料较少,给软件开发人员带来很多困难,笔者通过对WindowsNT的API的分析找到了相应的编程方法,再此介绍给大家。

\----在WindowsNT下,各种Service都存在service control manager database中,因此我们可以通过对service control manager database进行操作来实现对Service的编程。下面介绍常用的函数：

## 1：SC\_HANDLE **OpenSCManager**(LPCTSTR lpszMachineName,LPCTSTR lpszDatabaseName,DWORD fdwDesiredAccess); ##

\----Open SCManager 函数打开指定计算机上的service control manager database。其中参数lpszMachineName指定计算机名,若为空则指定为本机。参数lpszDatabaseName指定要打开的service control manager database,默认为空。

\----参数fdwDesiredAccess指定操作的权限,可以为下面取值之一

SC\_MANAGER\_ALL\_ACCESS //所有权限

SC\_MANAGER\_CONNECT //允许连接service control manager

SC\_MANAGER\_CREATE\_SERVICE //允许创建服务对象并把它加入service control manager database

SC\_MANAGER\_ENUMERATE\_SERVICE //允许枚举service control manager database中的服务

SC\_MANAGER\_LOCK //允许锁住service control manager database

SC\_MANAGER\_QUERY\_LOCK\_STATUS //允许获取servicecontrolmanagerdatabase的封锁信息

\----函数返回值：函数执行成功则返回一个指向service control manager database的句柄,失败则返回NULL。

## 2：SC\_HANDLE OpenService(SC\_HANDLE schSCManager,LPCTSTR lpszServiceName,DWORD fdwDesiredAccess); ##

\----OpenService函数打开指定的Service。

\----其中参数schSCManager是指向service control manager database的句柄,由OpenSCManager函数返回。

\----参数lpszServiceName要打开的服务的名字,注意大小写。

\----参数fdwDesiredAccess指定操作的权限,可以为下面取值之一

SERVICE\_ALL\_ACCESS //所有权限

SERVICE\_CHANGE\_CONFIG //允许更改服务的配置

SERVICE\_ENUMERATE\_DEPENDENTS //允许获取依赖于该服务的其他服务

SERVICE\_INTERROGATE //允许立即获取服务状态

SERVICE\_PAUSE\_CONTINUE //允许暂停和唤醒服务

SERVICE\_QUERY\_CONFIG //允许获取服务配置

SERVICE\_QUERY\_STATU //允许通过访问service control manager获取服务状态

SERVICE\_START //允许启动服务

SERVICE\_STOP //允许停止服务

SERVICE\_USER\_DEFINE\_CONTROL //允许用户指定特殊的服务控制码

\----函数返回值：函数执行成功则返回指向某项服务的句柄,失败则返回NULL。

## 3：BOOL QueryServiceStatus(SC\_HANDLE schService,LPSERVICE\_STATUS lpssServiceStatus); ##

\----QueryServiceStatus函数返回指定服务的当前状态。

\----其中参数schService是指向某项服务的句柄,由OpenService函数返回,且必须SERVICE\_QUERY\_STATUS的权限。

\----参数lpssServiceStatus中存放返回的服务状态信息,结构如下

typedefstruct\_SERVICE\_STATUS

DWORD dwServiceType; //服务类型

DWORD dwCurrentState; //当前状态

DWORD dwControlsAccepted; //服务可接受的控制码

DWORD dwWin32ExitCode; //Win32出错代码

DWORD dwServiceSpecificExitCode;//服务出错代码

DWORD dwCheckPoint; //用于跟踪服务长时间操作

DWORD dwWaitHint; //服务某一操作的最大允许时间,以毫秒为单位

\}SERVICE\_STATUS,\*LPSERVICE\_STATUS;

\----函数返回值：函数执行成功则返回True,失败则返回False。

## 4：BOOLStartService(SC\_HANDLE schService,DWORD dwNumServiceArgs,LPCTSTR \* lpszServiceArgs); ##

\----StartService函数启动指定的服务。

\----其中参数schService是指向某项服务的句柄,由OpenService函数返回,且必须有SERVICE\_START的权限。

\----dwNumServiceArgs为启动服务所需的参数的个数。

\----lpszServiceArgs为启动服务所需的参数。函数返回值：函数执行成功则返回True,失败则返回False。

## 5：BOOL ControlService(SC\_HANDLE hService,DWORD dwControl,LPSERVICE\_STATUS lpServiceStatus); ##

\----ControlService函数向Win32service发送控制码。

\----其中参数hService是指向某项服务的句柄,由OpenService函数返回。

\----参数dwControl为控制码,常用的有

SERVICE\_CONTROL\_STOP //停止服务

SERVICE\_CONTROL\_PAUSE //暂停服务

SERVICE\_CONTROL\_CONTINUE //唤醒暂停的服务

SERVICE\_CONTROL\_INTERROGATE//刷新某服务的状态

\----参数lpServiceStatus指向SERVICE\_STATUS结构,用于存放该服务最新的状态信息。

\----函数返回值：函数执行成功则返回True,失败则返回False。

## 6：BOOL EnumServicesStatus(SC\_HANDLE hSCManager,DWORD dwServiceType,DWORD dwServiceState,LPENUM\_SERVICE\_STATUS lpServices,DWORD cbBufSize,LPDWORD pcbBytesNeeded,LPDWORD lpServicesReturned,LPDWORD lpResumeHandle); ##

\----EnumServicesStatus函数用于枚举NT下存在的Service。

\----其中参数hSCManager是指向service control manager database的句柄,由OpenSCManager函数返回,且必须有SC\_MANAGER\_ENUMERATE\_SERVICE的权限。

\----参数dwServiceType指定按服务的类型枚举。

\----参数dwServiceState指定按服务的状态枚举。

\----参数lpServices指向ENUM\_SERVICE\_STATUS结构,用于存放返回的服务的名字和状态信息。

\----参数cbBufSize返回参数lpServices的长度,以字节为单位。

\----参数pcbBytesNeeded返回获取剩余的Service所需字节的个数。

\----参数lpServicesReturned返回服务的个数。

\----参数lpResumeHandle,当第一次调用时该参数为0,当该函数再次被调用以获取另外的信息时,该参数表示下一个被读的Service。

\----函数返回值：函数执行成功则返回True,失败则返回False。

\----值得注意的是通常情况下该函数返回的结果为FALSE,我们可以调用GetLastError()来获取进一步信息。因为一台机器上有多种服务存在,所以GetLastError()应为ERROR\_MORE\_DATA,此时应再次调用EnumServicesStatus函数以获取正确的Service列表。

\----下面有一个用Delphi编的一个程序例子,用其他开发工具如VC,VB也可实现。程序运行时,单击按钮Button1枚举NT中的Service并显示在列表框ListBox1中。在ListBox1选中某个Service,单击按钮Button2则启动该Service,单击按钮Button3则停止该Service。

首先在Unit1.hpp中添加

＃i nclude <winsvc.hpp>

然后在Class Form1的Private中添加

SC\_HANDLE hscmanager,hService;

TServiceStatus returnstatus;

以下是Unit1.cpp的内容：

/\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*

\* 枚举NT系统当服务并启动或终止之。

\* Edited by 黑山老妖

\* 2002.8.9

\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*/

void \_\_fastcall TForm1::Button1Click(TObject \*Sender)

DWORD BytesNeeded,serviceReturned,resumeHandle;

bool returnflag;

TEnumServiceStatus lpservice\[100\];

TEnumServiceStatus service;

DWORD i,bytes;

ListBox1->Items->Clear();

returnflag=false;

resumeHandle=0;

hscmanager=OpenSCManager(NULL,NULL,SC\_MANAGER\_ENUMERATE\_SERVICE);//打开service control manager database

if (hscmanager<0)

ShowMessage("无法打开service control manager database");

return;

returnflag=EnumServicesStatus(hscmanager,SERVICE\_DRIVER,SERVICE\_ACTIVE,&service,sizeof(service),&BytesNeeded,&serviceReturned,&resumeHandle);//枚举Service

if(!returnflag&&GetLastError()==ERROR\_MORE\_DATA)

bytes=BytesNeeded+sizeof(TEnumServiceStatus);

EnumServicesStatus(hscmanager,SERVICE\_DRIVER,SERVICE\_ACTIVE,&lpservice\[0\],bytes,&BytesNeeded,&serviceReturned,&resumeHandle);

for(i=0;i<serviceReturned-1;i++)

ListBox1->Items->Add(lpservice\[i\].lpServiceName);

//---------------------------------------------------------------------------

void \_\_fastcall TForm1::Button2Click(TObject \*Sender)

int i;

for(i=0;i<ListBox1->Items->Count;i++)

if(ListBox1->Selected\[i\])

hService=OpenService(hscmanager,PChar(ListBox1->Items->Strings\[i\].c\_str()),SERVICE\_ALL\_ACCESS);//打开该Service

if(hService<0)