lazarus中截取整个屏幕画面并保存为指定文件

来源:互联网 发布:centos 6.3 32位下载 编辑:程序博客网 时间:2024/05/21 00:00
<pre name="code" class="delphi">Procedure SaveScreenShot(const aFile:string);var  vBMP:Graphics.TBitmap;  vDC : HDC;begin  vBMP:=Graphics.TBitmap.Create;  vDC := GetDC(0);  vBMP.LoadFromDevice(vDC);  vBmp.SaveToFile(aFile);  ReleaseDC(0,vDC);end;      


	
				
		
原创粉丝点击