![大寫鎖定](/img/a/dbd/wZwpmLwATNycTM2ADOxMzM1UTM1QDN5MjM5ADMwAjMwUzLwgzLyMzLt92YucmbvRWdo5Cd0FmLxE2LvoDc0RHa.jpg)
設定大寫鎖定
函式如下:
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 );