Форум: "Начинающим";
Текущий архив: 2008.03.16;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Troyan_81   (2008-02-13 11:26) [0]

МАСТЕРА! Подскажите пожалуйста, как можно программно установить картинку на рабочий стол?

---

← →
Slym ©   (2008-02-13 12:06) [1]

SystemParametersInfo + SPI_SETDESKWALLPAPER

---

← →
Troyan_81   (2008-02-13 12:10) [2]

Я немного не понимаю. Хотелось бы маленький пример посмотреть.

---

← →
{RASkov} ©   (2008-02-13 14:58) [3]

> [2] Troyan_81   (13.02.08 12:10)

Набери пост Slim[1] в Яндексе, например....

---

← →
{RASkov} ©   (2008-02-13 14:59) [4]

> [3] {RASkov} ©   (13.02.08 14:58)

Сорри: *Slym © [1]

---

← →
Troyan_81   (2008-02-16 17:00) [5]

Мастера, нашёл когда-то в инете такой код смены обоев на рабочий стол. Раньше все работало, но исходник потерял, к сожалению и разобраться почему вдруг перестало работать понять не могу.
Подскажите пожалцуйста.


procedure ActiveWallpaper;
const
 CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";
var
 ActiveDesktop: IActiveDesktop;
 st: PWideChar;
begin
 st:= PWideChar(form1.Label4.Caption);
 ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
   as IActiveDesktop;
 ActiveDesktop.SetWallpaper(pwidechar(st), 0);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;


Код работает если в переменную st загнать сразу st:="image,jpg";
Помогите пожалуйста!

---

← →
Amoeba ©   (2008-02-16 20:02) [6]

Ни как не возьму в толк, и чего некоторые такой фигней страдают. IMHO, очень IMHO, разумеется.

---

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

Форум: "Начинающим";
Текущий архив: 2008.03.16;
Скачать: [xml.tar.bz2];

Наверх

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