名前
題名
▼ 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 関数は，隠れたウィンドウもキャプチャします． > キャプチャ例てす． >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link