一、引言

　　在Windows桌面上创建快捷方式的应用程序，可以通过设置它的属性来实现一键调用该程序的功能（即“一键功能”），可是，如果每个常用程序都通过创建快捷方式来实现“一键功能”，则桌面上将显得杂乱无章; 怎样才能既不为应用程序创建快捷方式，又能实现“一键功能”呢？下面介绍用VB编程实现“一键功能”的方法及其应用。

　　二、编程原理

　　在API函数中有一个GetAsyncKeyState函数，功能是判断函数调用时指定虚拟键的状态，即调用该函数时，可以检测到用户想检测的键是否被按下该函数的声明如下：Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

　　参数vKey表示想检测键的扫描代码，该扫描代码由vbKey和键面字符组成，例如F1、F2、F3、A的扫描代码分别为vbKeyF1、vbKeyF2、vbKeyF3、vbKeyA。如果用户按下指定的键，函数的返回值为小于0的整数，否则返回大于或等于0的整数。因此，可以根据返回值是否小于0，检测是否按下指定的键。该函数还有一个非常好的特点，那就是无论调用它的程序是在前台还是在后台运行，它都能够检测键盘上某一键是否被按下（即一旦调该函数，它在整个系统范围内都有效）。利用这个特点，我们便可以为某一个功能键定义一个应用程序，然后再用计时器实时检测该键状态，当该键被按下时调用该应用程序，从而实现“一键功能”。

　　三、应用编程

　　利用上述原理进行以下两个方面的应用：1、一键调用编程实现的特定功能（过程的功能）;2、一键调用安装在Windows下的应用程序。

　　对于第一方面的应用，主要是编写一些特定功能的过程，如关机、重新启动、打开光驱、关闭光驱，锁定屏幕。它的编程思路是（这些功能都是简单地调用API函数实现的，这里不再叙述）: 程序运行时，首先检测是否为这些功能定义了快捷键（保存在FunctionKey.txt文件中），如果没有定义，则显示如图所示的界面，让用户定义快捷键并保存。如果已经定义，则把它们读到与特定功能的函数相对应的数组元素中，并显示在应用程序界面的相应位置。如果此时你按下了某个已经定义的功能键，当GetAsyncKeyState函数检测到后，便立即执行相应的过程。