后台服务程序开发

新建WIN32控制台程序，其源文件名为service.cpp 。我用的开发工具是VC++.NET。1．服务程序主函数

服务控制管理程序启动服务程序后，等待服务程序主函数调用系统函StartServiceCtrlDispatcher。一个SERVICE_WIN32_OWN_PROCESS 类型的服务应该立即调用 StartServiceCtrlDispatcher 函数，可以在

服务启动后让服务入口点函数完成初始化工作。对于 SERVICE_WIN32_OWN_PROCESS 类型的服务和程序中所有服务共同的初始化工作可以在主函数中完成，但不要超过30秒。否则必须建立另外的线程完成这些共同的初始化工作，从而保证服务程序主函数能及时地调用 StartServiceCtrlDispatcher 函数。

主函数处理了三中命令行参数：- install,- remove,- debug,分别用于安装，删除和调试服务程序。如果不带参数运行，则认为是服务控制管理出现启动该服务程序。参数不正确则给出提示信息。

StartServiceCtrlDispatcher 函数负责把程序主线程连接到服务控制管理程序。具体描述如下：BOOL StartServiceCtrlDispatcher(const LPSERVICE_TABLE_ENTRY lpServiceTable);

lpServiceStartTable 指向 SERVICE_TABLE_ENTRY 结构类型的数组，他包含了调用进程所提供的每个服务的入口函数和字符串名。表中的最后一个元素必须为 NULL，指明入口表结束。SERVICE_TABLE_ENT RY 结构具体描述如下：

typedef struct _SERVICE_TABLE_ENTRY

{

LPTSTR lpServiceName;

LPSERVICE_MAIN_FUNCTION lpServiceProc;

} SERVICE_TABLE_ENTRY, *LPSERVICE_TABLE_ENTRY;

lpServiceName 是一个以 NULL 结尾的字符串，标识服务名。如果是 SERVICE_WIN32_OWN_PROCESS 类型的服务，这个字符串会被忽略。

lpServiceProc 指向服务入口点函数。

//服务程序主函数。

#include "stdafx.h"

#include "Windows.h"

#define SZAPPNAME "serverSample" //服务程序名

#define SZSERVICENAME "serviceSample" //标识服务的内部名

//内部变量

bool bDebugServer=false;

SERVICE_STATUS ssStatus;

SERVICE_STATUS_HANDLE sshStatusHandle;

DWORD dwErr=0;

TCHAR szErr[256];

//下面的函数由程序实现

void WINAPI Service_Main(DWORD dwArgc, LPTSTR *lpszArgv);

void WINAPI Service_Ctrl(DWORD dwCtrlCode);

void installService();

void removeService();

void debugService(int argc,char** argv);

bool ReportStatusToSCMgr(DWORD dwCurrentState,DWORD dwWin32ExitCode,DWORD dwWaitHint);

void AddToMessageLog(LPTSTR lpszMsg);

int _tmain(int argc, _TCHAR* argv[])

{

SERVICE_TABLE_ENTRY dispatchTable[]=

{

{TEXT(SZSERVICENAME),(LPSERVICE_MAIN_FUNCTION)Service_Main},

{ NULL,NULL}

};

if((argc>1)&&((*argv[1]=='-')||(argv[1]=="/")))

{

if(_stricmp("install",argv[1]+1)==0)

{

installService();

}

else if(_stricmp("remove",argv[1]+1)==0)

{

removeService();

}

else if(_stricmp("debug",argv[1]+1)==0)

{

bDebugServer=true;

debugService(argc,argv);

}

else

{ //如果未能和上面的如何参数匹配，则可能是服务控制管理程序来启动该程序。立即调用//StartServiceCtrlDispatcher 函数。

printf("%s - install to install the service \n",SZAPPNAME);

printf("%s - remove to remove the service \n",SZAPPNAME);

printf("%s - debug to debug the service \n",SZAPPNAME);

printf("\n StartServiceCtrlDispatcher being called.\n");

printf("This may take several seconds.Please wait.\n");

if(!StartServiceCtrlDispatcher(dispatchTable))

AddToMessageLog(TEXT("StartServiceCtrlDispatcher failed."));

else

AddToMessageLog(TEXT("StartServiceCtrlDispatcher OK."));

}

exit(0);

}

return 0;

}

2．服务入口点函数

服务入口点函数 service_main 首先调用系统函数 RegisterServiceCtrlHandler 注册服务控制处理函数 service_ctrl,然后调用 ReportStatusToSCMgr 函数，它通过系统函数 SetServiceStatus 更新服务的状态，然后调用特定的服务初始化入口函数 ServiceStart 完成具体的初始化工作。

//服务入口点函数

void ServiceStart(DWORD dwArgc,LPTSTR* lpszArgv);//具体服务的初始化入口函数

void WINAPI Service_Main(DWORD dwArgc, LPTSTR *lpszArgv)

{

//注册服务控制处理函数

sshStatusHandle=RegisterServiceCtrlHandler(TEXT(SZSERVICENAME),Service_Ctrl);

//如果注册失败

if(!sshStatusHandle)

{

goto cleanup;

return;

}

//初始化 SERVICE_STATUS 结构中的成员

ssStatus.dwServiceType=SERVICE_WIN32_OWN_PROCESS;

ssStatus.dwServiceSpecificExitCode=0;

//更新服务状态

if(!ReportStatusToSCMgr(

SERVICE_START_PENDING,//服务状态，The service is starting.

NO_ERROR, //退出码

3000)) //等待时间

goto cleanup; //更新服务状态失败则转向 cleanup

ServiceStart(dwArgc,lpszArgv);

return;

cleanup:

//把服务状态更新为 SERVICE_STOPPED，并退出。

if(sshStatusHandle)

(void)ReportStatusToSCMgr(SERVICE_STOPPED,dwErr,0);

}

3．控制处理程序函数

函数 Service_Ctrl 是服务的控制处理程序函数，由主函数线程的控制分发程序引用。在处理控制请求码时，应该在确定的时间间隔内更新服务状态检查点，避免发生服务不能响应的错误。

//控制处理程序函数

void WINAPI Service_Ctrl(DWORD dwCtrlCode)

{

//处理控制请求码

switch(dwCtrlCode)

{

//先更新服务状态为 SERVICDE_STOP_PENDING,再停止服务。

case SERVICE_CONTROL_STOP:

ReportStatusToSCMgr(SERVICE_STOP_PENDING,NO_ERROR,500);

ServiceStop(); //由具体的服务程序实现

return;

//暂停服务

case SERVICE_CONTROL_PAUSE:

ReportStatusToSCMgr(SERVICE_STOP_PENDING,NO_ERROR,500);

ServicePause(); //由具体的服务程序实现

ssStatus.dwCurrentState=SERVICE_PAUSED;

return;

//继续服务

case SERVICE_CONTROL_CONTINUE:

ReportStatusToSCMgr(SERVICE_STOP_PENDING,NO_ERROR,500);

ServiceContinue(); //由具体的服务程序实现

ssStatus.dwCurrentState=SERVICE_RUNNING;

return;

//更新服务状态

case SERVICE_CONTROL_INTERROGATE:

break;

//无效控制码

default:

break;

}

ReportStatusToSCMgr(ssStatus.dwCurrentState,NO_ERROR,0);

}

除了系统定义的五种控制码外（还有一种是：SERVICE_CONTROL_SHUTDOWN），用户还可自定义控制码，其取值范围是128-255。用户可以通过控制面板中的服务项向特定服务程序的控制处理函数发送控制码，程序员可以调用系统函数 ControlService 直接向服务程序的控制处理函数发送控制码。其函数原型如下：

BOOL ControlService(SC_HANDLE hService,DWORD

dwControl,

LPSERVICE_STATUS

lpServiceStatus);

hService ：函数 OpenService or CreateService 返回的服务程序句柄。

dwControl ：控制码，不能是SERVICE_CONTROL_SHUTDOWN。

lpServiceStatus：返回最后收到的服务状态信息。

4．安装服务程序

每个已安装服务程序在 HKEY_LOCAL_MACHINE\SYSTE\CurrentControlSet\Services 下都有一个服务名的关键字，程序员可以调用系统函数 CreateService 安装服务程序，并指定服务类型，服务名等。这个函数创建一个服务对象，并将其增加到相关的服务控制管理器数据库中。

下面是函数原型：

SC_HANDLE CreateService(

SC_HANDLE hSCManager, //服务控制管理程序维护的登记数据库的句柄，由系统函数OpenSCManager 返回

LPCTSTR lpServiceName, //以NULL 结尾的服务名，用于创建登记数据库中的关键字

LPCTSTR lpDisplayName, //以NULL 结尾的服务名，用于用户界面标识服务

DWORD dwDesiredAccess, //指定服务返回类型

DWORD dwServiceType, //指定服务类型

DWORD dwStartType, //指定何时启动服务

DWORD dwErrorControl, //指定服务启动失败的严重程度

LPCTSTR lpBinaryPathName, //指定服务程序二进制文件的路径

LPCTSTR lpLoadOrderGroup, //指定顺序装入的服务组名

LPDWORD lpdwTagId, //忽略，NULL

LPCTSTR lpDependencies, //指定启动该服务前必须先启动的服务或服务组

LPCTSTR lpServiceStartName, //以NULL 结尾的字符串，指定服务帐号。如是NULL,则表示使用LocalSystem 帐号

LPCTSTR lpPassword //以NULL 结尾的字符串，指定对应的口令。为NULL表示无口令。但使用LocalSystem时填NULL);

对于一个已安装的服务程序，可以调用系统函数 OpenService 来获取服务程序的句柄

下面是其函数原型：

SC_HANDLE OpenService(

SC_HANDLE hSCManager,

LPCTSTR lpServiceName,

DWORD dwDesiredAccess);

hSCManager ：服务控制管理程序微服的登记数据库的句柄。由函数 OpenSCManager function 返回这个句柄。

lpServiceName ：将要打开的以NULL 结尾的服务程序的名字，和 CreateService 中的 lpServic eName 相对应。

dwDesiredAccess ：指定服务的访问类型。服务响应请求时，首先检查访问类型。

用CreateService 或OpenService 打开的服务程序句柄使用完毕后必须用CloseServiceHandle 关闭。

OpenSCManager打开的服务管理数据库句柄也必须用它来关闭。

//安装服务程序

void installService()

{

SC_HANDLE schService;

SC_HANDLE schSCManager;

TCHAR szPath[512];

//得到程序磁盘文件的路径

if(GetModuleFileName(NULL,szPath,512)==0)

{

_tprintf(TEXT("Unable to install %s - %s \n"),

TEXT(SZAPPNAME),

GetLastError());//@1获取调用函数返回的最后错误码

return;

}

//打开服务管理数据库

schSCManager=OpenSCManager(

NULL, //本地计算机

NULL, //默认的数据库

SC_MANAGER_ALL_ACCESS //要求所有的访问权

);

if(schSCManager)

{

//登记服务程序

schService=CreateService(

schSCManager, //服务管理数据库句柄

TEXT(SZSERVICENAME), //服务名

TEXT(SZAPPNAME), //用于显示服务的标识

SERVICE_ALL_ACCESS, //响应所有的访问请求

SERVICE_WIN32_OWN_PROCESS, //服务类型

SERVICE_DEMAND_START, //启动类型

SERVICE_ERROR_NORMAL, //错误控制类型

szPath, //服务程序磁盘文件的路径

NULL, //服务不属于任何组

NULL, //没有tag标识符

NULL, //启动服务所依赖的服务或服务组,这里仅仅是一个空字符串

NULL, //LocalSystem 帐号

NULL);

if(schService)

{

_tprintf(TEXT("%s installed. \n"),TEXT(SZAPPNAME));

CloseServiceHandle(schService);

}

else

{

_tprintf(TEXT("CreateService failed - %s \n"),GetLastError());

}

CloseServiceHandle(schSCManager);

}

else

_tprintf(TEXT("OpenSCManager failed - %s \n"),GetLastError());

}

5．停止和删除已安装的服务程序

//停止和删除已安装的服务程序

void removeService()

{

SC_HANDLE schService;

SC_HANDLE schSCManager;

//打开服务管理数据库

schSCManager=OpenSCManager(

NULL, //本地计算机

NULL, //默认的数据库

SC_MANAGER_ALL_ACCESS //要求所有的访问权

);

if(schSCManager)

{

//获取服务程序句柄

schService=OpenService(

schSCManager, //服务管理数据库句柄

TEXT(SZSERVICENAME), //服务名

SERVICE_ALL_ACCESS //响应所有的访问请求

);

if(schService)

{

//试图停止服务

if(ControlService(

schService, //服务程序句柄

SERVICE_CONTROL_STOP, //停止服务请求码

&ssStatus //接收最后的服务状态信息

))

{

_tprintf(TEXT("Stopping %s."),TEXT(SZAPPNAME));

Sleep(1000);

//等待服务停止

//

while(QueryServiceStatus(schService,&ssStatus))

{

if(SERVICE_STOP_PENDING==ssStatus.dwCurrentState)

{

_tprintf(TEXT("."));

Sleep(1000);

}

else

break;

}

if(SERVICE_STOPPED==ssStatus.dwCurrentState)

_tprintf(TEXT("\n %s stopped. \n"),TEXT(SZAPPNAME));

else

_tprintf(TEXT("\n %s failed to stopp. \n"),TEXT(SZAPPNAME));

}

//删除已安装的服务程序安装

if(DeleteService(schService))

_tprintf(TEXT("%s removed. \n"),TEXT(SZAPPNAME));

else

_tprintf(TEXT("DeleteService failed - %s. \n"), GetLastError());

CloseServiceHandle(schService);

}

else

_tprintf(TEXT("OpenService failed - %s \n"),GetLastError());

CloseServiceHandle(schSCManager);

}

else

_tprintf(TEXT("OpenSCManager failed - %s \n"),GetLastError());

}

在编译程序的时候，我们会发觉ServiceStop();ServicePause();ServiceContinue();等三个函数没有具体实现，这对于理解此文的人来说应该不难编写，在此我可以给点文档内的参考：声明SetTheServiceStatus(）函数，

//

// SetTheServiceStatus - This just wraps up SetServiceStatus.

//

void SetTheServiceStatus(DWORD dwCurrentState, DWORD dwWin32ExitCode,

DWORD dwCheckPoint, DWORD dwWaitHint)

{

SERVICE_STATUS ss; // Current status of the service.

//

// Disable control requests until the service is started.

//

if (dwCurrentState == SERVICE_START_PENDING)

ss.dwControlsAccepted = 0;

else

ss.dwControlsAccepted =

SERVICE_ACCEPT_STOP|SERVICE_ACCEPT_SHUTDOWN;

// Other flags include SERVICE_ACCEPT_PAUSE_CONTINUE

// and SERVICE_ACCEPT_SHUTDOWN.

// Initialize ss structure.

ss.dwServiceType = SERVICE_WIN32_OWN_PROCESS;

ss.dwServiceSpecificExitCode = 0;

ss.dwCurrentState = dwCurrentState;

ss.dwWin32ExitCode = dwWin32ExitCode;

ss.dwCheckPoint = dwCheckPoint;

ss.dwWaitHint = dwWaitHint;

// Send status of the service to the Service Controller.

if (!SetServiceStatus(ssh, &ss))

ErrorStopService(TEXT("SetServiceStatus"));

}

然后用如下的方式来调用函数来实现源程序中缺少的功能：SetTheServiceStatus(SERVICE_STOPPED, GetLastError(), 0, 0);// Stop the service.