//删除注册的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;
如何在控制面板中删除ODBC,不要隐藏!!!
猜你喜欢
转载自www.cnblogs.com/jijm123/p/12153039.html
今日推荐
周排行