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


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

Delphi在StatusBar上绘制ProgressBar



首先,在TForm的私有域,也就是private下设置两个变量ProgressBar、ProgressBarRect,其中ProgressBar为 TProgressBar类型,ProgressBarRect为TRect类型,完整的定义如下:

type

查看更多...

Tags: Delphi StatusBar 绘制 ProgressBar type 私有域 变量 private 事件

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

Delphi下获取IE的UserAgent的方法

方法一:
使用SHDocVw, MSHtml单元提供的一些方法利用浏览器的特性来获取。

uses SHDocVw, MSHtml;

查看更多...

Tags: Delphi IE UserAgent 方法 注册表 l浏览器 MSHtml SHDocVw Registry UrlMo

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

解决Delphi自带UTF8解码缺陷

因为Delphi自带的转换函数遇到其无法识别的字符串就返回空,下面函数可解决该问题。

function DecodeUtf8Str(const S: UTF8String): WideString;
var
  lenSrc, lenDst  : Integer;

查看更多...

Tags: Delphi UTF8 解码

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

Delphi下URL汉字编码解码的两个函数

//汉字URL编码函数
function URLEncode(const S: string; const InQueryString: Boolean): string;
var
  Idx: Integer; //逐个字符循环直至字符串结束
begin

查看更多...

Tags: Delphi URL 汉字 编码 解码 函数

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

Delphi中的消息截获

    Windows是一个基于消息驱动的系统,因此,在很多时候,我们需要截获一些消息然后自己进行处理。而VCL系统又有一些特定的消息。下面对我所了解的delphi环境中截获消息进行一些总结。
      就个人了解,共有6种方法来截获/处理消息。

  1. 消息钩子(Message Hook)

查看更多...

Tags: Delphi 消息截获 SubClass Hook Message RTTI/TypInfo

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

Delphi下idHTTP配合CookieManager获取Cookie



procedure TForm1.Button1Click(Sender: TObject);
var
  Cookies: TidCookies;

查看更多...

Tags: Delphi idHTTP CookieManager Cookie

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

Delphi注册表操作函数LoadKey

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

查看更多...

Tags: Delphi 注册表 函数 LoadKey

分类:Delphi技巧 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 318
    从前我也是用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 | 查看次数: 358

Delphi2007下CIS的clHttp使用

Delphi组件Clever Suite Internet是一款优秀的网络组件,唯一让我感觉不足的是ClHttp竟然使用了断言,当程序遇到问题的时候就会弹出一个对话框,并显示问题是出在了那个单元里。好了,言归正传,发一个Delphi2007下使用ClHttp的例程。



procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi2007 Clever Suite Internet ClHttp 断言

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

Delphi下7zip组件的使用

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



procedure TForm1.Button1Click(Sender: TObject);

查看更多...

Tags: Delphi 7zip 组件

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