看看TRegistry的帮助吧,里面很详细的

解决方案 »

  1.   

    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;