此代码来源于网络开源代码(TScreenCaptureUnit.pas)为了演示,简单整理了一下。QQ:447176832