Текущий архив: 2004.01.29;
Скачать: CL | DM;
Вниз
Не могу изменить обои рабочего стола Найти похожие ветки
← →
hawkins (2004-01-15 18:22) [0]Не могу изменить обои рабочего стола. Пишу так:
SystemParametersInfo(spi_SetDeskWallPaper,0,Addr(BmpFileName),spif_UpdateIniFile + spif_SendWinIniChange);
В результате вместо картинки пустая заставка.
← →
Ig (2004-01-15 21:38) [1]uses ...Registry; //подключаем модуль
...
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create("Control Panel");
Reg.WriteString("desktop", "Wallpaper", "Здесь картинка");
Reg.WriteString("desktop", "TileWallpaper", "0");
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;
← →
Ig (2004-01-15 21:50) [2]Сейчас еще раз попробовал, все нормально работает! :)
Страницы: 1 вся ветка
Текущий архив: 2004.01.29;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.008 c
