Lenguaje de programación Borland Delphi
Con este procedimiento podremos escribir un valor de tipo cadena en el Regedit (Registro de configuraciones) de Windows. Para que funcione hemos de poner en el USES del formulario "Regedit" pues es la unidad donde está la función "WriteString":
procedure escribeRegistro (desdeClave : HKEY; ruta, cadena, valor : string;
crear : boolean);
var
reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := desdeClave;
Reg.OpenKey(ruta, crear);
Reg.WriteString(cadena, valor);
finally
reg.Free;
end;
end;
Un ejemplo de utilización:
escribeRegistro(HKEY_CURRENT_USER, '\SOFTWARE\AjpdSoft\Control de Campo',
'Ruta', extractfilepath(application.ExeName), true);
Publicado el: 2005-07-26