Смена картинки на рабочем столе Опции

[KolanT]

Подскажите пожалуйста почему после смены картинки

Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', reg_str);
Reg.WriteString('desktop', 'TileWallpaper', '1');
Reg.Free;

Экран становится черным??? Пробовал его обновить вот так

SendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, $A065, 0);

но все равно тоже самое.

Сообщение отредактировано: volvo - 5.04.2010 13:18

[NetAnton]

uses ..., Registry, ...;

{ в коде где-то пишешь: }

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;

Сообщение отредактировано: volvo - 5.04.2010 13:18