Delphi Windows 外壳编程（2）

Windows 句柄

Delphi从Windows 引入了不少数据类型，其中句柄最重要。这种数据类型名为THandle，该类型在Windows 单元中定义：

type

THandle = LongWord;

句柄数据类型通过数字实现，但并不当数字用。

在Windows 中，句柄是一个系统内部数据结构的引用。

例如，当你操作一个窗口，或说是一个Delphi 窗体时，系统会给你一个该窗口的句柄，系统会通知你：你正在操作142号窗口，就此，你的应用程序就能要求系统对142号窗口进行操作——移动窗口、改变窗口大小、把窗口极小化为图标，等等。

实际上许多Windows API 函数把句柄作为它的第一个参数，如GDI （图形设备接口）句柄、菜单句柄、实例句柄、位图句柄等等，不仅仅局限于窗口函数，。

换句话说，句柄是一种内部代码，通过它能引用受系统控制的特殊元素，如窗口、位图、图标、内存块、光标、字体、菜单等等。Delphi中很少需要直接使用句柄，因为句柄藏在窗体、位图及其他Delphi对象的内部。当你要调用Delphi不支持的Windows API 函数时，句柄才会有用。

现在举一个简单的Windows句柄例子，完善这节内容。例WHandle 程序的窗体很简单，只有一个按钮。正如下面主窗体文本所定义的那样，我在代码中添加了窗体的OnCreate 事件和按钮的OnClick 事件：

object FormWHandle: TFormWHandle

Caption = 'Window Handle'

OnCreate = FormCreate

object BtnCallAPI: TButton

Caption = 'Call API'

OnClick = BtnCallAPIClick

end

end

窗体一创建，程序就会通过窗体本身的Handle 属性，获取窗体对应的窗口句柄。调用IntToStr ，把句柄数值转换为一个字符串，然后再把它添加到窗体标题中，如图9.1：

procedure TFormWHandle.FormCreate(Sender: TObject);

begin

Caption := Caption + ' ' + IntToStr (Handle);

end;