Показать сообщение отдельно
  #1  
Старый 19.11.2012, 14:40
hacker2357 hacker2357 вне форума
Прохожий
 
Регистрация: 19.11.2012
Сообщения: 2
Репутация: 10
По умолчанию Как создавать скриншот экрана 30 раз в секунду?

Как создавать скриншот экрана 30 раз в секунду?
Пробовал такой функцией
Код:
var bmp:TBitmap;
begin
bmp := TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height, GetDC(0), 0,0,SRCCOPY);
Image1.Width := Screen.Width;
Image1.Height := Screen.Height;
Image1.Picture.Assign(bmp);
bmp.Free;
Админ: Пользуемся тегами дляя оформления кода!

Но функция BitBlt слишком медленная, так что при многократном создании скриншотов окна передвигаются рывками.

Точно знаю что есть способы создавать скриншоты быстро, потому что в TeamViewer все работает без глюков.

Может быть через DirectX как нибудь можно?
Ответить с цитированием