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

Вниз

Как скопировать изоброжение чужого окна.   Найти похожие ветки 

 
Pavia ©   (2004-12-28 23:18) [0]

Как скопировать изоброжение чужого окна? При условии что его перекрывпают другии окна, или вобще свернуто.


 
Shaman_Naydak   (2004-12-29 07:35) [1]

нормальные чужие окна должны отрабатывать
WM_PRINT и WM_PRINTCLIENT


 
MBo ©   (2004-12-29 07:42) [2]

статья о [1] есть на
www.fengyuan.com


 
VMcL ©   (2004-12-29 07:45) [3]

Как-то так, наверное:

function GetWindowShot(const Window: HWND): TBitmap;
var
 DC: HDC;
 R: TRect;
begin
 Result := TBitmap.Create;
 with Result do
   try
     PixelFormat := pf24bit;
     Transparent := False;
     DC := GetWindowDC(Window);
     try
       GetWindowRect(Window, R);
       Width := R.Right - R.Left;
       Height := R.Bottom - R.Top;
       BitBlt(Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
     finally
       ReleaseDC(Window, DC);
     end;
   except
     Free;
     raise;
   end;
end;


Замечание. Как видно из кода, за освобождение результирующего TBitmap"а отвечает вызывающая сторона.


 
DeadMeat ©   (2004-12-29 22:09) [4]


> [3] VMcL ©   (29.12.04 07:45)

Проверено... Не поможет. Нужно именно [1] или что-то в этом роде...

---
...Death Is Only The Begining...


 
Anton_K ©   (2004-12-29 22:17) [5]

Можно послать WM_PAINT, где в wParam DC нужного битмапа.


 
Thick   (2004-12-29 22:47) [6]

А ты не узадумывался что прорисовка окна происходит именно когда его нухно прорисовать????


 
Pavia ©   (2004-12-30 00:16) [7]

VMcL
Так я пробовал. Это мне не подходит.
Shaman_Naydak, MBo
Спасибо, это должно помочь.



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

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

Наверх




Память: 0.48 MB
Время: 0.027 c
9-1073144322
DDS
2004-01-03 18:38
2005.02.20
Где хранить ресурсы?


3-1106638207
LLineser
2005-01-25 10:30
2005.02.20
Interbase EventsAlerts


9-1100609331
Colt1978
2004-11-16 15:48
2005.02.20
Прогресс бар...


11-1091910024
=Sniper=
2004-08-08 00:20
2005.02.20
Вылетаю на строчке form1.TabControl1_Tab0.Caption := Smth"


6-1102328286
DelphiN!
2004-12-06 13:18
2005.02.20
Получение исход. вход. трафика из компонента TidMappedPortTCP