标签:key cname ODB war bdc sources create software end
//删除注册的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;
标签:key cname ODB war bdc sources create software end
原文地址:https://www.cnblogs.com/jijm123/p/12153039.html