如何用WinApi来判断ODBC数据配置中是否存在一个名字为“My_SQl”的数据源？？ 其中"My_SQL"为一个连接SQL SERVER的数据塬？如何判断名字为"My_SQL"的数据源是否存在呢？

在網路上找了一下, 都是從 registry 下手, 如下:

uses 
  Registry;     procedure TForm1.GetDSNs(System: Boolean; AList: TStrings); 
var 
  reg: TRegistry; 
begin 
  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(AList); 
    end;       finally 
    reg.CloseKey; 
    FreeAndNil(reg); 
  end; 
end;     procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ListBox1.Clear;      //System DSNs 
  GetDataSourceNames(True, ListBox1.Items); 
  //User DSNs 
  GetDataSourceNames(False, ListBox1.Items);       if ListBox1.Items.IndexOf('My_SQL') = -1 then
    ShowMessage('My_SQL ODBC DSN 不存在');
end; 

--- 歡迎光臨 KTop 研究院

可以通过Api函数来实现吗？

谢谢，不知道能不能通过Api函数来实现吗？

對 ODBC32.DLL 的 function 有興趣的話 Demian Lessa 在底下這有他的大作可參考: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=594&lngWId=7    --- 歡迎光臨 KTop 研究院

谢谢，不过，我看了，里面好复杂哦！！

簡化如下

VAR 
  FORM1:TForm1;
  function SQLConfigDataSource(hwndParent: HWND;
    fRequest: Word;
    lpszDriver: PChar;
    lpszAttributes: PChar): boolean; stdcall;
    external 'ODBCCP32.DLL';    implementation
{$R *.DFM}    procedure TForm1.FormCreate(Sender: TObject);
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;
VAR Attributes: string;
    DRIVER:STRING;
begin
      Driver := 'SQL Server';
      Attributes := 'DSN=CYBERDB' #0 
                    'DATABASE=CounterDB' #0 
                    'Network=DBMSSOCN' #0 
                    'SERVER=10.10.1.5' #0 
                    'Description=cyberdb';             SQLConfigDataSource(0, ODBC_REMOVE_SYS_DSN, PChar(Driver), PChar(Attributes));
         SQLConfigDataSource(0, ODBC_REMOVE_DSN, PChar(Driver), PChar(Attributes));
         if NOT SQLConfigDataSource(0, ODBC_ADD_DSN, PChar(Driver), PChar(Attributes)) then
            MessageDlg('ODBC DSN FALSE!', mtWarning, [mbOk], 0);
   end;
end;    

我不懂，不懂，不懂....所以我才來ktop學工夫

function SQLCreateDataSource(hwndParent: HWND; lpszAttributes: PChar): boolean; stdcall; external 'ODBCCP32.DLL'; function SQLManageDataSources(hwndParent: HWND): boolean; stdcall; external 'ODBCCP32.DLL'; 其他的幾個相關函數，可查MSDN