| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обои на рабочий стол [D6, Win2k]

VDen ©   (2002-06-13 12:45:00) 

Как сменить эти самые обои на рабочем столе из программы?
Так же как это делается в AcdSee.

---

Avenger   (2002-06-20 00:42:00) [1]

При вкл. ActiveDesktop не работает!

---

stainer   (2002-06-19 02:17:00) [2]

Сори, конечно за А если включен active DESKTOP?
Поблему понял.

---

stainer   (2002-06-19 02:06:00) [3]

Аесли включен active DESKTOP?

---

Ricks   (2002-06-17 14:34:00) [4]

Через интерфейс IActiveDesktop в ShlObj

---

SerVS   (2002-06-14 16:43:00) [5]

Song © прав, люди научитесь пользоваться поиском!!!

---

zzzzzzz   (2002-06-13 15:56:00) [6]

может не самый правильный способ, но.... на ХРю работает

procedure TForm1.Button1Click(Sender: TObject);
var
reg : TRegIniFile;
begin
// HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
reg := TRegIniFile.Create("Control Panel" );
with reg do
begin
WriteString("Desktop","Wallpaper","c:\1.bmp");//<- твоя картина
WriteString( "Desktop", "WallpaperStyle", "2" );
reg.Free;
// оповешаем, что обои обновились
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Nil, SPIF_SENDWININICHANGE );
end;
// SetWallpaper("c:\winnt\winnt.bmp", False);
end;


---

Song   (2002-06-13 13:59:00) [7]

SystemParametersInfo()
этот вопрос через каждые два дня обсуждается.

---

Наверх