[WT] [Архив] [Поиск] [Главная] [Управление]
[Совместно с IIchan.ru]

[Назад]
Ответ в нить

Имя
Адрес  [sage] [noko]
Animapcha image [?]
Тема   (reply to 1841)
Сообщение
Файл 
Пароль  (для удаления файлов и сообщений)
  • Прежде чем постить, ознакомьтесь с правилами.
  • Поддерживаемые типы файлов: 7Z, BZ, GIF, JPG, MO, MP3, OGG, PDF, PNG, PSD, RAR, SVG, SWF, TXT, XCF, ZIP
  • Максимально допустимый размер файлов: 10000 кБ.
  • Изображения, размер которых превышает 200 на 200 пикселей, будут уменьшены.
  • Ныне 1812 unique user posts. Посмотреть каталог
  • Радио:

Файл: 127106304848.jpg-(376.96KB, 900x1001, 1270806309100.jpg)
1841 No. 1841 watch
залогинилась!
есть код на Pascal какой меняет обои. Мы меняем ключ в каком путь к файлу и ключ какой отвечает за растянуть-замостить-скейл короче. Потом должна быть строка-оповещение системе что обои я поменял. Пробовал всякое - ничего не действует
нужный тебе фрагмент
' begin
a:= TRegistry.Create;
a.RootKey :=HKEY_CURRENT_USER;
a.OpenKey('\Control Panel\desktop\', false);
a.WriteString('Wallpaper', opendialog1.FileName);
a.WriteString ('TileWallpaper','0') ;
systemparametersinfo(spi_setdeskwallpaper, 0, nil,spif_sendwininichange );sendmessage(findwindow('progman', 'program manager'),wm_command,$a065,0);
a.CloseKey;
a.Free;
end;'
как ты уже понял насчёт SystemParametersInfo(SPI_SETDESKWALLPAPER,0,Nil,SPIF_SENDWININICHANGE); я не уверен ибо не помогает. Советы мудрые?
Развернуть все изображения
>> No. 1842
Файл: 12710783765.jpg-(327.61KB, 700x1247, 8b157aea5ac99dcdc1f7ea565965b17f7e814273.jpg)
1842
>SystemParametersInfo

>>SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, filename, SPIF_UPDATEINIFILE);

Это работает только с Bitmap. Если с другими форматами — надо сконвертировать в Bitmap.
>> No. 1843
>>1842
добра тебе!
>> No. 1844
>есть код на Pascal какой меняет обои
Позорище.
>> No. 1865
>>1844
я же не копипастил код, ключик в реестре и сам способен поменять, элитарий блин
[Назад]


Удалить сообщение []
Пароль  
[Mod]