Помощь - Поиск - Пользователи - Календарь
Полная версия: Смена картинки на рабочем столе
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
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);

но все равно тоже самое.
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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.