agree,u can use delphi to create it ,too,see the following: var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('\SOFTWARE\ODBC\ODBC.INI', True) then Begin Reg.CreateKey(MyODBCName); Reg.CloseKey; Reg.OpenKey('\SOFTWARE\ODBC\ODBC.INI'+MyODBCName); Reg.WriteString('dbq',yourvalue); //so on ....,use regedit to see it end; finally Reg.CloseKey; Reg.Free; inherited; end; end;
M$最近有不喜欢它
你可以写注册表来实现这一功能,将ODBC别名写入注册表中。
很简单
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('\SOFTWARE\ODBC\ODBC.INI',
True)
then
Begin
Reg.CreateKey(MyODBCName);
Reg.CloseKey;
Reg.OpenKey('\SOFTWARE\ODBC\ODBC.INI'+MyODBCName);
Reg.WriteString('dbq',yourvalue);
//so on ....,use regedit to see it
end;
finally
Reg.CloseKey;
Reg.Free;
inherited;
end;
end;