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

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

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.05.2012, 21:03   #1
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
Вопрос Рисование на рабочем столе! Оверлеи!

Доброго времени суток, уважаемые друзья!
Интересует такая вещь как вывод изображения ( а скорее даже анимации)
На рабочий стол под ярлыками! Как это делают такие плееры как VCL (на XP мог на семёрке не знаю)!
Слышал о том, что там задействуют оверлеи!
Собственно вопросы таковы
1) Общий подход
2) Возможно ли это с помошью OpenGL

Собственно, не подкините пару ресурсов для изучения!
Желательно бы узнать как такое сделать именно под Windows 7!
Всем за ранее спасибо!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 22.05.2012, 00:37   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

Для Win7 прокатило. Но при обновлении рабочего стола все чистится
Код:
procedure TForm1.Button1Click(Sender: TObject);
var hwndProgman,hwndDefView,hwndSysListView32: HWND;
    hdcSysListView32: HDC;
    xRect: TRect;
begin
  hwndProgman:=FindWindow('Progman',nil);
  hwndDefView:=FindWindowEx(hwndProgman,0,'SHELLDLL_DefView',nil);
  hwndSysListView32:=FindWindowEx(hwndDefView,0,'SysListView32',nil);
  hdcSysListView32:=GetDC(hwndSysListView32);
  xRect:=Rect(Screen.Width-200,Screen.Height-200,Screen.Width-100,Screen.Height-100);
  FillRect(hdcSysListView32,xRect,COLOR_WINDOWTEXT);
  ReleaseDC(hwndSysListView32,hdcSysListView32);
end;
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.05.2012, 00:48   #3
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

огромное спасибо аватар! +1 вам за это!
Буду копать!
Да такой вопрос не знаете как можно OpenGL прикрутить к рабочему столу?
Ибо через GDI как я понимаю рисовать не очень получится!
Ну вот я даже плюсануть не могу!

ПОЭТОМУ ГОВОРЮ ВАМ СПАСИБО!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 22.05.2012, 07:44   #4
s-andriano
Старожил
 
Аватар для s-andriano
 
Регистрация: 08.04.2012
Сообщений: 3,229
По умолчанию

А что, обычный путь через связывание контекста воспроизведения OpenGL с контекстом дисплея окна не работает?
s-andriano вне форума Ответить с цитированием
Старый 22.05.2012, 08:01   #5
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Цитата:
А что, обычный путь через связывание контекста воспроизведения OpenGL с контекстом дисплея окна не работает?
Можно, но только не для каждого заполненного дескриптора формата пикселя это прокатит. На gamedev.ru что-то пытались сделать. И кое-какие рез-ты были получены. Даже где-то исходник выкладывали.
UPD:
Гляньте. Рисуют DirectX'ом, заюзав оверлэи
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 22.05.2012 в 19:35.
Rin вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
рисование в чужом окне или на рабочем столе FanRa3 Общие вопросы Delphi 1 01.01.2012 11:16
Рисование на рабочем столе... Johnson Общие вопросы Delphi 7 13.07.2011 19:22
Рисование текста на рабочем столе artemavd Общие вопросы Delphi 9 23.10.2010 06:08
Значки на рабочем столе Xardas Свободное общение 4 01.03.2008 20:21
SpeedButton на рабочем столе ERASERROR Общие вопросы Delphi 10 22.01.2008 16:58