Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Обсуждение статей
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.05.2007, 03:17   #1
Pblog
Бот
Администратор
 
Регистрация: 27.05.2007
Сообщений: 182
Стрелка обновление в блоге - Рабочий стол

Рабочий стол

pblog.ruИтак, Рабочий стол- это первое что мы видим после загрузки пользователя. Сначала я дам код, как изменить фоновый рисунок на Столе. Вот что надо написать:
implementation
Uses ShlObj, ComObj;
procedure ChangeWallpaper;
const
CLSID_ActiveDesktop: TGUID = ‘{75048700-EF1F-11D0-9888-006097DEACF9}’;
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop )
as IActiveDesktop;
ActiveDesktop.SetWallpaper(’Путь к файлу’, 0);
ActiveDesktop.ApplyChanges(AD_APPLY _ALL or AD_APPLY_FORCE);
end;
(more…)
Pblog вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
пропадает пуск, рабочий стол. SAYLOR Безопасность, Шифрование 6 27.08.2008 05:03
Ярлык книги на рабочий стол FoxRiver Microsoft Office Excel 4 28.07.2008 09:24
Рабочий стол masterdela Win Api 3 31.01.2008 19:03
Рабочий стол, рисование D-mon Win Api 7 22.11.2007 18:54