荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Minatl (Minatl), 信区: Program
标 题: 在Delphi中调用API函数
发信站: BBS 荔园晨风站 (Wed Jan 20 19:03:53 1999), 转信
[一九九七年七月二十八日 总第668期] 第165版
在Delphi中调用API函数
葛为民冯焱
一、概述
Delphi作为一种面向对象的可视化开发工具，以其开
发程序的高速度和编译代码的高效率越来越受到广大编程
人员的喜爱。Delphi本身提供了包括界面设计、数据库操
作、报表打印和Internet等在内的数十个组件，开发者使
用它们可以非常容易、快速地制作出所要的应用系统，同
时所需要的编程量却非常地小。除此之外，delphi同时秉
承了borland公司产品一贯的编译效率高，速度快特色。
Delphi2．0版本以上的产品完全支持32位应用程序的
开发，完全支持windows95和windowsNT提供的所有API函
数。应用程序接口（API）是windows提供的任何Windows应
用可以访问的函数的集合。尽管Delphi已经提供了非常强
大的开发组件（VCL），但灵活使用API函数一定可以使你
的程序增色不少。
二、状态键的检查
当今不少流行软件的编辑窗口（包括Delphi的代码编
辑窗口）的底部都有一个状态条用来显示一些状态信息，
比如当前光标的位置、页码消息和状态键的状态。什么是
状态键呢？我们知道键盘上大多数按键只有在按下时才能
为系统所识别，而状态键的共同特点就是他们好似一个开
关，每按一次就切换到相反状态直至下一次按键为止。通
常键盘的状态键包括［NumLock］，［ScrollLock］，［C
apsLock］和［Insert］这四个键，在编辑窗口中显示状
态键的状态可以使你的界面更友好，更有利于方便用户。
使用delphi强大的开发功能和API提供的GetKeyboa
rdState（）函数，你可以轻松地在你的程序中实现状态
键检测这一功能。
也许有些读者要问：我可以使用delphi提供的OnKe
yPress函数捕捉按键动作来完成这一功能，又有什么必要
调用API函数呢？这就涉及到状态键的另一个特点：即它
的状态与程序运行无关。比如说你在word中按下insert键
后再切换到delphi中输入代码，这个键的状态仍然保持不
变。而如果只使用OnKeyPress函数，那么当你的程序在后
台运行时就无法捕捉到在前台程序中发生的按键动作，所
以当切换到你程序时也就无法正确反映状态键的状态。因
此需要使用API的GetKeyboardState（）函数来检查键盘状
态。当调用GetKeyboardState（）函数时，你需要在程序
中开辟一个256字节的缓冲区用来存储键盘上各个键的状
态（最简单的方法你可以声明一个TKeyboardState变量
）你可以根据缓冲区中相应位置的值来判断键盘状态，下
表显示了系统常量和其相应的按键。（你如果想查看所有
的键值列表可以在help菜单选择windowsAPI中输入关键
字virtualkeycodes，然后按下Show键）
常量按键名称
VK—INSERT［Insert］键
VK—NUMLOCK［NumLock］键
VK—CAPITAL［CapsLock］键
VK—SCROLL［ScrollLock］键
键盘缓冲区每一位都有特定的格式，对于状态键来说
，最低位是1时表示状态键处于ON状态，你可以使用delph
i提供的Odd（）函数来确定这一位的状态。为了使程序显
示正确的状态键的状态，你需要定期调用GetKeyboardS
tate（）函数来不断的查询键盘状态，实现这一功能最简
单的方法是使用Timer组件。
下面举一个小例子来说明如何具体实现这一调用功能
，在这个例子中我们将检查［NumLock］键的状态并把它
显示在屏幕底部的状态栏。
从Component模板Win95页中选择StatusBar组件，按
如下所示设置它的属性
AlignalBottom
Height20
从system页中的选择Timer组件并把它放入窗体，双
击Timer组件弹出OnTimer事件的代码编辑窗口，按如下所
示添加代码：
procedureTForm1．Timer1Timer（Sender：TObject
）；
varKeyStates：TKeyboardState；
begin
GetKeyboardState（KeyStates）；
begin
ifOdd（KeyStates［VK—NUMLOCK］）then
StatusBar1．Panels．Items［0］．Text：Κ′NUM
′
else
StatusBar1．Panels．Items［0］．Text：Κ″
end；
end；
我们可以检验一下程序的运行结果。运行程序，可以
看到状态条中正确显示了当前的状态，切换到另一个程序
改变［numlock］键的状态再切换回运行程序，可以看到
状态条的状态已经改变。一般说来，在程序中加入状态条
显示相应信息对于用户来说是十分方便的。
三、改变提示框（hint）的特性
许多程序在特定的控件上都有提示框，当鼠标在这些
控件上停一定时间以后就可以显示提示框。在Delphi中实
现提示框是非常容易的，只要设定相应的属性即可，这里
就不详细讨论了。但通常的提示框都是以黄色矩形框的形
式显示在对应控件的左下角，以下这段代码说明了如何使
用API改变delphi中提示属性的一些特性。有一点需要声
明的是代码中使用到的GetIconInfo函数只适用win32（也
就是说你只能在delphi2．0以上的版本中使用以下代码）
。
把以下代码加入到主窗体的Oncreate事件中，加入代
码后的主窗体的formcreate过程的代码如下所示：
procedureTMainForm．FormCreate（Sender：TObjec
t）；
begin
．．．
Application．OnShowHint．ΚGetHintInfo；
end；
然后把以下过程声明加入到主窗体的public段
procedureGetHintInfo（VarHintStr：sting；VarCa
nShow：boolean；varHintInfo：THintInfo）；
最后，在主窗体的implementation部分加入过程的实
现代码，加入完代码的过程如下所示：
procedureTMainForm．GetHintInfo（varHintStr：s
tring；varCanShow：boolean；varHintInfo：THintIn
fo）；
var
II：TlconInfo；
Bmp：Windows．TBitmap；
begin
withHintInfodobegin／／应该保证有控件使用定义
了Hint属性
ifHintControlΚNILthenexit；
HintPos：ΚHintControl．ClientToScreen（Cursor
Pos）；
／／把光标坐标系由相对于提示改为相对于屏幕
GetIconInto（Screen．Cursors［HintControl．Cur
sor］，II）；
／／获得有关提示控制使用的有关光标的信息
GetObject（II．hbmMask，SizeOf（Windows．TBitm
ap），ΝBmp）；
／／获得有关光标的位图（bitmap）信息
ifII．hbmColorΚ0then
inc（HintPos．Y，Bmp．bmHeightdiv2）
／／如果光标不包括彩色位图，增加Y方向
else
inc（HintPos．Y，Bmp．bmHeight）；
dec（HintPos．Y，II．yHotSpot）；
／／减掉y方向的热点位置
DeleteObject（II．hbmMask）；
DeleteObject（II．hbmColor）；
／／清除位置句柄
end；
end；
通过改变HintPos．X和Y的值可以在任意位置显示提
示框。Word7．0中滚动纵向滚动条时页码序号总是显示鼠
标在左方，用以上代码实现这一功能可以说是易如反掌。
返回主页
--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.0.240]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店