procedure TForm1.Button10Click(Sender: TObject);
var
bmp: TBitmap;
can: TCanvas;
dc: HDC;
Image1: TImage;
begin
try
Image1:=TImage.Create(self);
bmp := TBitmap.Create; //创建BMP
bmp.Width := Screen.Width; //把屏幕属性赋值
bmp.Height := Screen.Height; //赋值屏幕
dc := GetDC(0); //获取到屏幕的dc
can := TCanvas.Create; //创建画布对象
can.Handle := dc;
bmp.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), can, Rect(0, 0, Screen.Width, Screen.Height));
Image1.Picture.Bitmap := bmp; //将截取到的图片显示在iamge控件中
Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + 'photo.jpg');
finally
bmp.Free;
can.Free;
Image1.Free;
ReleaseDC(0, dc);
end;

end;

最新文章

1. Java JVM proxy setting
2. WebApi多数据库切换
3. ASP.NET 成功执行Update 的 ExecuteNonQuery() 返回值大于0，但是查看数据库却没有改变
4. OI 中的 FFT
5. hdu 4193 Non-negative Partial Sums
6. LeetCode——Path Sum II
7. hdoj1016 [dfs]
8. EularProject 43: 带条件约束的排列组合挑选问题
9. Vimium快捷键记录
10. 全面剖析XMLHttpRequest对象
11. DependencyInjection源码解读之ServiceProvider
12. es ik分词插件安装
13. SpringMVC Mybatis Spring
14. C#应用NPOI实现导出EXcel表格中插入饼状图（可实现动态数据生成）
15. Baby-Step-Giant-Step 很酷的算法
16. bzoj1106 树状数组
17. Angular4学习笔记-目录汇总
18. LCA 模板
19. JdbcTemplate使用小结
20. Python 字典 列表 嵌套 复杂排序大全

热门文章

1. Mysql总结（二）
2. WePY 在手机充值小程序中的应用与实践
3. delphi 选择文件夹，路径选择，浏览文件夹
4. [ 原创 ] Linux下查找指定类型文件以及删除
5. C++Primer笔记-----day02
6. 刷题向》一道逆向思维题（BZOJ1046）（NORMAL）
7. 项目介绍4 y有用
8. lintcode-单例
9. [C++] NULL VS nullptr
10. [C++] Template Function _ Any number of parameters