win7 中使用 OpenService打开服务,总是返回0

Question

用C++改编的DELPHI过程,在win7中使用OpenService打开服务,总是返回0

使用管理员运行程序,OpenSCManager返回句柄是正常的，服务名正确,不知道怎么回事。。。。。。。。。

  hSCManager := OpenSCManager(nil, SERVICES_ACTIVE_DATABASE, SC_MANAGER_CONNECT);
  if hSCManager<>0 then
  begin
    ServiceHandle := OpenService(hSCManager, PChar(ServiceName), SERVICE_QUERY_STATUS);
    if ServiceHandle<>0 then
    begin
      QueryServiceStatus(ServiceHandle, ServiceStatus);
      CloseServiceHandle(ServiceHandle);
    end;
    CloseServiceHandle(hSCManager);
  end;