本文整理自网络，侵删。
调用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;
相关阅读 >>
Delphi winapi: loadstring - 从资源中载入字符串
Delphi shgetfileinfo函数获取任何文件大图标
Delphi access数据库密码的mdb的访问报错“无法启动应用程序，或是已被其他用户已独占方式打开”
Delphi twebbrowser：确定带有框架的页面何时完成
更多相关阅读请进入《Delphi》频道 >>
