REG_DWORD leer y escribir un valor en el registro

[madmai]

Hola buenas, me gustaria saber como se lee y se escribe un valor REG_DWORD en el registro en lazarus o en delphi, gracias de antemano;

[matabyte]

Pues hay que usar la unidad "registry" que tiene la clase TRegistry.



Aquí te pongo un ejemplo

Código Delphi [-]
uses registry;
procedure TForm1.FormCreate(Sender: TObject) ;
var
   reg:TRegistry;
begin
   reg:=TRegistry.Create;
   with reg do begin
    try
     if OpenKey('\Control Panel\desktop', False)  then begin
     //change wallpaper and tile it
      reg.WriteString      ('Wallpaper','c:\windows\CIRCLES.bmp') ;
      reg.WriteString      ('TileWallpaper','1') ;
      //disable screen saver//('0'=disable, '1'=enable)
      reg.WriteString('ScreenSaveActive','0') ;
      //update changes immediately
      SystemParametersInfo (SPI_SETDESKWALLPAPER,0, nil,SPIF_SENDWININICHANGE) ;
      SystemParametersInfo (SPI_SETSCREENSAVEACTIVE,0, nil,SPIF_SENDWININICHANGE) ;
     end
    finally
      reg.Free;
    end;
   end;
end;

para escribir un valor dword tendrías que usar la propiedad
"WriteCardinal" por ejemplo:

Código Delphi [-]
reg.writecardinal('clave',valor);

Y para leerla, la propiedad"ReadCardinal" por ejemplo:

Código Delphi [-]
valor:=reg.readcardinal('clave');