Работа с экраном

← →
Нестеров Игорь (2002-12-14 13:00) [0]

Как можно скопировать изображение с экрана (скажем в буфер обмена), не используя при этом Print Scrn?

← →
KSergey © (2002-12-14 13:06) [1]

Desktop есть обычное окно с определенными предустановленными параметрами. найти его хендл -и вперед. Как - яндекс вам поможет (вопрос стандартный, в факах его часто освещают)

winHWND: HWND;
winDC: HDC;
Rect: TRect;
fBitmap:TBitmap;
begin
winHWND := GetDesktopWindow();
winDC := GetDC(winHWND);
fBitmap:=TBitmap.Create;
GetWindowRect(winHWND, rect);
fBitmap.width := rect.right-rect.left;
fBitmap.height := rect.bottom-rect.top;
fBitmap.PixelFormat := pf32bit;
BitBlt(fBitmap.canvas.handle, 0, 0, fBitmap.width,
fBitmap.height, winDC, 0, 0, SRCCOPY);
ReleaseDC(winHWND, winDC);
//В битмапе теперь скриншот
fBitmap.Free;

Желаю успехов

Работа с экраном Найти похожие ветки