delphi CapsLock打开与关闭|笨鱼技术网

中国程序员联盟

正在重新改版中ing 不便之处还请见谅改版后将内容涉及java delphi .net php

| | | |

		当前位置：笨鱼delphi技术网>系统函数>文章内容

delphi CapsLock打开与关闭

来源：国外关于：Jonas Bilinkevicius 发布时间：2007-07-03

[

收藏] [

推荐]

Problem/Question/Abstract:

How to turn the CapsLock on and off

Answer:

procedure SetLockKey(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;

Call by:

SetLockKey(VK_CAPITAL, True); {caps lock down}

[浏览：次]

上一篇：delphi 关闭数字键盘下一篇：delphi 切换界面的方法

[

收藏] [

推荐] [返回顶部] [打印本页] [关闭窗口]


	google adsense热点文章

·delphi Delphi中ShellExecute的妙用
·delphi 如何快速读取文本文件
·delphi 如何判断输入值是否中文
·delphi 在应用层截获键盘消息
·delphi delphi实现服务开启与关闭
·delphi 实时记录事件日志
·delphi 使MEMO自动滚动
·delphi 如何区分键盘两个Enter键
·delphi 切换界面的方法
·delphi 汉字输入法的编程及使用
·delphi Delphi程序输入法自动切换最简
·delphi 程序缩小为任务右下角的小图标

	Copyright@www.delphichm.com,2006-2009.All Rights Reserved.
	程序员联盟 \| delphi Java .net\|QQ:707102932