Delphi深度探索之自动完成外壳扩展
引用自：http://develop.csai.cn/delphi/NO000001.htm
自动完成简介
大家一定都非常熟悉IE浏览器的地址输入编辑框，它提供了自动完成的功能。自动完成（Auto Complete）功能简化了编辑框的输入功能，它可以根据已经输入的部分字符串进行预测和匹配。图2.7的例子，演示了自动完成可以依据输入的“pro”，给出Pascal的保留字中与其相匹配的字符串列表"procedure"、"program"、"property"。
在利用自动完成功能前，必须要知道自动完成并不是任意版本的Windows都支持，自动完成功能实际上是由Internet Explorer 4.0引入并必须有4.71版及以上的Shell32.dll的支持。很多早期的系统，包括很多安装了IE 4的系统并不支持这项特性，所以使用自动完成功能时必须确保要安装的系统支持这项功能，如果不支持就需要安装IE和集成外壳。
自动完成功能是通过一组COM接口来实现的。这些接口使我们可以连接自动完成到编辑框，添加编辑框可以枚举的字符串列表并配置其显示属性。
1. 自动完成的用途
使用自动完成功能可以增强程序的易用性，它可以节省用户反复输入一些常用字符串的时间，并减少输入错误。它还可以用于部分字符匹配的查找系统，可以用它实现对数据库内容的快速查找。另外，它还支持向浏览器历史、最近运行程序和外壳目录输入等功能中添加自定义的完成列表。
2. 配置自动完成
需要知道的是在Delphi里并没有提供自动完成功能相关COM接口的pascal声明单元。由于一般这类接口在微软都是以C语言的头文件形式提供接口，Delphi不可能及时提供最新的相应的Pascal包装单元。所以为了使用这项功能，本文中额外提供了一个shlintf单元翻译了相应的头文件的声明。下表总结了Shlintf的内容：
COM对象
接 口
CLSID_AutoComplete
IAutoComplete
CLSID_ACLHistory
IAutoComplete2
CLSID_ACListISF
IACList
CLSID_ACLMRU
IACList2
CLSID_ACLMulti
ICurrentWorkingDirectory
IObjMgr
自动完成功能最基本的一个接口就是IAutoComplete接口，它的声明如下：
type
IAutoComplete = interface(IUnknown)
[SID_IAutoComplete]
function Init(hwndEdit: HWND; punkACL: IUnknown; pwszRegKeyPath: PWideChar;
pwszQuickComplete: PWideChar): HResult; stdcall;
function Enable(fEnable: Boolean): HResult; stdcall;
end;
IautoComplete接口有两个方法：Init和Enable。
Init方法用来把IAut
相关文档：
函数一：
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
内容简介
dbExpress是Borland公司下一代数据访问技术。本书不仅详细介绍了dbExpress的基本功能、使用技巧以及Delphi/Kylix的DataSnap技术，还详细讨论了dbExpress的实现原理以及dbExpress的未来发展趋势。本书结构清晰，讲解透彻，实例丰富。作者李维是Borland公司著名技术专家，曾著有多部Delphi名 ......
有时需要使用透明控件用于捕获鼠标消息
1.调用Windows2000,xp新的API函数实现这一功能的过程。使用SetLayeredWindowAttributes
2.直接设置控件的alphablend,alphablendvalue，间接调用上述api.
3.使用TStaticText控件
procedure WMCtrlColor(var Message: TWMCtlColor); message WM_CTLCOLOR;
procedure TForm3.WMCtr ......
{ 函数 : RESULTSTRING = HexToBin(HEXSTRING)
{ 目的 : 把十六进制字符串转换为二进制字符串
{
{===============================================================}
{ 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR)
{ 目的 : 转换一个十六进制字符为整数
{==================================================== ......
◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件：xpanel:=x;ypanel:=y;
PANEL的DragOver事件：xpanel:=x;ypanel:=y;
LABEL的MouseMove事件：xlabel:=x;ylabel:=y;
LABEL的EndDrag事件：label ......
