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


Tag: Delphi预览模式: 普通 | 列表

Delphi注册表操作函数LoadKey

今天阅读某个源码的时候,发现了一个函数LoadKey,看了半天也不明白是做什么用的,于是就跟进源码,该函数定义在Registry单元,函数源码如下:
function TRegistry.LoadKey(const Key, FileName: string): Boolean;
var
  S: string;
begin

查看更多...

Tags: Delphi 注册表 函数 LoadKey

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

Delphi通过调用COM对象实现更改桌面壁纸

    从前我也是用SystemParametersInfo这API来改桌面壁纸的,问题多多,也不知道哪错了,就没深究下去。看了CSDN的帖子后,大彻大悟~~
        在XP下,SystemParametersInfo只支持BMP格式的图片,如果用其他格式的话就会黑屏?(我记得当年我就是这情况 现在懒得测试了) 把这API的调用方法扔出来:
SystemParametersInfo(SPI_SETDESKWALLPAPER, 1, pointer(pchar(‘c:\a.bmp’)), 0);
       因为这API函数的局限性

查看更多...

Tags: Delphi COM对象 桌面 SystemParametersInfo BMP API 壁纸

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

Delphi下7zip组件的使用

今天,闲着无聊就随手在源码库里拿出一个组件来看一看了,发现有一个从内存中加载7zip的dll来实现解压缩的组件,于是看了看Demo,结果发现只有压缩的例子,却没有解压的代码,于是就加上了解压的代码。



procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi 7zip 组件

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

Delphi下ListView加载百万数据



var
  Form1: TForm1;
  FileNamestr: string;

查看更多...

Tags: Delphi ListView 百万数据

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

Delphi使用XmlHttp获取时间



uses ComObj, DateUtils;

procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi xmlhttp 时间

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

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



implementation

{$R *.dfm}

查看更多...

Tags: Delphi 数据类型 集合类型

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

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



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

查看更多...

Tags: Delphi 数据类型 子界类型

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

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



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

查看更多...

Tags: Delphi 数据类型 枚举类型

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

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

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

查看更多...

Tags: Delphi CSDN 免积分 下载器

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

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 | 查看次数: 265