2015年11月26日
Delphi使用XmlHttp获取时间
uses ComObj, DateUtils;procedure TForm1.Button1Click(Sender: TObject);var XmlHttp: Variant; datetxt : String; DateLst : TStringList; mon: String; ... Read More
posted @ 2015-11-26 21:26 findumars Views(704) Comments(0) Diggs(0)
提升进程权限为DEBUG权限
在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下.那个后门真的写的很好...Hysia提示你:这个函数用在对付病毒的程序中效果很好,只有提升自身权限才能KILL掉病毒进程我曾写写出来尝试结束Winlo... Read More
posted @ 2015-11-26 21:25 findumars Views(2386) Comments(0) Diggs(0)
Delphi检测网络连接状态
有时候，我们做一些小软件就需要检测网络连接状态，比如想给你的软件加上类似QQ那样的系统消息，可是像我这样的穷人肯定是买不起服务器了，那我们只好另想办法，可以读取网页然后用浏览器显示，这个时候就需要判断网络状态。我目前采用的判断方式有两种：1.采用WinInet方式:uses WinInet;p... Read More
posted @ 2015-11-26 21:24 findumars Views(3764) Comments(0) Diggs(0)
Delphi下重载窗体CreateParams翻转关闭按钮
typeTForm1 = class(TForm)private{ Private declarations }public{ Public declarations }procedure CreateParams(var Params: TCreateParams); override;end;v... Read More
posted @ 2015-11-26 21:17 findumars Views(766) Comments(0) Diggs(0)
Delphi下创建异形窗体
procedure TForm1.FormCreate(Sender: TObject);varpt: array [0 .. 4] of TPoint;m_rgn: HRGN;beginpt[0].x := self.Width div 2;pt[0].y := 0;pt[1].x := 0;pt... Read More
posted @ 2015-11-26 21:16 findumars Views(517) Comments(0) Diggs(0)