3）フォームまたはコントロール画像をクロールします
フォームまたはコントロールイメージ、つまり新しいフォームを使用するには、「Delphi Image Interceptプログラミングの例（7）」を参照してください。
メインユニットの実装の使用にCapture2を追加します。
[キャプチャウィンドウまたはコントロール]フォームまたはコントロールキャプチャのアクションイベント
手順tmainform.cptwindowsexecute（sender：tobject）;
var p：tpoint：hwnd;
始める
Inc（Capturenum、1）;
application.minimize;
遅延（500）;
ファイル名：= 'capture'+inttostr（capturenum）;
ファイル名：= defaultDirectory+filename;
tform2.create（application）do
試す
showmodal = mrokの場合
始める
createmdichild（filename、true）;
statusbar.simpletext：= filename;
遅延（500）;
abitmap：= tbitmap.create;
getCursorpos（P）;
ハンドル：= windowfrompoint（p）;
abitmap：= capturewindowimage（handles）;
child.image1.picture.bitmap：= abitmap;
child.clientwidth：= child.image1.picture.width;
child.clientheight：= child.image1.picture.height;
child.horzscrollbar.range：= child.image1.picture.width;
child.vertscrollbar.range：= child.image1.picture.height;
child.image1.hint：= 'height：'+inttostr（child.image1.picture.height）+'pixels'
+'width：'+inttostr（child.image1.picture.width）+'pixels';
abitmap.free;
終わり;
ついに
無料;
Application.Restore;
終わり;
終わり;
4）アイコンの写真をクロールします
アイコンの画像をつかむ、つまり、新しいform3を使用するには、「Delphi Image Interceptプログラミングの例（8）」を参照してください。
メインユニットの実装の使用にCapture3を追加します。
メインユニットにプライベートプロセスCaptureconを追加します。
手順tmainform.captureicon;
始める
tform3.create（application）do
試す
showmodal = mrokの場合
FRECTが始まります
if（右>左）と（下>トップ）を開始します
遅延（300）;
abitmap：= tbitmap.create;
abitmap.assign（CaptureScreenRect（FRECT））;
child.image1.picture.bitmap：= abitmap;
child.horzscrollbar.range：= child.image1.picture.width;
child.vertscrollbar.range：= child.image1.picture.height;
abitmap.free;
それ以外の場合は始まります
MESSAGEDLG（ 'Border Selection Error、再試行！'、mtinformation、[mbok]、0）;
child.close;
form3.free;
出口;
終わり;
終わり;
ついに
無料;
終わり;
終わり;
[キャプチャアイコン]アイコンキャプチャ写真のアクションイベント
手順tmainform.cpticonexecute（sender：tobject）;
始める
application.minimize;
遅延（400）;
Inc（Capturenum、1）;
ファイル名：= 'capture'+inttostr（capturenum）;
ファイル名：= defaultDirectory+filename;
createmdichild（filename、true）;
statusbar.simpletext：= filename;
Capturecon;
child.clientwidth：= child.image1.picture.width;
child.clientheight：= child.image1.picture.height;
child.horzscrollbar.range：= child.image1.picture.width;
child.vertscrollbar.range：= child.image1.picture.height;
child.image1.hint：= 'height：'+inttostr（child.image1.picture.height）+'pixels'
+'width：'+inttostr（child.image1.picture.width）+'pixels';
Application.Restore;
終わり;