Testudo

摘要： 程序：http://files.cnblogs.com/xe2011/EXE_iWeb2014-4-9-185315.7z源码：http://files.cnblogs.com/xe2011/Pascal_iWeb2014-4-9-185315.7z 1 function CaptureScreenRect(ARect: TRect): TBitmap; 2 var 3 ScreenDC: HDC; // 设备描述表的句柄 4 begin 5 result := TBitmap.Create; 6 with result, ARect do 7 begin 8 Widt... 阅读全文