ScreenCap

最新推荐文章于 2025-02-13 17:10:56 发布

qq_43466604

最新推荐文章于 2025-02-13 17:10:56 发布

阅读量1.1k

点赞数

分类专栏： delphi

本文链接：https://blog.youkuaiyun.com/qq_43466604/article/details/86508993

版权

delphi 专栏收录该内容

10 篇文章

订阅专栏

procedure TForm1.ScreenCap(LeftPos, TopPos, RightPos, BottomPos: Integer);
var
  RectWidth, RectHeight: Integer;
  SourceDC, DestDC, Bhandle: Integer;
  Bitmap: TBitmap;
begin
  RectWidth := RightPos - LeftPos;
  RectHeight := BottomPos - TopPos;
  SourceDC := CreateDC('DISPLAY', '', '', nil);
  DestDC := CreateCompatibleDC(SourceDC);
  Bhandle := CreateCompatibleBitmap(SourceDC, RectWidth, RectHeight);
  SelectObject(DestDC, Bhandle);
  BitBlt(DestDC, 0, 0, RectWidth, RectHeight, SourceDC, LeftPos, TopPos, SRCCOPY);
  Bitmap := TBitmap.Create;
  Bitmap.Handle := Bhandle;
  Image1.Picture.Bitmap := Bitmap;
  Bitmap.SaveToFile('test.bmp');
  Bitmap.Free;
  DeleteDC(DestDC);
  ReleaseDC(Bhandle, SourceDC);
end;