大写锁定(Caps Lock)，即将输入状态锁定在大写状态，使输入出为大写英文字母，并锁定。

• 中文名称 大写锁定
• 外文名称 Caps Lock
• 概念 将输入状态锁定在大写状态
• 分类 函数

　　设置大写锁定

　　函数如下:

　　procedure SetCapsLockKey( vcode: Integer; down: Boolean );

　　begin

　　if Odd(GetAsyncKeyState( vcode )) <> down then

　　begin

　　keybd_event( vcode, MapVirtualkey( vcode, 0 ),

　　KEYEVENTF_EXTENDEDKEY, 0);

　　keybd_event( vcode, MapVirtualkey( vcode, 0 ),

　　KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

　　end;

　　end;

　　调用:

　　1、按下

　　SetCapsLockKey( VK_CAPITAL, True );

　　2、取消锁定

　　SetCapsLockKey( VK_CAPITAL, False );