A continuación se muestra el código fuente de una aplicación que muestra los orígenes de datos ODBC instalados en el PC. Para ellos hemos de añadir un formulario, un botón y un ListBox:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure GetDataSourceNames(System: Boolean);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.GetDataSourceNames(System: Boolean);
var 
  reg: TRegistry; 
begin 
  ListBox1.Items.Clear; 

  reg := TRegistry.Create; 
  try 
    if System then 
      reg.RootKey := HKEY_LOCAL_MACHINE 
    else 
      reg.RootKey := HKEY_CURRENT_USER; 

    if reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', False) then 
    begin 
      reg.GetValueNames(ListBox1.Items); 
    end; 

  finally 
    reg.CloseKey; 
    FreeAndNil(reg);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //DNSs de sistema
  GetDataSourceNames(True);

  //DNSs de usuario
  GetDataSourceNames(False);
end;

end.

Publicado el: 2003-12-11