Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.46 MB
Время: 0.011 c
6-93615
SkyN
2003-11-24 11:17
2004.01.29
как по имени сетевого диска (например i: ) получить имя куда он с


1-93559
Pantera111
2004-01-16 02:02
2004.01.29
Компонент следящий за изменением файловой системы


1-93568
Mazer
2004-01-16 14:40
2004.01.29
Корректное отображение формы, вызванной из dll...


9-93318
inc-viz
2003-07-11 19:43
2004.01.29
Продвинутые спрайты..Delphix


1-93562
frost
2004-01-17 14:22
2004.01.29
String в URL?