Скачать: CL | DM;

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

← →
Juri   (2006-12-28 20:52) [0]

имеется такая процедура у меня меняет обои на рабочем столе

procedure TForm1.ChangeActiveWallpaper(wal:PWideChar; i:Cardinal);
const
 CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
 ActiveDesktop: IActiveDesktop;
begin
 ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
   as IActiveDesktop;
 ActiveDesktop.SetWallpaper(wal, i);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

всё работает отлично НО мне бы ещё знать как поставить обои на рабочем столе не растянутыми а к примеру по центру или нужно если замостить рабочий стол... может кто знает?

---

← →
Juri   (2006-12-28 20:53) [1]

procedure TForm1.ChangeActiveWallpaper(wal:PWideChar; i:Cardinal);
" i " ввёл думал что с её помощью определяется положение обоев но нет попробовал беспалезно даже если её менять не помогает... так сказать методом науного тыка не палучилось вычислить...

---

← →
Juri   (2006-12-29 21:04) [2]

никто не знает?

---

← →
allrussia ©   (2006-12-29 21:12) [3]

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/iactivedesktop/flags.asp

WPSTYLE_CENTER
   The wallpaper is centered.

WPSTYLE_STRETCH
   The wallpaper is stretched to fit the entire screen.

WPSTYLE_TILE
   The wallpaper is tiled.

сюда вставлять судя по всему:
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE + WPSTYLE_CENTER);

---

← →
Juri   (2006-12-29 22:16) [4]

судя по всему вставлять не туда...
есть такая функция ActiveDesktop.SetWallpaperOptions(); вот судя по всему куда только как не пойму может кто разобрался?

---

← →
allrussia ©   (2006-12-29 22:23) [5]

Juri
var t: TWallPaperOpt;
t.dwSize = ...
t.dwStyle = ... ??
...
ActiveDesktop.SetWallpaperOptions(t, 0)

там же по ссылке которую я дал написано

---

← →
Juri   (2006-12-29 22:25) [6]

нда я вот оттуда и вычитал что нужно через оптионс тока вот не могу понять что мне вносить в DWSize???

---

← →
Zeqfreed ©   (2006-12-29 22:27) [7]

> Juri   (29.12.06 22:25) [6]

Размер используемой структуры.

---

← →
Juri   (2006-12-29 22:28) [8]

> Размер используемой структуры

от этого у меня ещё больше вапросов только появилось...

---

← →
allrussia ©   (2006-12-29 22:29) [9]

Sizeof(t)

---

← →
Juri   (2006-12-29 22:45) [10]

огромное спасибо!!!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c