Входные данные: есть Хендл объектов (он один на всех), класс у него тоже один. Размер, цвет и даже кол-во объектов может быть любым. Parent у него Окно А.
Приложение А В разные. Объекты В это нечто вроде многосрочного DrawText
Нужно найти координаты и размер этих блоков. Как получить на скриншоте только блоки (исключая все, что не обведено в рамку)
Надеюсь, со скрином будет проще понять.
A+b.bmp
Максимум что могу, это сфоткать А, без В, но передавая Хендл объекта В, я получаю пустой скрин.
A withoutB.bmp
Код:
function TopCaptureScreenRect( ARect: TRect; AWnd: HWND )
: TBitmap;
var
ScreenDC: HDC;
begin
Result := TBitmap.Create;
Result.Width := ARect.Right - ARect.Left;
Result.Height := ARect.Bottom - ARect.Top;
ScreenDC := GetDC( AWnd );
try
BitBlt ( Result.Canvas.Handle, 0, 0, Result.Width,
Result.Height, ScreenDC,
ARect.Left, ARect.Top, SRCCOPY );
finally
// Result.SaveToFile('d:\1.bmp');
ReleaseDC( 0, ScreenDC );
end;
end;
h := WindowFromPoint(Mouse.CursorPos);
GetWindowRect(h, r);
bit := TopCaptureScreenRect(r,h);