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
reg.WriteString ('Wallpaper','c:\windows\CIRCLES.bmp') ;
reg.WriteString ('TileWallpaper','1') ;
reg.WriteString('ScreenSaveActive','0') ;
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');