delphi 屏幕截屏

最新推荐文章于 2025-07-27 12:12:47 发布

weixin_30915951

最新推荐文章于 2025-07-27 12:12:47 发布

阅读量141

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/studypanp/p/5075186.html

function GetScreenAll: TBitmap; // 截取全屏
var
  C: TCanvas;
begin
  C := TCanvas.Create;
  result := TBitmap.Create;
  result.Width  := Screen.Width;
  result.Height := Screen.Height;
  C.Handle := GetDC(0);  // 获取屏幕的设备上下文句柄，并拷贝
  result.Canvas.CopyRect(Rect(0, 0, screen.Width, screen.Height), C, Rect(0, 0, Screen.Width, SCreen.Height));
  ReleaseDC(0, C.Handle);
  C.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  B: TBitmap;
begin
  B := TBitmap.Create;
  B := GetScreenAll();
  B.SaveToFile('d:\test2.bmp');
  b.Free;
end;

转载于:https://www.cnblogs.com/studypanp/p/5075186.html