如何在delphi程序中判断serversql服务管理器有没有启动?另外怎么控制他呢？

Question

如何在程序中判断serversql服务管理器有没有启动?另外怎么控制（启动，停止，暂停）他呢？

Answer 1

uses ComObj;procedure TForm1.Button1Click(Sender: TObject);
var
   SQLServer:Variant;
   ServerList:Variant;
   i,nServers:integer;
   sRetValue:String;
begin  SQLServer := CreateOleObject('SQLDMO.Application');
  ServerList:= SQLServer.ListAvailableSQLServers;
  nServers:=ServerList.Count;
  for i := 1 to nservers do
      ListBox1.Items.Add(ServerList.Item(i));
  SQLServer:=NULL;
  serverList:=NULL;
end;上面是取得局域网中所有的SQL Server服务器！
你可以使用TStringList的IndexOf方法来判别你的Server是否存在！到于启动、停止，你可以参见NET命令的用法！================================================================
　　　　　◆◆◆ CSDN查询助手，查询方便快捷◆◆◆ 下载地址：  
　http://CoolSlob.ifood1.com/Download/CSDNFinder.exe  
　http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]  

Answer 2

你这个只能取到已经打开的SQL Server！
而SQL Server是已知的~！
我现在只要判断SQL Server是否打开！