| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
рабочий стол [D7, XP]
Troyan_81 © (2008-02-13 11:26:00)МАСТЕРА! Подскажите пожалуйста, как можно программно установить картинку на рабочий стол?
Amoeba (2008-02-16 20:02:00) [1]Ни как не возьму в толк, и чего некоторые такой фигней страдают. IMHO, очень IMHO, разумеется.
Troyan_81 (2008-02-16 17:00:00) [2]Мастера, нашёл когда-то в инете такой код смены обоев на рабочий стол. Раньше все работало, но исходник потерял, к сожалению и разобраться почему вдруг перестало работать понять не могу.
Подскажите пожалцуйста.
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';
Помогите пожалуйста!
{RASkov} (2008-02-13 14:59:00) [3]> [3] {RASkov} © (13.02.08 14:58)
Сорри: *Slym © [1]
{RASkov} (2008-02-13 14:58:00) [4]> [2] Troyan_81 (13.02.08 12:10)
Набери пост Slim[1] в Яндексе, например....
Troyan_81 (2008-02-13 12:10:00) [5]Я немного не понимаю. Хотелось бы маленький пример посмотреть.
Slym (2008-02-13 12:06:00) [6]SystemParametersInfo + SPI_SETDESKWALLPAPER
| |
