SQLServer数据库服务器名称的获取
在窗口上放置一个listbox控件，命名为：listbox1，原代码如下所示：
procedure TForm1.FormCreate(Sender: TObject);
var
  SQLServer:Variant;
  ServerList:Variant;
  i,nServers:integer;
begin
 SQLServer := CreateOleObject('SQLDMO.Application');
 ServerList:= SQLServer.ListAvailableSQLServers;
 if serverlist.count<1 then
  begin //如果服务器不存在，则退出系统
     showmessage('服务器不存在，请检测服务器是否已经开机或者服务是否打开了');
     application.Terminate;
  end
 else
  begin
   for i:=1 to serverlist.count do
   listbox1.Items.Add(serverlist.item(i)) ;
   showmessage(serverlist.item(1)+'服务器已经打开，可以正常使用本系统');
   adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security info=False;UserID=sa;InitialCatalog=ideal_db;DataSource='+ServerList.Item(1);
  end;
 SQLServer:=NULL;
 serverList:=NULL;
end;