Escribir en el Registro para crear mis ODBC
 

Buenas amigos estoy tratando de crear mis odbc escribiendo esto en el registro lo he probado tanto en Windows Xp como en W7! ejecutandolo como Administrador y nada!!

Código Delphi [-]
programa:='Ruta de Archivo de Programas'
            r := TRegistry.create;
            r.RootKey:= HKEY_LOCAL_MACHINE;
            r.OpenKey('SOFTWARE\ODBC\ODBC.INI\MyODBC',true);
            r.WriteString('Database','MyBaseDatos);
            r.WriteString('Driver',programas+'\MySQL\Connector ODBC 5.1\myodbc5.dll');
            r.WriteString('PORT',Inttostr(3306));
            r.WriteString('PWD','clave');
            r.WriteString('Server','localhost');
            r.WriteString('UID','root');
            r.CloseKey;
            r.Free;
            r := TRegistry.create;
            r.RootKey:= HKEY_LOCAL_MACHINE;
            r.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',true);
            r.CloseKey;
            r.Free;
            r := TRegistry.create;
            r.RootKey:= HKEY_LOCAL_MACHINE;
            r.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',true);

si conocen una mejor forma se los agradeceria muchas gracias de antemano

Esto hago al guardar el ancho de columnas de un DBGrid,

Código Delphi [-]
Var
 Registro  : TRegistry;  
 F         : Byte; 
Begin 
Registro:=TRegistry.Create; 
Registro.OpenKey('\Software\Administrador\'+v_Empresa+'\Grids',True); 
 For F:=0 To DbGrid.Columns.Count-1 Do Registro.WriteInteger(nombForm+DbGrid.Name+'['+IntToStr(F)+']',DbGrid.Columns[F].Width); 
Registro.Free;

La unica diferencia q veo con tu codigo, es que no uso el " CloseKey; "

Uso Delphi 6 y Win Xp.
Saludos, suerte.

Pero ¿cual es el problema? ¿no te escribe en el registro o no te conecta con la base de datos?

No escribe en el registro, no me crea los ODBC

Listo amigos ya consegui cual era mi problema

estaba haciendo

Código Delphi [-]
 r.OpenKey('SOFTWARE\ODBC\ODBC.INI\MyOdbc',true);

y la clave no existia
entonces antes de esto
hice un

Código Delphi [-]
r.CreateKey('SOFTWARE\ODBC\ODBC.INI\MyOdbc');

y aparte de eso tambien me estaba faltando escribir

Código Delphi [-]

r := TRegistry.create;
r.RootKey:= HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',true);
r.WriteString('MyOdbc','MySQL ODBC 5.1 Driver');
r.CloseKey;
r.Free;

Gracias por la ayuda y espero que este aporte le sea util a cualquier otra persona