[nixon232]

Входные данные: есть Хендл объектов (он один на всех), класс у него тоже один. Размер, цвет и даже кол-во объектов может быть любым. 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);