大写锁定(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 );