Función que obtiene datos del registro de configuraciones de Windows (regedit). Esta función sólo obtiene datos de tipo string (cadena de texto). Para crear otra función que obtenga otro tipo de datos es suficiente con cabiar el tipo de datos que devuelve la función y la función "reg.ReadString" por la correspondiente según el tipo de datos. En la claúsula USES del formulario añadiremos "Registry":

...

Uses
  ..., registry;

...

function obtenerCadenaRegistro (claveInicial : Cardinal; clave : string; valor : string) : string;
var
  reg: TRegistry;
begin
  Result := '';
  Reg := TRegistry.Create;
  Reg.RootKey := claveInicial;
  reg.OpenKey(clave, False);
  try
    Result := reg.ReadString(valor);
  finally
    reg.CloseKey;
  end;
end;

obtenerCadenaRegistro(HKEY_LOCAL_MACHINE,'SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources',odbc);

Publicado el: 2005-07-07