喫茶XRAY [Mr.XRAY掲示板]

ChatGPT とどういう関係があるのか分かりませんが・・・

  if LBitmapA.Equals(LBitmapB) then begin
    // 略
  end;

//=============================================================================
//  ウィンドウのクライアント領域のキャプチャ
//  uses に Winapi.WinSpool; が必要
//=============================================================================
procedure TForm1.Button2Click(Sender: TObject);
var
  LhWnd   : HWND;
  LRect   : TRect;
  LBitmap : TBitmap;
begin
  LhWnd := Handle;
  Winapi.Windows.GetClientRect(LhWnd, LRect);

  LBitmap := TBitmap.Create;
  try
    // 以下の場合，自分自身のキャプチャなのでこれと同じ
//    LBitmap := Form1.GetFormImage;
//    LBitmap.SaveToFile('111.bmp');

    LBitmap.SetSize(LRect.Width, LRect.Height);

    LBitmap.Canvas.Lock;
    PrintWindow(LhWnd, LBitmap.Canvas.Handle, 1);
    LBitmap.Canvas.Unlock;

    LBitmap.SaveToFile('000.bmp');
  finally
    FreeAndNil(LBitmap);
  end;
end;

いろいろなコーディングがあるということです．
Printwindow 関数は，隠れたウィンドウもキャプチャします．
キャプチャ例てす．