Delphi 判断按键状态

http://blog.sina.com.cn/s/blog_54da9cc001015di1.html

 (2012-04-05 14:22:50)

标签：

分类：

调用GetKeyState(nVirtKey:integer)函数，可以判断是否按下了Alt、Ctrl、Shift键，如果函数返回值<0则表示按下了。 参数： nVirtKey     指定一个键。如果指定字母或数字键，nVirtKey 必须为该字符的 ASCII 码值。如：判断‘a’键是否按下使用GetKeyState(65)，65是字符‘a’的ASCII码值，关于字符的ASCII码值请参考有关资料。Alt、Ctrl、Shift键使用下面的常量，而不使用ASCII码值。

VK_SHIFT Shift键

VK_CONTROL Ctrl键

VK_MENU Alt键 例子： function Shift_down():boolean; //判断是否按下shift键，如果按下返回True，否则返回False begin

if GetKeyState(VK_SHIFT)<0 then Result:=True else Result:=False; end;

function Alt_down():boolean; //判断是否按下Alt键，如果按下返回True，否则返回False begin

if GetKeyState(VK_MENU)<0 then Result:=True else Result:=False; end;

function Ctrl_down():boolean; //判断是否按下Ctrl键，如果按下返回True，否则返回False begin

if GetKeyState(VK_CONTROL)<0 then Result:=True else Result:=False; end;