简单到极致
2014年5月7日
获取文件sha1 值
摘要： 单元IdHashSHA申明function GetFile_SHA1(const iFileName: String): String; //Checksum hash value for firefox var SHA1 : TIdHashSHA1; fileStre... 阅读全文
posted @ 2014-05-07 07:00 ring_hacker 阅读(1416) 评论(0) 推荐(0)
自定义popupmenu菜单背景色
摘要： procedure TForm1.N11DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean);beginIf (Selected) ThenbeginACanvas.Font.Color := clW... 阅读全文
posted @ 2014-05-07 06:57 ring_hacker 阅读(2456) 评论(0) 推荐(0)