Delphi 捕捉全屏幕图像

最新推荐文章于 2017-06-30 17:33:06 发布

xu_yancheng

最新推荐文章于 2017-06-30 17:33:06 发布

阅读量951

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 绘图文章标签： delphi cvs

本文链接：https://blog.youkuaiyun.com/xu_yancheng/article/details/3680432

Delphi 绘图专栏收录该内容

1 篇文章

订阅专栏

这段代码展示了如何在Delphi中创建一个TBitmap对象，设置其大小为屏幕尺寸，然后使用TCanvas从桌面获取全屏图像，并将其保存到指定的BMP文件。通过GetDC获取设备上下文并使用CopyRect方法复制屏幕内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure SaveScreenToBmp(AFileName :TFileName);
var
  bit: TBitmap;
  cvs: TCanvas;
begin
  bit := TBitmap.Create;
  bit.SetSize(Screen.Width, Screen.Height);
  cvs := TCanvas.Create;
  cvs.Handle := GetDC(0);
  bit.Canvas.CopyRect(Screen.DesktopRect, cvs, Screen.DesktopRect);
  bit.SaveToFile(AFileName);
  FreeAndNil(cvs);
  FreeAndNil(bit);
end;