unit1.pas

你用此软件,你可以把窗口中的的任何图像抓取下来.你还可以为抓取下来的图像保存成为任何一种格式.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ScrollBox1: TScrollBox;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Timer1: TTimer;
    SavePictureDialog1: TSavePictureDialog;
    procedure BitBtn4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 fullscreen:Tbitmap;
 fullscreenCanvas:TCanvas;
 dc:HDC;
begin
  Timer1.Enabled:=false;
  fullscreen:=Tbitmap.Create;
  fullscreen.width:=screen.Width;
  fullscreen.Height:=screen.Height;
  DC:=GetDC(0);
  fullscreenCanvas:=TCanvas.Create;
  fullscreenCanvas.Handle:=DC;
  fullscreen.Canvas.CopyRect(Rect(0,0,screen.width,screen.Height),
  fullscreenCanvas,Rect(0,0,screen.Width,screen.Height));
  fullscreenCanvas.Free;
  releaseDC(0,DC);
  image1.Picture.Bitmap:=fullscreen;
  image1.Width:=fullscreen.Width;
  image1.Height:=fullscreen.Height;
  fullscreen.Free;
  Form1.WindowState:=wsNormal;
  form1.Show;
  messagebeep(1);
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.WindowState:=wsMinimized;
form1.Hide;
Timer1.enabled:=true;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if savepicturedialog1.Execute then
  begin
  form1.Image1.Picture.SaveToFile(savepicturedialog1.FileName);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.SavePictureDialog1.Title:='保存抓取的图像文件';
form1.SavePictureDialog1.InitialDir:='D:\My Documents\My Pictures';
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Hide;
form2.Hide;
Form2.timer1.Enabled:=true;
end;

end.