delphi 截图简单的实现

最新推荐文章于 2023-10-09 17:23:22 发布

rznice

最新推荐文章于 2023-10-09 17:23:22 发布

阅读量4.1k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/rznice/article/details/46694769

版权

本文介绍了如何在Delphi中实现截图功能，并通过比较将图片保存为BMP和PNG格式时的大小差异，强调了PNG格式能有效减小图片体积。

摘要由CSDN通过智能技术生成

将图片保存为bmp格式的，图片有点大；
代码如下：

var
  dc:HDC;
  fullCanvas:TCanvas;
  bm:TBitmap;
  dlg1: TSavePictureDialog;
begin
  dc:=GetDC(0);
  fullCanvas:=TCanvas.Create;
  dlg1:=TSavePictureDialog.Create(nil);
  bm:=TBitmap.Create;
  fullCanvas.Handle:=dc;
  try
    if dlg1.Execute then
    begin
      bm.Width:=Screen.Width;
      bm.Height:=Screen.Height;
      bm.Canvas.CopyRect(Rect(0,0,bm.Width,bm.Height),fullCanvas,Rect(0,0,Screen.Width,Screen.Height));
      bm.SaveToFile(dlg1.FileName+'.bmp');