Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Обои на рабочий стол   Найти похожие ветки 

← →
VDen   (2002-06-13 12:45) [0]

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

---

← →
Song   (2002-06-13 13:59) [1]

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

---

← →
zzzzzzz   (2002-06-13 15:56) [2]

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

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;


---

← →
SerVS   (2002-06-14 16:43) [3]

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

---

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

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

---

← →
stainer   (2002-06-19 02:06) [5]

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

---

← →
stainer   (2002-06-19 02:17) [6]

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

---

← →
Avenger   (2002-06-20 00:42) [7]

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.006 c