unitfrmmain.pas

《Delphi7编程100例》代码,书配资料

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.