- procedure SaveScreenToBmp(AFileName :TFileName);
- var
- bit: TBitmap;
- cvs: TCanvas;
- begin
- bit := TBitmap.Create;
- bit.SetSize(Screen.Width, Screen.Height);
- cvs := TCanvas.Create;
- cvs.Handle := GetDC(0);
- bit.Canvas.CopyRect(Screen.DesktopRect, cvs, Screen.DesktopRect);
- bit.SaveToFile(AFileName);
- FreeAndNil(cvs);
- FreeAndNil(bit);
- end;
Delphi 捕捉全屏幕图像
最新推荐文章于 2017-06-30 17:33:06 发布