Как сменить цвет фона рабочего стола?

[Paul Hindenburg]

нашел в реестре
HKEY_CURRENT_USER\Control Panel\Colors
параметр Background содержит цвет и я его не могу преобразовать в цвет(( там нужно использовать ReadBinaryData не пойму как... и еще одна загвоздка...если я вручную меняю этот параметр на другой цвет то цвет не меняется даже после обновления экрана, необходимо сделать выход из системы .только тогда цвет измениется.

[Toxa]

там надо использовать readstring
это значения RGB, переводи их в цвет ф-цией RGB(Red,Green,Blue:byte):cardinal

[artemavd]

Может это.. Изменить фон рабочего стола

uses ...Registry; //подключаем модуль
...
procedure TForm1.Button1Click(Sender: TObject);
var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create('Control Panel');
  Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp');
  Reg.WriteString('desktop', 'TileWallpaper', '0');
  Reg.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

[Paul Hindenburg]

Сообщение от artemavd

Может это.. Изменить фон рабочего стола

нет, мне нужно просто изменить цвет рабочего стола, обои я знаю как менять