大寫鎖定

大寫鎖定(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 );