首页 > 代码库 > 捕捉整个桌面的图片
捕捉整个桌面的图片
捕捉整个桌面的图片 但不捕捉自己这个窗体
procedure TForm2.Button3Click(Sender: TObject);
var
Bitmap: Tbitmap;
BitmapCanvas: TCanvas;
dc: HDC;
DeskTopWidth,DeskTopHeight:Integer;
begin
DeskTopWidth:= Screen.Width;
DeskTopHeight:=Screen.Height;
Panel1.Width:=DeskTopWidth;
Panel1.Height:=DeskTopHeight;
Hide;
Sleep(200);
Bitmap := TBitmap.Create;
With Bitmap do
begin
Width := DeskTopWidth;
Height := DeskTopHeight;
DC := GetDC(0);
BitmapCanvas := TCanvas.Create;
BitmapCanvas.Handle := DC;
Canvas.CopyRect(Rect(0, 0,DeskTopWidth, DeskTopHeight), BitmapCanvas,Rect(0, 0, DeskTopWidth, DeskTopHeight));
BitmapCanvas.Free;
ReleaseDC(0, DC);
Image1.Picture.Bitmap := Bitmap;
Image1.Width := Width;
Image1.Height := Height;
Free;
end;
Show;
SetForegroundWindow(Handle);
end;
来自为知笔记(Wiz)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。