天行健,君子以自强不息;地势坤,君子以厚德载物。


分类: Delphi技巧预览模式: 普通 | 列表

Delphi下ListView加载百万数据



var
  Form1: TForm1;
  FileNamestr: string;

查看更多...

Tags: Delphi ListView 百万数据

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1309

Delphi使用XmlHttp获取时间



uses ComObj, DateUtils;

procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi xmlhttp 时间

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 1002

Delphi高级数据类型:集合类型



implementation

{$R *.dfm}

查看更多...

Tags: Delphi 数据类型 集合类型

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 190

Delphi高级数据类型:子界类型



procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := '';

查看更多...

Tags: Delphi 数据类型 子界类型

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 192

Delphi高级数据类型:枚举类型



type
  Week = (Sun, Mon, Tue, Wed, Thu, Fri, Sat);

查看更多...

Tags: Delphi 数据类型 枚举类型

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 276

以前用Delphi写的CSDN免积分下载器

用了AlphaControl皮肤组件,原理很简单,就是CSDN的一个漏洞。我主要是使用WinInet来获取相关信息,然后从里面分析出真实的下载URL,同时我也是用了AES加密。
function GetWebPage(const Url: string):string;
var
  Session,
  Httpfile:HINTERNET;

查看更多...

Tags: Delphi CSDN 免积分 下载器

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 522

提升进程权限为DEBUG权限

在网上也看到了一些提升进程令牌的函数但都不怎么好用,最后我还是从一个黑客后门程序的源代码中提取出了一个好的提升进程令牌的函数,不敢独享,跟大家分享下.那个后门真的写的很好...
Hysia提示你:
这个函数用在对付病毒的程序中效果很好,只有提升自身权限才能KILL掉病毒进程我曾写写出来尝试结束Winlogon进程,导致的结果是,我的电脑立刻蓝屏后重启!

//提升进程权限为DEBUG权限

查看更多...

Tags: 进程 权限 Debug Winlogon

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 503

Delphi下DBGrid的自绘

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  i: integer;
begin

查看更多...

Tags: Delphi DBGrid 自绘

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 385

Delphi检测网络连接状态

       有时候,我们做一些小软件就需要检测网络连接状态,比如想给你的软件加上类似QQ那样的系统消息,可是像我这样的穷人肯定是买不起服务器了,那我们只好另想办法,可以读取网页然后用浏览器显示,这个时候就需要判断网络状态。
    我目前采用的判断方式有两种:

1.采用WinInet方式:

查看更多...

分类:Delphi技巧 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 575

delphi 打开记事本并写入内容

procedure TForm.ButtonClick(Sender: TObject);
var
    hEdit: HWND;
    str: string;
begin

查看更多...

Tags: Delphi 记事本 SendTextMessage

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 288