DELPHI中的键盘操作

发布时间:2016-12-9 8:26:44 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"DELPHI中的键盘操作",主要涉及到DELPHI中的键盘操作方面的内容,对于DELPHI中的键盘操作感兴趣的同学可以参考一下。

用程序模拟键盘和鼠标键盘 在Windows大行其道的今天,windows界面程序受到广大用户的欢迎。对这些程序的操作不外乎两种,键盘输入控制和鼠标输入控制。有时,对于繁杂的,或重复性的操作,我们能否通过编制程序来代替手工输入,而用程序来模拟键盘及鼠标的输入呢?答案是肯定的。这主要是通过两个API函数来实现的。      下面以Delphi为例来介绍一下如何实现这两个功能。模拟键盘我们用Keybd_event这个api函数,模拟鼠标按键用mouse_event函数。大家不用担心,在delphi里调用api函数是很方便的事。      先介绍一下Keybd_event函数。Keybd_event能触发一个按键事件,也就是说回产生一个WM_KEYDOWN或WM_KEYUP消息。当然也可以用产生这两个消息来模拟按键,但是没有直接用这个函数方便。Keybd_event共有四个参数,第一个为按键的虚拟键值,如回车键为vk_return, tab键为vk_tab。第二个参数为扫描码,一般不用设置,用0代替就行。第三个参数为选项标志,如果为keydown则置0即可,如果为keyup则设成“KEYEVENTF_KEYUP”,第四个参数一般也是置0即可。用如下代码即可实现模拟按下i键,其中的$49表示i键的虚拟键值: keybd_event($49,0,0,0);                                                       keybd_event($49,0,KEYEVENTF_KEYUP,0); ...      mouse_event最好配合setcursorpos(x,y)函数一起使用,与Keybd_event类似,mouse_event有五个参数,第一个为选项标志,为MOUSEEVENTF_LEFTDOWN时表示左键按下,为MOUSEEVENTF_LEFTUP表示左键松开,向系统发送相应消息。第二三个参数分别表示x,y相对位置,一般可设为0,0,第四五个参数并不重要,一般也可设为0,0。若要得到Keybd_event和mouse_event函数的更详细的用法,可以查阅msdn或delphi帮助。下面是关于mouse_event的示例代码:  setcursorpos(20,132);    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);    mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);    mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0); ... 上面的代码表示鼠标的双击,若要表示单击,用两个mouse_event即可(一次放下,一次松开)。    注意,不管是模拟键盘还是鼠标事件,都要注意还原,即按完键要松开,一个keydown对应一个keyup;鼠标单击 完也要松开, 不然可能影响程序的功能。       好了,希望本文能让你对模拟键盘和鼠标按键有个初步的了解,如果想更深入的了解其中的奥妙,可以查阅详实的msdn在线帮助,并多多动手实践。 解决锁定键盘鼠标的方法 如果你不需要屏蔽Ctrl+Alt+Del组合键,可以使用低级键盘钩子(WH_KEYBOARD_LL)与低级鼠标钩子(WH_MOUSE_LL),这两种消息钩子的好处是不需要放在动态链接库中就可以作全局钩子,将键盘消息与鼠标消息截获. unit uHookKeyAndMouse; { 该单元利用WH_KEYBOARD_LL与WH_MOUSE_LL两种类型的钩子分别截获键盘消息与鼠标消息} { 由于这里只是需要将消息屏蔽,故只需对钩子函数的返回结果设为1即可. } { 提供两个函数StartHookKeyMouse与StopHookKeyMouse两个函数. } interface uses Windows, Messages, SysUtils; const WH_KEYBOARD_LL =13; WH_MOUSE_LL =14; procedure StartHookKeyMouse; procedure StopHookKeyMouse; implementation var hhkLowLevelKybd:HHook=0; hhkLowLevelMouse:HHook=0; function LowLevelKeyboardProc(nCode:Integer; WParam:WPARAM; LParam:LPARAM):LRESULT; stdcall; begin Result:=1; if nCode<>0 then Result:=CallNextHookEx(0,nCode,WParam,LParam); end; function LowLevelMouseProc(nCode:Integer; WParam:WPARAM; LParam:LPARAM):LRESULT; stdcall; begin Result:=1; if nCode<>0 then Result:=CallNextHookEx(0,nCode,WParam,LParam); end; procedure StartHookKeyMouse; begin if hhkLowLevelKybd = 0 then begin hhkLowLevelKybd := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, Hinstance, 0); end; if hhkLowLevelMouse = 0 then begin hhkLowLevelMouse:=SetWindowsHookEx(WH_MOUSE_LL,LowlevelMouseProc,HInstance,0); end; end; procedure StopHookKeyMouse; begin if hhkLowLevelKybd <> 0 then begin UnhookWindowsHookEx(hhkLowLevelKybd); hhkLowLevelKybd:=0; end; if hhkLowLevelMouse <> 0 then begin UnHookWindowsHookEx(hhkLowLevelMouse); hhkLowLevelMouse:=0; end; end; initialization hhkLowLevelKybd:=0; hhkLowLevelMouse:=0; finalization if hhkLowLevelKybd <> 0 then UnhookWindowsHookEx(hhkLowLevelKybd); if hhkLowLevelMouse <> 0 then UnhookWindowsHookEx(hhkLowLevelMouse); end. 来自:conworld, 时间:2005-2-24 16:06:31, ID:2996263 高手终于出现了,谢谢 你的方法确实实现了锁定鼠标,但是我想达到的效果是: 1.锁定键盘 2.鼠标只能在我的程序窗口中操作 谢谢 来自:smokingroom, 时间:2005-2-24 17:01:12, ID:2996381 要求2(鼠标只能在我的程序窗口中操作)的实现: 修改LowLevelMouseProc过程如下: type PMSLLHOOKSTRUCT=^MSLLHOOKSTRUCT; MSLLHOOKSTRUCT = record pt:TPoint; mouseData:DWORD; flags:DWORD; time:DWORD; dwExtraInfo:DWORD; end; var MouseRect:TRect; //这是你需要限制的Mouse活动范围. function LowLevelMouseProc(nCode:Integer; WParam:WPARAM; LParam:LPARAM):LRESULT; stdcall; var p:PMSLLHOOKSTRUCT; begin Result:=0; if nCode=HC_ACTION then begin p:=PMSLLHOOKSTRUCT(LParam); if (p.pt.X < MouseRect.Left) or (p.pt.X > MouseRect.Right) or (p.pt.Y < MouseRect.Top) or (p.pt.Y > MouseRect.Bottom) then Result:=1; end else if nCode<>0 then Result:=CallNextHookEx(0,nCode,WParam,LParam); end; 附取得MouseRect的代码,假定你的主窗体体为MainFrm MouseRect:=MainFrm.ClientRect; MouseRect.TopLeft:=MainFrm.ClientToScreen(MouseRect.TopLeft); MouseRect.BottomRight:=MainFrm.ClientToScreen(MouseRect.BottomRight); 另在Result:=1之前加多一个ClipCursor(@MouseRect)效果会更好,可以有效解决当按下Ctrl+Alt+Del后将Mouse移出窗体后,Mouse失效的情况. if (p.pt.X < MouseRect.Left) or (p.pt.X > MouseRect.Right) or (p.pt.Y < MouseRect.Top) or (p.pt.Y > MouseRect.Bottom) then begin ClipCursor(@MouseRect) Result:=1; end  

上一篇:似乎经理要带我搞新模块了
下一篇:50个有用网站设计的资源

相关文章

相关评论