IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Смена картинки на рабочем столе
сообщение
Сообщение #1


Гость






Подскажите пожалуйста почему после смены картинки
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 -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 112
Пол: Мужской

Репутация: -  0  +


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 -


--------------------
Я люблю этот форум!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 5.12.2021 18:05
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name