我們使用sql server 2000作爲數據庫服務器？ 要求在在程序中，檢查本地的數據庫服務是否啓動，如果沒有啓動，用程序的啓動sql server 服務？ 請問，如何檢查服務是否啓動，如何啓動服務？

參考 http://delphi.ktop.com.tw/topic.php?topic_id=61405    先確定SQL Server的 Service Name (不是在[服務]控制台外面看到的, 是按下SQL Server->[內容]看到的)    

Use ...WinSvc;    type
  TSvcAction = (saQuery, saControl);    function QuerySvcState(hSvc: SC_HANDLE): DWORD;
var
  SvcStatus: TServiceStatus;
begin
  if (hSvc > 0) and QueryServiceStatus(hSvc, SvcStatus) then
    Result := SvcStatus.dwCurrentState
  else
    Result := 0
end;    function ControlSvcState(svcName: string; svcAct: TSvcAction; bRun: Boolean = False): DWORD; //return CurrentState
var
  hScm, hSvc: SC_HANDLE;
  SvcStatus: TServiceStatus;
  lpArgs: PChar;
begin
  lpArgs := nil;
  Result := 0;
  try
    hScm := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
    if hScm > 0 then
    begin
      hSvc := OpenService(hScm, PAnsiChar(svcName), SERVICE_ALL_ACCESS);
      if hSvc > 0 then
      begin
        if svcAct = saQuery then
          Result := QuerySvcState(hSvc)
        else
        begin
          if bRun then
          begin
            StartService(hSvc, 0, lpArgs);
            Result := QuerySvcState(hSvc);
          end
          else
          begin
            ControlService(hSvc, SERVICE_CONTROL_STOP, SvcStatus);
            Result := QuerySvcState(hSvc);
          end;
        end;
      end
      else
        Showmessage(SysErrorMessage(GetLastError));
    end
    else
      Showmessage(SysErrorMessage(GetLastError));
  finally
    CloseServiceHandle(hScm);
  end;
end;        procedure TForm1.QueryClick(Sender: TObject);
var
  svcAct: TSvcAction;
begin
  svcAct := saQuery;
  Memo1.Lines.Add(ControlSvcState('ServiceName', svcAct));
end;    procedure TForm1.StartClick(Sender: TObject);
var
  svcAct: TSvcAction;
begin
  svcAct := saControl;
  Memo1.Lines.Add(ControlSvcState('ServiceName', svcAct, True));
end;    procedure TForm1.StopClick(Sender: TObject);
var
  svcAct: TSvcAction;
begin
  svcAct := saControl;
  Memo1.Lines.Add(ControlSvcState('ServiceName', svcAct, False));
end;    

＠瞭解越多.懂得越少＠