删除注册的ODBC

procedure OBDCDelete(ODBCName:string);
var registerTemp:TRegistry;
begin
   registerTemp := TRegistry.Create;
   with registerTemp do
   begin
   try
     RootKey:=HKEY_LOCAL_MACHINE;
      if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
       begin //注册一个DSN名称
         DeleteValue(ODBCName);
       end ;
     closeKey;
     registerTemp.DeleteKey('Software\ODBC\ODBC.INI\'+odbcname);
   except
   end;
   end;
   registerTemp.Free;
end;

转载于:https://www.cnblogs.com/94YY/archive/2011/05/11/2043511.html