capturescreen.pas

Delphi高级程序开发配书源代码,可以循序渐进的学习Delphi.

unit CaptureScreen;

interface

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

type
  TFmCapture = class(TForm)
    Image1: TImage;
    BtCapture: TButton;
    BtExit: TButton;
    procedure BtCaptureClick(Sender: TObject);
    procedure BtExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmCapture: TFmCapture;

implementation

{$R *.dfm}

procedure TFmCapture.BtCaptureClick(Sender: TObject);
var
  ScreenDC:HDC;
begin
   ScreenDC:=CreateDC('display',Nil,Nil,Nil);
   //获取桌面环境
   BitBlt(image1.Canvas.Handle,0,0,image1.Width,
      image1.Height,ScreenDC,0,0,srccopy);
   //将桌面图象复制到timage画布中
   image1.Refresh;
   DeleteDC(ScreenDC);
   //释放资源
end;

procedure TFmCapture.BtExitClick(Sender: TObject);
begin
  close;  //退出
end;

end.