启动服务函数

procedure StartService(psServiceName: string);
var
  hscmanager,
  hService: SC_HANDLE;
  lpServiceArgVectors: Pchar;
  returnstatus: TServiceStatus;
begin
  try
    lpServiceArgVectors := nil;
    hscmanager := OpenSCManager(nil,nil,SC_MANAGER_ENUMERATE_SERVICE);
    hService := OpenService(hscmanager,PChar(psServiceName),SERVICE_ALL_ACCESS);

    QueryServiceStatus(hService,returnstatus);   //查看该Service的状态

    if returnstatus.dwCurrentState=SERVICE_STOPPED then   //如果该Service已停止则启动它
       StartService(hService,0,lpServiceArgVectors);
  finally
    CloseServiceHandle(hService);//关闭该Serviceend;
  end;
end; 

阅读更多
上一篇获取计算机名称的函数
下一篇创建快捷方式及自动运行
想对作者说点什么? 我来说一句

如何使用oracle9i手册

2009年08月29日 231B 下载

没有更多推荐了,返回首页

关闭
关闭