如何建立一个NT的Run as a server程序

以下是我从网上下载的，希望对你能有些帮助，如果你还有其他收获不妨也告诉我，大家
互相帮助吗！
Windows NT 下Service 的编程
江苏省电信传输局
周晓
---- Windows NT Server 提供多种功能强大的服务（Service）, 例如FTP,WWW 或远程登录服务，另外常用的数据库服务器也是以Service 的形式存在于NT Server 上的，如Sybase SQL Server For NT。Service 一般在NT 启动时自动启动，在NT 关机时停止。但是有时用户可能想手工启动﹑ 暂停﹑ 停止某项Service，这就需要在控制面板中进行配置，对于不太熟悉NT 的用户来说比较困难；对于软件开发人员，有时需要在软件中访问和操作某项Service，甚至可能需要开发新Service 的提供给用户使用。上面两种情况都可以通过对Service 的编程来解决。对Service 的编程涉及到NT 的内核，比较复杂且相关资料较少，给软件开发人员带来很多困难，笔者通过对Windows NT 的API 的分析找到了相应的编程方法，再此介绍给大家。 ---- 在Windows NT 下，各种Service 都存在service control manager database 中，因此我们可以通过对service control manager database 进行操作来实现对Service 的编程。下面介绍常用的函数：    1：SC_HANDLE  OpenSCManager
      (LPCTSTR  lpszMachineName，
      LPCTSTR   lpszDatabaseName，
      DWORD    fdwDesiredAccess)； ---- OpenSCManager 函数打开指定计算机上的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
     //允许获取service control manager database的封锁信息---- 函数返回值：函数执行成功则返回一个指向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中存放返回的服务状态信息，结构如下 typedef struct _SERVICE_STATUS {
DWORD dwServiceType；
              //服务类型
DWORD dwCurrentState；
              //当前状态
DWORD dwControlsAccepted；
          //服务可接受的控制码
DWORD dwWin32ExitCode；
          //Win32出错代码
DWORD dwServiceSpecificExitCode；
    //服务出错代码
DWORD dwCheckPoint；
     //用于跟踪服务长时间操作
DWORD dwWaitHint；
     //服务某一操作的最大允许时间,以毫秒为单位
} SERVICE_STATUS, *LPSERVICE_STATUS; ---- 函数返回值：函数执行成功则返回True, 失败则返回False。
    4：BOOL StartService(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 函数向Win32 service 发送控制码。
---- 其中参数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。 unit Unit1;interfaceuses
  Windows，Messages， SysUtils， Classes,
  Graphics，Controls，Forms，
   Dialogs，StdCtrls，Winsvc；type
  TForm1 = class(TForm)
    ListBox1: TlistBox；
    Button1: Tbutton；
    Button2: Tbutton；
    Button3: Tbutton；
    procedure Button1Click(Sender: TObject)；
    procedure Button3Click(Sender: TObject)；
    procedure Button2Click(Sender: TObject)；
procedure FormClose
(Sender: TObject; var Action: TCloseAction)；  private
    { Private declarations }
  public
  hscmanager,hService:SC_HANDLE;
  returnstatus:TServiceStatus;
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
BytesNeeded,serviceReturned,resumeHandle:Dword;
returnflag:Bool;
lpservice:Array[0..100] of  TEnumServiceStatus;
service:TEnumServiceStatus;
i,bytes:Dword;
begin
ListBox1.Items.Clear;
returnflag:=false;
resumeHandle:=0;
hscmanager:=OpenSCManager(nil,nil,SC_MANAGER
_ENUMERATE_SERVICE);// 打开
service control manager database
if  hscmanager<0 then
    Begin
showmessage('无法打开
service control manager database');
    exit;
    End;
returnflag:=EnumServicesStatus(hscmanager,
SERVICE_DRIVER,SERVICE_ACTIVE,
service,sizeof(service),BytesNeeded,serviceR
eturned,resumeHandle);
//枚举Service
if (returnflag=false) and (GetLastError()
=ERROR_MORE_DATA) then
    begin
    bytes:=BytesNeeded+sizeof(TEnumServiceStatus);
EnumServicesStatus(hscmanager,SERVICE_
DRIVER,SERVICE_ACTIVE,
lpservice[0],bytes,BytesNeeded,service
Returned,resumeHandle);
    for i:=0 to serviceReturned-1 do
        begin
        ListBox1.Items.Add(lpservice[i].lpServiceName);
        end;
    end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
lpServiceArgVectors:Pchar;
begin
lpServiceArgVectors:=nil;
for i :=0 to (ListBox1.Items.Count-1) do
   if ListBox1.Selected[i] then
     begin
     hService:=OpenService(hscmanager,Pchar
(ListBox1.Items[i]),SERVICE_ALL_ACCESS);
//打开该Service
     if hService<0 then
        begin
        showmessage('无法打开该Service');
        exit;
        end;
        QueryServiceStatus(hService,returnstatus);
//查看该Service的状态
     if returnstatus.dwCurrentState=SERVICE_STOPPED
   then //如果该Service已停止则启动它
        StartService(hService,0,lpServiceArgVectors)；
     CloseServiceHandle(hService);//关闭该Service
    end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for i :=0 to (ListBox1.Items.Count-1) do
   if ListBox1.Selected[i] then
     begin
     hService:=OpenService(hscmanager,Pchar
(ListBox1.Items[i]),SERVICE_ALL_ACCESS);
//打开该Service
     if hService<0 then
        begin
        showmessage('无法打开该Service');
        exit;
        end;
        QueryServiceStatus(hService,returnstatus)；
查看该Service的状态
     if returnstatus.dwCurrentState=
SERVICE_RUNNING then
//如果该Service正在运行则停止它
        ControlService(hService,SERVICE
_CONTROL_STOP,returnstatus)；
CloseServiceHandle(hService)；//关闭该Service
    end;
end;
procedure TForm1.FormClose
(Sender: TObject; var Action: TCloseAction);
begin
CloseServiceHandle(hscmanager)；
//关闭service control manager database
End；end.

调试易

如何建立一个NT的Run as a server程序

解决方案 »