2015年11月26日
Delphi编写的Android程序获取Root权限实现(2015.4.15更新，支持Android 4.4)
借助谷歌，并经过本大侠施展坑、蒙、拐、骗、偷五大绝技，终于成功实现在Delphi下获取Root权限并将其扩展为一个完整功能更加完整的TQAndroidShell记录，在华为荣耀2（Android 4.2）、Nubia Z5S（Android 4.4）测试通过。参考代码如下：1234567891011... Read More
posted @ 2015-11-26 22:35 findumars Views(1178) Comments(0) Diggs(0)
C#的DLL注册为COM，Delphi来调用
非常实用的东西！过去知道这个方法的话可以解决多少问题啊首先建立一个C#的DLL工程，写一个类//Test.csnamespaceTest...{publicclassMyTest...{publicstringFun()...{returnthis.ToString();}}}，编译然后在cmd里执... Read More
posted @ 2015-11-26 22:33 findumars Views(1775) Comments(0) Diggs(0)
Delphi 实现无窗口移动（发WM_NCHITTEST消息计算，然后再发WM_SYSCOMMAND消息，带参数SC_DRAGMOVE）
procedure imgListMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);private procedure WMNCHITTEST(var Msg: TWMNCHITTE... Read More
posted @ 2015-11-26 22:32 findumars Views(570) Comments(0) Diggs(0)
SetThreadAffinityMask设置线程亲缘性
TheSetThreadAffinityMaskfunction sets a processor affinity mask for the specified thread.[delphi]view plaincopyprint?DWORD_PTRSetThreadAffinityMask(HA... Read More
posted @ 2015-11-26 22:29 findumars Views(2795) Comments(0) Diggs(0)
Delphi 获取北京时间（通过百度和timedate网站）
方法一：[delphi]view plaincopyprint?usesComObj,DateUtils;functionGetInternetTime:string;varXmlHttp:OleVariant;datetxt:string;DateLst:TStringList;mon:strin... Read More
posted @ 2015-11-26 22:28 findumars Views(4094) Comments(0) Diggs(0)