如何记录下键盘的所有所有操作？

1楼: 简单问题：怎样动态获得局域网内运行的所有SQL Sever的所有实例,选择实例后,又如何获得该实例中的所有数据库列表？ 用ADO实现. 小弟较菜,请多指教!

2楼: 两者都可以的. 其中后者需要有对数据库有足够的权限. 主要是到Master数据库中去进行以下查询： select name from dbo.sysDatabases

字串2

3楼: 获得SQL Server服务器列表的代码如下： function GetSqlServer(const SqlList： TStrings)： Boolean; var SQLServer, ServerList： Variant; i： LongInt; begin//修正,改成COINIT_MULTITHREADED2005.02.18 23：13 Result：=CoInitializeEx(nil,ActiveX.COINIT_MULTITHREADED) in [S_OK, S_FALSE]; try if Result then begin SQLServer ：= CreateOleObject(‘SQLDMO.Application‘); ServerList ：= SQLServer.ListAvailableSQLServers; for i ：= 1 to ServerList.Count do SqlList.Add(ServerList.Item(i)); SQLServer ：= NULL; ServerList ：= NULL; end;; finally CoUninitialize; end; end; 字串4

4楼: 非常感谢dedema,还有其他方法吗？ 那段代码能加上注释吗？ 我太菜了,不太懂! 再次表示万分感谢!~ 我这怎么运行不了呀,需要在程序中引用(use)什么单元(dcu)呀!

字串1

5楼: 看 sql server 的 online book 中 SQL DMO的部分。 字串4

6楼: 要用到ActiveX

7楼: 接受答案了,不过,dedema的答案还不能得到实例, 我从2004年的贴子中找到了答案,和你的代码差多! 再次对支持我的朋友表示感谢!