Алгоритм захвата экрана

← →
deamon_t (2005-12-28 22:10) [0]

Привет, всем вопрос такой каким образом можно захватить живое изображение с экрана, если делать это через Print Screen получаеться слишком долго (1-0.5 раза в секунду) но RADMIN и RDA это делают намного быстрее, в чем секрет?

З.Ы. Сорри если не совсем попал с темой, уточню... каким обращом это сделать на Delphi :-)

← →
PKT (2005-12-29 02:56) [1]

Попробуй обычный прием:
var
ScreenDC: HDC;
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
Bitmap.Width := Screen.Width;
Bitmap.Height := Screen.Height;

ScreenDC := GetDC(0);
with Bitmap do begin
try
BitBlt(Canvas.Handle, 0, 0, Width, Height, ScreenDC,
0, 0, SRCCOPY);
finally
ReleaseDC(0, ScreenDC);
end;
end;

Bitmap.SaveToFile("C:\Мои документы\1.bmp");
Bitmap.Free;
end;

Алгоритм захвата экрана Найти похожие ветки