注册表（Registry）是一个由 Windows 维护的数据库，保存了有关操作系统、所有 Windows 应用程序、ActiveX 控件、OLE 和可选组件（如ODBC）的配置信息。对Windows程序员来说，注册表算得上一个大宝藏。 注册表可以通过注册表编辑器（开始?运行regedit）进行添加、修改、删除及注册表文件的导入导出等一系列操作。一般的软件都会向注册表中写东西，但要想知道具体内容也不是一件轻而易举的事。以前有人报道过利用命令fc来实现注册表文件的比较。具体方法是首先导出一个注册表文件reg1.reg，当进行一些操作（如装入一个新软件，或修改了某些设置）后再导出另一个注册表文件reg2.reg，在DOS下执行fc d:\ reg1.reg d:\ reg2.reg > d:\ reg3.txt命令，即可从reg3.txt中将注册表的变化轻松暴露出来。该方法比较实用，但美中不足的是在MS—DOS方式下，执行此命令没有问题，但在开始菜单的运行命令中执行此命令时，MS—DOS提示“太多的文件名（FC: too many filenames）”，即在此种情况下，无法将比较结果重定向到文件中。对该命令进行修改，在其前加上command或command.com命令，带参数/c或/k，即为Command /k fc d:\ reg1.reg d:\ reg2.reg > d:\ reg3.txt或Command /c fc d:\ reg1.reg d:\ reg2.reg > d:\ reg3.txt，前一命令表示执行完该命令后保留MS—DOS窗口，等待下一个命令执行，而后一个命令则表示执行完该命令后关闭MS—DOS窗口。采用这种方式的命令会使你更加得心应手，而且可将此方法应用到别的MS—DOS命令上。当然你还可以用API函数WinExec、ShellExecute将其包装起来，便于使用。 利用此种方法可以很容易的得到你想知道的注册表内容，为你的Windows应用助一臂之力，下面举一个实例说明。笔者在开发一套管理信息系统时，以Win98作为开发环境，采用Delphi 5和SQL Server 7桌面版作为开发语言，以ODBC (开放式数据库连接)数据源进行连接。该方式可运行在NT环境，也可跑于Win98对等网中，前者性能稳定，后者价格便宜，具体配置随用户需求而定。 大家知道，ODBC是数据库服务器的一个标准协议，它向访问网络数据库的 Windows 应用程序提供了一种通用的语言。您可以对多种数据库安装 ODBC 驱动程序，用来连接数据库并访问它们的数据。ODBC 驱动程序管理器使用的 ODBC 驱动程序允许访问 SQL 服务器以及其它几个数据源，包括正文文件和 Microsoft Excel 电子数据表。Borland的Delphi是广大程序员钟爱的一种编程语言，它为数据库编程提供了专门的接口BDE（Borland Database Enginge），由于ODBC的广泛应用，Delphi对ODBC数据源也提供了很好的支持。ODBC具有很大的灵活性，作为一个商用系统，不能让用户自己去手工配置ODBC，这对很多人来说，有一定难度。因此系统中附加了一个应用程序，在该程序中直接写注册表来配置ODBC数据源。
具体做法是，在窗体上放置两个单选钮（rbtn_server、rbtn_local）和两个文本框（edt_Server、edt_database），单选钮用来选择数据库是存放在服务器还是在本地，文本框用来输入服务器名称和数据库名称。若数据库存放在服务器上，则服务器名称文本框激活；若是在本地，则处于失活状态。 至于注册表中具体要写入那些项，可以这样做。先在控制面板ODBC DateSource中配置一个SQL Server数据源，然后在注册表编辑器中利用查找功能查找该数据源，将查找到的主键、键值和数据，在程序中写入注册表即可。这样做好的配置有时会有一些问题，因为SQL Server数据源配置时选择的缺省协议是Named Pipe，而采用Win98对等网连接SQL Server桌面版则需使用TCP/IP协议。如果采用应用程序配置好ODBC数据源后，还需要手工调整连接协议，那就不大合适了。但如何找到该选择项的注册表键值呢？显然采用查找的办法是不行了，这就得用到本文前面所说是比较注册表的方法了。先用控制面板将SQL Server数据源配成Named Pipe协议，导出一个注册表文件reg1.reg，再配成TCP/IP协议，导出另一个注册表文件reg2.reg，用Command /c fc d:\ reg1.reg d:\ reg2.reg > d:\ reg3.txt得到比较结果。从reg3.txt中可以很明显的找到所需要的注册表键值，即：
HKEY_LOCAL_MACHINE\ SOFTWARE\microsoft\MSSQLServer\Client\ConnectTo下 "DSQUERY"="DBMSSOCN" "."="DBNMPNTW,\\\\.\\pipe\\sql\\query" 和
"DSQUERY"="DBMSSOCN" "."="DBMSSOCN,.,1433"（本地）或 " servername "="DBMSSOCN,servername,1433"（servername服务器） 说到这里，一个完整的SQL Server ODBC数据源就大功告成了。 附源程序于后：
procedure Tfrm_main.btn_ODBCConfClick (Sender: TObject); var RegF: TRegistry; AliasName: string; AliasPara: string; mybuffer : pchar; x: longint; mysyspath: string; myservername: string; myservernameVal: string; begin try //配置ODBC yy为ODBC数据源名称 RegF := TRegistry.Create ; try RegF.RootKey := HKEY_LOCAL_MACHINE; begin RegF.OpenKey('SOFTWARE\ODBC\ODBC.INI\yy',true); RegF.Writestring('AnsiNPW', 'No'); RegF.Writestring('Database', trim(edt_database.text)); RegF.Writestring('Description', '医疗保健信息综合管理系统'); try //得到sqlsrv32.dll路径 mybuffer := allocmem(255); x := GetSystemDirectory(mybuffer, 255); mysyspath := string(mybuffer); freemem(mybuffer); mysyspath := mysyspath '\sqlsrv32.dll'; except mysyspath := 'C:\WINDOWS\SYSTEM\sqlsrv32.dll'; end; RegF.Writestring('Driver', mysyspath); RegF.Writestring('LastUser', 'Sa'); RegF.Writestring('QuotedId', 'No'); if rbtn_server.Checked = true then begin myservername := trim(edt_server.text); end else begin myservername := '(local)'; end; RegF.Writestring('Server', myservername); RegF.Closekey; RegF.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources', true); RegF.Writestring('yy', 'SQL Server'); RegF.Closekey; RegF.OpenKey('SOFTWARE\microsoft\MSSQLServer\Client\ConnectTo', true); if rbtn_server.Checked = true then begin myservername := trim(edt_server.text); end else begin myservername := '.'; end; myservernameVal := 'DBMSSOCN,' myservername ',1433'; RegF.Writestring(myservername, myservernameVal); end; finally RegF.Closekey; RegF.Free ; Application.MessageBox('配置ODBC成功！', '配置ODBC', MB_ICONINFORMATION MB_OK); end; except Application.MessageBox('配置ODBC不成功！', '配置ODBC', MB_ICONINFORMATION MB_OK); end; end;