delphi 截图简单的实现

Delphi截图保存格式及大小差异

最新推荐文章于 2025-09-16 14:54:09 发布

原创

最新推荐文章于 2025-09-16 14:54:09 发布 · 4.2k 阅读

2 ·

CC 4.0 BY-SA版权

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

将图片保存为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');
    end