unit1.pas

采用DELPHI编写的抓取屏幕程序,DELPHI源文件

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Timer1: TTimer;
    Image1: TImage;
    SaveDialog1: TSavePictureDialog;
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button4Click(Sender: TObject);// 关闭程序
begin
  close;
end;

procedure TForm1.Timer1Timer(Sender: TObject); //抓取屏幕，并保存到Image控件中
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.Button1Click(Sender: TObject); //全屏抓图
begin
  form1.WindowState:=wsMinimized;//最小化程序窗口
  form1.hide;//把程序藏起来
  timer1.enabled:=true;//打开记时器
end;

procedure TForm1.Button3Click(Sender: TObject); //保存图片
begin
if savedialog1.Execute then
begin
  form1.Image1.Picture.SaveToFile(savedialog1.filename)
end;
end;

end.