俺非高手,抛砖引玉:
通过sqLdmo对象获取,下面是取得系统上可用服务器和驱动器名的例子,但原对你有帮助!
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;
for i := 1 to nservers do
ListBox1.Items.Add(ServerList.Item(i));
ServerDisks:=ServerDisks.Item(1).EnumAvailableMedia;
DiskNumber:=Serverdisks.count;
for i := 1 to DiskNumber do
ListBox2.Items.Add(ServerDisks.Item(i));
SQLServer:=NULL;
serverList:=NULL;