Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.005 c
2-1203085303
Rentner
2008-02-15 17:21
2008.03.16
Как вывести надпись на рабочий стол?


11-1185293436
Dy1
2007-07-24 20:10
2008.03.16
колонки ListView


15-1202114841
Tornado
2008-02-04 11:47
2008.03.16
Выбор видеокамеры


2-1203088715
aids
2008-02-15 18:18
2008.03.16
Потоки и поиск


3-1193258614
Винни-Пух-Пух-Пух
2007-10-25 00:43
2008.03.16
Какие права и шары нужны для обращения к базе FB (+) ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский