unit unitFrmMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    Timer1: TTimer;
    Image1: TImage;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  form1.WindowState := wsMinimized; //最小化程序窗口
  form1.hide; //把程序藏起來
  timer1.enabled := true; //打開記時器
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Fullscreen: Tbitmap;
  FullscreenCanvas: TCanvas;
  dc: HDC;
begin
  timer1.Enabled := false; //取消時鐘
  Fullscreen := TBitmap.Create; //創建一個BITMAP來存放圖象
  Fullscreen.Width := screen.width;
  Fullscreen.Height := screen.Height;
  DC := GetDC(0); //取得屏幕的 DC，參數0指的是屏幕
  FullscreenCanvas := TCanvas.Create; //創建一個CANVAS對象
  FullscreenCanvas.Handle := DC;

  Fullscreen.Canvas.CopyRect
    (Rect(0, 0, screen.Width, screen.Height), fullscreenCanvas,
    Rect(0, 0, Screen.Width, Screen.Height));
  //把整個屏幕復制到BITMAP中
  FullscreenCanvas.Free; //釋放CANVAS對象
  ReleaseDC(0, DC); //釋放DC
  //*******************************
  image1.picture.Bitmap := fullscreen; //拷貝下的圖象賦給IMAGE對象
  image1.Width := fullscreen.Width;
  image1.Height := fullscreen.Height;
  fullscreen.free; //釋放bitmap
  form1.WindowState := wsNormal; //復原窗口狀態
  form1.show; //顯示窗口
  messagebeep(1); //BEEP叫一聲，報告圖象已經截取好了。
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if savedialog1.Execute then
    begin
      form1.Image1.Picture.SaveToFile(savedialog1.filename)
    end;
end;

end.