Главная страница
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
3-93407
SASH2
2004-01-05 11:50
2004.01.29
Чистка базы при определенном условии.


3-93387
alextov
2003-12-29 15:28
2004.01.29
При вводе ключевого поля не отображаются некоторые лукапные поля


1-93439
Pavor
2004-01-12 14:58
2004.01.29
RichEdit не показывает картинку


3-93362
WG
2003-12-30 12:13
2004.01.29
Как упорядочить записи в БД по алфавиту ?


14-93679
termos
2004-01-09 09:43
2004.01.29
Закрытие портов на локальной машине