Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.28;
Скачать: CL | DM;

Вниз

Изображение окна   Найти похожие ветки 

 
murava ©   (2006-09-18 12:28) [0]

Подскажите, как получить изображение окна в TBitmap(или возможно другой тип)? Окно может быть неактивным, поверх него находяться еще другие окна, или вообще оно свернуто. Это хоть возможно сделать??


 
KilkennyCat ©   (2006-09-18 12:39) [1]

теоретически - да. а практически - я б его сделал на мгновение поверх всех. так проще.


 
murava ©   (2006-09-18 12:49) [2]

To KilkennyCat:
А можешь подсказать как именно получить изображение. Я нашел функцию в WinApi (что-то типа BitBlt... точно не помню :)), она перерисовывала окно изображением с другого, а мне б именно получить это изображение без всякого гимороя :)
P.S. В той функции BitBlt используеться КОНТЕКСТ окна, а чем именно отличаеться контекст от самого окна?


 
KilkennyCat ©   (2006-09-18 13:52) [3]

> а чем именно отличаеться контекст от самого окна?


Мне затруднительно ответить... а что такое - самое окно?

BitBlt замечательно работает.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/bitmaps_0fzo.asp

Если сложно непосредственно с требуемым окном, то можно обратится к рабочему столу... пример из кулибы:

 procedure TForm1.Button1Click(Sender: TObject);  var DeskTop : TCanvas ; begin DeskTop := TCanvas.Create ;  try  with DeskTop do  Handle := GetWindowDC (GetDesktopWindow) ; with PaintBox1.Canvas do  CopyRect (Rect (0, 0, 200, 200),  DeskTop,  Rect (0, 0, 200, 200)) finally  DeskTop.Free endend;  
Это скопирует верхнюю левую область рабочего стола в верхнюю левую область вашего TPaintBox.


 
DeadMeat ©   (2006-09-19 00:49) [4]

http://www.fengyuan.com/article/wmprint.html



Страницы: 1 вся ветка

Текущий архив: 2007.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.035 c
15-1167991529
alexeis
2007-01-05 13:05
2007.01.28
Установить принтер, не подключая его


2-1168359487
Stalp
2007-01-09 19:18
2007.01.28
Пара вопросов по Delphi


15-1168349734
@!!ex
2007-01-09 16:35
2007.01.28
Углы Эйлера


15-1167745953
altex
2007-01-02 16:52
2007.01.28
Обработка изображения / Распознование / Нейросети


15-1167850639
Kolan
2007-01-03 21:57
2007.01.28
Не пойму почему код работает :)