 |
|
Модераторы: Snowy, Alexeis, MetalFan |
 
|
|
Фон рабочего стола, Сохранить картинку 
| Keeper89 |
|
|||
|
Эксперт  Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: 1 Всего: 58 |
Требуется сохранить рисунок рабочего стола (не скриншот!) как картинку в TBitmap и в файл.
Заранее спасибо. |
|||
|
||||
Загрузка ...
| Alexeis |
|
|||
 Амеба  Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 55 Всего: 459 |
Заходишь сюда "HKEY_CURRENT_USER\Control Panel\Desktop", читаешь параметр WallPaper он дает путь к картинке, загружаешь ее и если там не bmp, то конвертируешь при помощи одного из классов VCL TJpegImage/TPngImage/TGifImage. В Delphi 7 доступен только TJpegImage.
-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| Keeper89 |
|
|||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: 1 Всего: 58 |
А куда полученную картинку лучше загрузить, если не известен ее тип? Это сообщение отредактировал(а) Keeper89 - 29.3.2009, 13:25 |
|||
|
||||
| Alexeis |
|
|||
|
Амеба Профиль Группа: Админ Сообщений: 11743 Регистрация: 12.10.2005 Где: Зеленоград Репутация: 55 Всего: 459 |
Как неизвестен, по расширению можно определить. А вообще TImage должна принять все что понимает. Тогда обращаться к ней прийдется так Image1.Picture.Graphic , поскольку все контейнеры являются наследниками TGraphic.
-------------------- Vit вечная память. Обсуждение действий администрации форума производятся только в этом форуме гениальность идеи состоит в том, что ее невозможно придумать |
|||
|
||||
| Keeper89 |
|
||||
|
Эксперт Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: 1 Всего: 58 |
Просто по расширению не очень надежно...
Ок, спасибо |
||||
|
|||||
|
|
| Правила форума "Delphi: Звук, графика и видео" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема » |
[ Время генерации скрипта: 0.0494 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |