3)抓取窗體或控件圖片
   抓取窗體或控件圖片，即要用到一個新的Form2，參見《Delphi圖象截取編程示例(7)》
   在Main單元implementation的uses中添加Capture2。
  
[Capture Windows or Controls]窗體或控件抓圖的Action 事件
PRocedure TMainForm.cptWindowsExecute(Sender: TObject);
var p:TPoint; Handles:HWnd;
begin
  Inc(CaptureNum,1);
  application.Minimize ;
  Delay(500);
  FileName:='Capture'+IntTOStr(CaptureNum);
  FileName:=DefaultDirectory+FileName;
  with TForm2.Create(Application) do
  try
    if ShowModal=mrOK then
    begin
      CreateMDIChild(FileName,true);
      StatusBar.SimpleText := FileName;
      Delay(500);
      ABitmap:=TBitmap.Create ;
      GetCursorPos(P);
      Handles:=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 ;
    end;
  finally
    Free;
    Application.Restore ;
  end;
end;

4)抓取 ICON 圖片
抓取 ICON 圖片，即要用到一個新的Form3，參見《Delphi圖象截取編程示例(8)》
在Main單元implementation的uses中添加Capture3。
在Main單元添加私有過程CaptureICON :
procedure TMainForm.CaptureICON; // [二十]
begin
  with TForm3.Create(Application) do
  try
    if ShowModal = mrOK then
      with fRect do begin
        if (Right>Left)and(Bottom>Top) then begin
          Delay(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;
        end else begin
          MessageDlg('邊框選擇錯誤，重試!',mtInformation,[mbOK],0);
          Child.Close ;
          Form3.Free ;
          exit;
        end;
      end;
  finally
    Free;
  end;
end;

[Capture ICON ] ICON 抓圖的Action 事件
procedure TMainForm.cptIconExecute(Sender: TObject);
begin
  Application.Minimize ;
  Delay(400);
  Inc(CaptureNum,1);
  FileName:='Capture'+intToStr(CaptureNum);
  FileName:=DefaultDirectory+FileName;
  CreateMDIChild(FileName,true);
  StatusBar.SimpleText := FileName;
  CaptureICON;
  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 ;
end;