Разработка

Файл: 127106304848.jpg-(376.96KB, 900x1001, 1270806309100.jpg)

Стив Балмер 12.04.2010 (Пнд) 13:04:09 No. 1841

залогинилась!
есть код на 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); я не уверен ибо не помогает. Советы мудрые?

Развернуть все изображения

Стив Балмер 12.04.2010 (Пнд) 17:19:37 No. 1842
Файл: 12710783765.jpg-(327.61KB, 700x1247, 8b157aea5ac99dcdc1f7ea565965b17f7e814273.jpg)

>SystemParametersInfo

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

Это работает только с Bitmap. Если с другими форматами — надо сконвертировать в Bitmap.

>>	Стив Балмер 12.04.2010 (Пнд) 19:35:00 No. 1843 >>1842 добра тебе!

>>	Стив Балмер 13.04.2010 (Втр) 10:08:37 No. 1844 >есть код на Pascal какой меняет обои Позорище.

>>	Стив Балмер 19.04.2010 (Пнд) 13:23:00 No. 1865 >>1844 я же не копипастил код, ключик в реестре и сам способен поменять, элитарий блин

[Назад]

Имя
Адрес	[sage] [noko]
	[?]
Тема	(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. Посмотреть каталог Радио: