-------------如何检测windows服务的状态----------------------

Question

我想远程检测windows服务的状态，比如IIS,tomcat,数据库服务之类的，怎么编程实现啊？？？如何用程序控制这些服务呢？比如关闭，启动之类的。

Answer 1

可远程ping 开的相应服务端口等来检测

Answer 2

首先
uses winsvc;//关于service的函数定义在这个unit中，d5自带的啦
要控制一个service的具体流程大概是这样的：
1、取得服务数据库的handle
2、根据服务数据库的handle取得服务的handle
3、根据服务的handle来取服务的状态或者控制服务
下面是一段取Sql server状态的程序
function tserviceform.GetSqlServerStatus: Boolean;
var
  SrvHandle: SC_HANDLE;//这些都在winsvc单元中定义的
  Service_Status: _SERVICE_STATUS;//在winsvc单元中有定义
  SrvStatus: Integer;
begin
//取sql server的状态,如果sql server正在运行则返回true ,否则返回 false
  SrvHandle := OpenSCManager('', SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS);
  SrvHandle := OpenService(SrvHandle, PChar('MSSQLServer'), SERVICE_QUERY_STATUS or SERVICE_START);
  case SrvHandle of
    ERROR_ACCESS_DENIED: Memo.Lines.Add('The specified service control manager database handle does not have access to the service.');
    ERROR_INVALID_HANDLE: Memo.Lines.Add('The specified handle is invalid.');
    ERROR_INVALID_NAME: Memo.Lines.Add('The specified service name is invalid.');
    ERROR_SERVICE_DOES_NOT_EXIST: Memo.Lines.Add('The specified service does not exist.');
  end;
  if QueryServiceStatus(SrvHandle, Service_Status) then
  begin
  //判断Sql Server服务的状态
    SrvStatus := Service_Status.dwCurrentState;
    case SrvStatus of
      SERVICE_STOPPED: Memo.Lines.Add('The service is not running.');
      SERVICE_START_PENDING: Memo.Lines.Add('The service is starting.');
      SERVICE_STOP_PENDING: Memo.Lines.Add('The service is stopping.');
      SERVICE_RUNNING: memo.lines.add('The service is running.');
      SERVICE_CONTINUE_PENDING: Memo.Lines.Add('The service continue is pending.');
      SERVICE_PAUSE_PENDING: Memo.Lines.Add('The service pause is pending.');
      SERVICE_PAUSED: Memo.Lines.Add('The service is paused');
    end;
    Result := (SrvStatus = SERVICE_RUNNING);
  end
  else
    Result := False;
end;
具体的service函数可以看msdn中的Service Functions部分。

Answer 3

如果我要操作服务启动或者关闭，应该用那些api呢？这个程序是用来做一个备份控制程序的，不是做黑客^_^

Answer 4

其实，你要的，并不难，但要分几步第一步，登陆到对方的机器，
可用Api:
DWORD WNetAddConnection2(
  LPNETRESOURCE lpNetResource,
  LPCTSTR lpPassword,
  LPCTSTR lpUsername,
  DWORD dwFlags
);
上 google 找下 , WNetAddConnection2 连接的例子太多了第二步，取得你要的信息，可以参考这里：http://borland.mblogger.cn/aiirii/category/400.aspx我的代码都是测试过的，不过是取本机的，你可以修改 OpenSCManager 的第一个参数就可