Здравствуйте Гришин Сергей, Вы писали:

ГС>Доброе время суток.

ГС>Необходимо захватить кусок экрана и взять с него биты, т.е.

ГС> ScreenDC := CreateDC('DISPLAY', nil, nil, nil);
ГС> MemDC := CreateCompatibleDC(ScreenDC);
ГС> Bitmap:= CreateDIBSection(ScreenDC,FBitInfo,DIB_RGB_COLORS, FBuffer,0,0);
ГС> SelectObject(memDC,Bitmap);
ГС> BitBlt(MemDC,0,0,1024,768,ScreenDC,0,0,SRCCOPY);

ГС>Так вот BitBlt в случае 1024х768х24 работает СЕКУНДУ !!!

ГС>Может кто подскажет, где собака зарыта.

ГС>P.S. GetDiBits работает также долго.


Ты захватываешь свой кусок экрана? Наверное нет...