unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}
uses registry;
// SQLConfigDataSource API 宣告
// see MSDN for more information
const
  ODBC_ADD_DSN = 1;
  ODBC_CONFIG_DSN = 2;
  ODBC_REMOVE_DSN = 3;
  ODBC_ADD_SYS_DSN = 4;
  ODBC_CONFIG_SYS_DSN = 5;
  ODBC_REMOVE_SYS_DSN = 6;    function SQLConfigDataSource(hwndParent: HWND;
  fRequest: Word;
  lpszDriver: PChar;
  lpszAttributes: PChar): boolean; Stdcall;
  External 'ODBCCP32.DLL';    function SetupODBC(Driver, Attributes: string): boolean;
begin
  SQLConfigDataSource(0, 6, PChar(Driver), PChar(Attributes));
  if SQLConfigDataSource(0, 4, PChar(Driver), PChar(Attributes)) then
    result := true
  else
    result := false;
end;
function AddODBCSQL(ODBC_NAME,ServerName,DataBaseName,UserName:string):boolean;
var Reg: TRegistry;
begin
  result:=false;
  if not SetupODBC('SQL Server','DSN=' ODBC_NAME #0 'Server=' ServerNAme #0 'DataBase=' DataBaseName #0) then exit;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\Software\ODBC\', True) then
    begin
      Reg.OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', True);
      Reg.WriteString(ODBC_NAME,'SQL Server');
      Reg.OpenKey('\Software\ODBC\ODBC.INI\' ODBC_NAME, True);
      Reg.WriteString('LastUser', UserName);
    end;
    Reg.CloseKey;
  finally
    Reg.Free;
    result:=true;
  end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  if not AddOdbcSql('TEST','192.168.1.1','DATABASE','sa') then caption:='Error' else caption:='OK';
end;    end.