powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод картинки на рабочий стол
4 сообщений из 4, страница 1 из 1
Вывод картинки на рабочий стол
    #39766648
Фотография Tech N9ne
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Надумал я парсить погоду.. Помучился, потом подумал, и решил сделать так...
с окна twebbrowser`a сделать скриншот, вырезать нужною часть с погодой, и выводить на рабочий стол...

Сейчас запнулся на выводе той самой картинки на рабочий стол.
Пробовал вот так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
var
  DeskTop:TCanvas;
 .....  
   DeskTop:=TCanvas.Create;
   DeskTop.Handle:=GetDC(0);// Получим Handle Рабочего стола
   DeskTop.Draw(0,0,sImage2.Picture.Bitmap);
   DeskTop.Free;


Изображение появляется, но затмевает ярлыки,даже программы.. если провести курсором, часть изображения исчезает.
Я так понял это не тот метод что мне нужен.
Со своими скудными знаниями программирования, у меня хватило ума только на то, что бы менять картинку рабочего стола с уже встроенной в неё картинкой погоды...
Может есть более правильные решения?

Заранее благодарю за помощь!
...
Рейтинг: 0 / 0
Вывод картинки на рабочий стол
    #39766652
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Tech N9neМожет есть более правильные решения?
Виджет, если они еще поддерживаются.
...
Рейтинг: 0 / 0
Вывод картинки на рабочий стол
    #39766672
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Окно без рамок с родителем - десктопом и первое после него по z-order
...
Рейтинг: 0 / 0
Вывод картинки на рабочий стол
    #39766676
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вывод картинки на рабочий стол
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]