2018年5月15日
delphi实现截全屏功能
摘要： procedure TForm1.Button10Click(Sender: TObject);var bmp: TBitmap; can: TCanvas; dc: HDC; Image1: TImage;begin try Image1:=TImage.Create(self); bmp := 阅读全文
posted @ 2018-05-15 14:17 快乐的正能量 阅读(403) 评论(0) 推荐(0)