安装或删除一个服务

来源：大富翁　

Windows NT、Windows 2000、Windows XP 都可以把程序做为服务启动。Delphi 也有向导直接帮助建立服务应用程序。当一个服务应用程序被建立后，就可以使用服务安装功能安装它。
一个服务应用程序，必须完成 2 个关键的函数，即：StartServiceCtrlDispatcher 和 RegisterServiceCtrlHandler 后才能被系统做为服务启动。当使用 Delphi 向导建立服务应用程序时，这 2 个函数是被封装了的，不需要做其他的处理，但如果手工建立一个服务应用，就必须手工编写它。StartServiceCtrlDispatcher 函数的目的是告诉系统，这个服务应用的入口主函数。系统在启动服务时，就去执行这个函数指定的主入口函数，在主入口函数中，完成另一个函数的调用RegisterServiceCtrlHandler ，这个函数是注册一个应用服务控制函数，以便系统可以控制这个服务应用。
安装一个服务应用是很简单的，代码如下：
-------------------------------------

function InstallService:Boolean;
var
schSCManager,schService:THANDLE;
strDir:array[0..1023]of char;
lpszBinaryPathName:PChar;
begin
schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);

if schSCManager=0 then
begin
   MessageBox(0,’联接服务控制管理器失败’,’Error’,MB_OK);
   Result:=false;
   exit;
end;

GetCurrentDirectory(1024,strDir);       // 取到应用程序所在的目录
strlcat(strDir,’ScvProject.exe’,1024); // 当前目录下的服务应用
lpszBinaryPathName:=strDir;
schService:=CreateService(
        schSCManager,              // 服务控制管理句柄
        ’MyService’,               // 服务名称需要和服务应用名相同
        ’My Service Display Name’, // 显示的服务名称
        SERVICE_ALL_ACCESS,        // 存取权利
        SERVICE_WIN32_OWN_PROCESS, // 服务类型
        SERVICE_DEMAND_START,      // 启动类型
        SERVICE_ERROR_NORMAL,      // 错误控制类型
        lpszBinaryPathName,        // 服务程序
        nil,                       // 组服务名称
        nil,                       // 组标识
        nil,                       // 依赖的服务
        nil,                       // 启动服务帐号
        nil);                      // 启动服务口令

if schService = 0 then
begin
   MessageBox(0,’无法建立指定的服务对象’,’Error’,MB_OK);
   Result:=false;
   exit;
end;

CloseServiceHandle(schService);

MessageBox(0,’已经成功地安装了服务对象’,’信息’,MB_OK);
Result:=true;
end;

删除一个服务的代码如下：
----------------------------------------------

function UnInstallService:Boolean;
var
schSCManager:THANDLE;
hService:SC_HANDLE;
begin
schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
if schSCManager=0 then
begin
   MessageBox(0,’联接服务控制管理器失败’,’Error’,MB_OK);
   Result:=false;
   exit;
end;

hService:=OpenService(schSCManager,’MyService’,SERVICE_ALL_ACCESS);
if hService=0 then
begin
   MessageBox(0,’联接服务数据库失败’,’Error’,MB_OK);
   Result:=false;
   exit;
end;

if not DeleteService(hService) then
begin
   MessageBox(0,’无法删除指定的服务对象’,’Error’,MB_OK);
   Result:=false;
   exit;
end;

if not CloseServiceHandle(hService) then
begin
   MessageBox(0,’无法关闭服务控制器数据库’,’Error’,MB_OK);
   Result:=false;
   exit;
end
else
begin
   MessageBox(0,’反安装服务成功’,’信息’,MB_OK);
   Result:=true;
end;
end;

注意使用这两个函数时，要 uses WinSvc 这个单元。这两个函数中，其中：
’MyService’ 是用 Delphi 向导建立服务应用时在属性编辑器中的 ServiceStartName = ’MyService’ ；
’ScvProject.exe’ 就是用 Delphi 向导建立的服务应用程序；
’My Service Display Name’ 将显示在系统服务列表中。

补充：综合编程 , 安全编程 ,