delphi的截屏代码,对屏幕进行截取。解压直接运行就可以了