lazarus中截取整个屏幕画面并保存为指定文件

最新推荐文章于 2024-09-24 08:12:08 发布

翻译最新推荐文章于 2024-09-24 08:12:08 发布 · 1.1k 阅读

收录于

Lazarus 专栏收录该内容

171 篇文章

订阅专栏

本文介绍了一个简单的Delphi程序，用于捕获当前屏幕的内容并将其保存为文件。通过使用GetDC和LoadFromDevice函数，可以轻松地获取屏幕的位图，并使用SaveToFile方法将位图保存到指定的文件路径。

<pre name="code" class="delphi">Procedure SaveScreenShot(const aFile:string);
var
  vBMP:Graphics.TBitmap;
  vDC : HDC;
begin
  vBMP:=Graphics.TBitmap.Create;
  vDC := GetDC(0);
  vBMP.LoadFromDevice(vDC);
  vBmp.SaveToFile(aFile);
  ReleaseDC(0,vDC);
end;