Текущий архив: 2008.03.16;
Скачать: CL | DM;
Вниз
рабочий стол Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
