用户登录  |  用户注册
首 页 ┆ 商业源码 ┆ 原创产品 ┆ 编程论坛
当前位置:PB创新网 → 文章中心 → 编程技巧 → Delphi

如何设置大写锁定键

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 20:04:15
函数如下:

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;

...

SetLockKey( VK_CAPITAL, True ); //按下


''keybd_event'', ''MapVirtualkey''和''GetAsyncKeyState''是win-api函数...

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网【ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:26,796.88000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号