捕捉全屏图像

2017-06-19 19:44:14来源:CSDN作者:zisongjia人点击

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}//捕捉全屏幕图像并保存到: c:/temp/Screen.bmpprocedure TForm1.Button1Click(Sender: TObject);var  bit: TBitmap;  DC: HDC;  cvs: TCanvas;begin  bit := TBitmap.Create;  //bit.SetSize(Screen.Width, Screen.Height);
   bit.Width := Screen.Width;  bit.Height := Screen.Height;  DC := GetDC(0);  cvs := TCanvas.Create;  cvs.Handle := DC;  bit.Canvas.CopyRect(Screen.DesktopRect, cvs, Screen.DesktopRect);  bit.SaveToFile('c:/temp/Screen.bmp');  ReleaseDC(0, DC);  cvs.Free;  bit.Free;end;end.

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台