l_wMING的专栏

Delphi EhLib.VCL 10.1 for D7-XE 10.4

DelphiXE HMacSHA256(单独的) 参考网上代码整出来(DelphiXE10.2下测试通过，验证：http://www.jsons.cn/allencrypt/) 中文记得：UTF8Encode再调用

1.请将程序安装在D:\EasySYS下(以后的版本不需第一步) 2.打开EasySYS.exe,工具，关联dspr 3.然后你可以直接查看samples文件夹下的实例 如果第一步按你的目录放置的话，samples下的工程你需自己在建一次

Delphi键盘钩子DLL及测试Demo SetWindowsHookEx(WH_KEYBOARD,KeyboardHookHandler,HInstance,0);

Delphi验证并获取文件数字签名，代码完整可用 参考： https://blog.csdn.net/yangtao6888/article/details/7690207 https://sourceforge.net/projects/jedi-apilib/files/JEDI Windows API/Revision 315/

WIN98以上使用winlogin.exe登录的系统 在XE Berlin 10.1版下测试可用

Delphi XMLDocument控件之XML实例:新建、打开、保存、编辑等操作 Delphi XMLDocument control XML instance: new, open, save, edit, and other operations

微软提供的Win8开发设计指南，全部翻译为中文

使用VGScene控件实现Metro效果：触摸滚动、简洁的图标 Metro是由微软公司开发的内部名称为“ typography-based design language”（基于排版的设计语言）。最早出现在微软电子百科全书95，后来的产品如：windows媒体中心、Zune播放器 都有用到这项技术。该技术已于2010年初（美国）获得Metro UI专利批准（USPTO）。metro UI最新的应用是windows phone 7智能手机系统，并将应用于未来的windows 8、office 和 xbox 360产品中。 　　metro UI是一种界面展示技术，和苹果的iOS、谷歌的Android界面最大的区别在于：后两种都是以应用为主要呈现对象，而Metro界面强调的是信息本身，而不是冗余的界面元素。显示下一个界面的部分元素的功能上的作用主要是提示用户“这儿有更多信息”。同时在视觉效果方面，这有助于形成一种身临其境的感觉。

这是一个非常棒的皮肤控件，有非常多的皮肤，还能使窗体有一个非常迷人的半透明边框，这是我最喜欢的地方。

批量下载QQ邮箱中的所有附件 procedure TFrm_QQMailRev.bt_revClick(Sender: TObject); var i,j,fNum,fCount : integer; tmp, fName : string; begin bt_rev.Enabled := false; IdMessage1.CharSet := 'gb2312'; //保证附件正文汉字的正常显示 ProgressBar1.Max := mailcount; ProgressBar1.Min := 1; fCount := 0; for i:=1 to mailcount do //遍历每一封邮件 mailcount begin IdMessage1.Clear; IdPOP31.retrieveHeader(i,IdMessage1); //得到邮件的头信息 IdPOP31.Retrieve(i,IdMessage1); //接收到邮件所有内容 tmp := IdMessage1.Body.Text; //邮件正文 Label2.Caption := {'接收邮件:'+tmp+}' 已接收：['+intToStr(i)+'] '; fNum := Pred(IdMessage1.MessageParts.Count); if not fNum<0 then for j:=0 to fNum do begin if IdMessage1.MessageParts.Items[j] is TIdAttachment then begin fCount := fCount+1; fName := filePath+intToStr(i)+intToStr(j)+TIdAttachment(IdMessage1.MessageParts.Items[fNum]).Filename; if fileExists(fName) then deletefile(fName); TIdAttachment(IdMessage1.MessageParts.Items[j]).SaveToFile(fName); //filePath+intToStr(i)+GetFileTitle(tmp)+'.rar' end; end; ProgressBar1.StepBy(1); GetRevFile; application.ProcessMessages; end; Label3.Caption := '共接收附件:['+intToStr(fCount)+'] '; IdPOP31.Disconnect; //断开连接 end;

测试SQL语句访问服务器的时间性能