delphi 判断SQL Server 服务器是否安装与开启
1. 问题简介：
一般情况下，使用程序连接数据库的时候，当数据库服务器不存在，或者数据库服务器没有启动的时候，
会导致数据库连接失败，所花费的时间很长。所以，在进行连接前，有必要对这些做出判断，然后返回给用户一
个正确的提示信息，减少等待的时间。
2. 数据库服务器连接不上，可以分成以下几种情况：
1>. 根本就不存在数据库服务器，及系统根本就没有安装数据库服务器。
2>. 系统安装了数据库服务器，但是数据库服务器没有开启。
3>. 数据库服务器开启了，但是处于【暂停】或者【停止】的状态。
4>. 当然还有最常见的，就是连接信息有问题。
解决办法：
1.最简单的办法,直接使用异常提供的信息，Delphi的异常中，提供的错误类型很完善。
例如：
procedure TForm1.btn1Click(Sender: TObject);
begin
try
adocon1.Connected:=True;
except
on E:exception do
Showmessage(E.message)
end;
end;
注意： 但是在数据库服务【停止】或者【未安装】的情况下，由于连接数据库抛出异常有一个超时时间，
所以提示用户连接不上所需时间很长，所以可以先判断是否安装，和数据库服务器是否开启（需要以下办法），
然后又异常来判断服务器是在【启动】状态，还是在【暂停】状态。
2.通过注册表判断系统是否安装了SQL Server数据库。
uses Registry;
procedure TForm1.btn1Click(Sender: TObject);
var
ARegistry: Tregistry;
cdkey:string;
begin
ARegistry := Tregistry.Create;
ARegistry.RootKey := HKEY_LOCAL_MACHINE;
try
ARegistry.OpenKey('SOFTWARE\MICROSOFT\MICROSOFT SQL SERVER\80\Registration', False);
cdkey := ARegistry.ReadString('CD_KEY');
if cdKey ='' then
showmessage('没有安装SQL Server数据库')
else
showmessage('安装了SQL Server数据库')
except
ARegistry.Destroy;
end;
end;
注意：<1>.如果安装的是绿色版，注册表中不存在信息，不可以使用这种办法。
<2>.安装SQL Server之后卸载，注册表中的信息没有修改，所以判断可能是不正确，会提示已经安装。
3. 通过进程判断SQL Server数据库服务器是否开启
uses Tlhelp32;
procedure TForm1.Button1Click(Sender: TObject);
var
ProcessList : Thandle;
pe : TPROCESSENTRY32;
ProcList : TStringList;
i : integer;
begin
ProcList := TStringList.Create;
try
ProcessList := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
pe.dwSize := sizeof(TPROCESSENTRY32);
if process32first(ProcessList,pe) then
begin
ProcList.Add(pe.szexefile);
while process32next(ProcessList,pe) do
ProcList.Add(pe.szexefile);
end;
for i := 0 to ProcList.Count -1 do
if ProcList[i] = 'sqlservr.exe ' then
ShowMessage( 'SQL Server already Run! ');
finally
ProcList.Free;
end;
end;
注意：SQL Server服务器的三种状态：
<1>.【启动】：进程中有 'sqlservr.exe'，能进行访问连接。
<2>.【暂停】：进程中有 'sqlservr.exe'，不能进行访问连接。
<3>.【停止】：进程中没有 'sqlservr.exe'，不能进行访问连接。
在【暂停】或者【停止】的暂停下，不允许进行连接。
scm -action 1 -slient 1 -service mssqlserver //启动
scm -action 6 -slient 1 -service mssqlserver //停止