【WINDOWS钩子（HOOK）功能的LISP应用（二）】屏蔽ESC键

Lispboy

有时候想自己的程序不被ESC取消终止，可以临时屏蔽ESC键，下面代码演示了如何定义钩子（HOOK）


下面代码是个开关命令，屏蔽和解除ESC交替执行。你也可以修改VK_ESCAPE为别的键码，屏蔽其他键。


其中定义的钩子函数是：


拦截WM_KEYDOWN消息，如果是按下ESC键，对应的键盘码是 VK_ESCAPE (27)，中断消息循环，让AUTOCAD不知道这个按键发生。

1.   (defun _mask-esc (hwnd msg wparam lparam ti pos)
   
2.     (cond ((= msg WM_KEYDOWN)
   
3.            (setq code wparam)
   
4.            (if (= code VK_ESCAPE)
   
5.              (xdrx_hook_block_messageloop t)
   
6.            )
   
7.           )
   
8.     )
   
9.   )
   
10. 
    

  (defun _mask-esc (hwnd msg wparam lparam ti pos)<br />     (cond ((= msg WM_KEYDOWN)<br />            (setq code wparam)<br />            (if (= code VK_ESCAPE)<br />              (xdrx_hook_block_messageloop t)<br />            )<br />           )<br />     )<br />   )<br /> <br />

1. (defun c:tt ()
   
2.   (defun _mask-esc (hwnd msg wparam lparam ti pos)
   
3.     (cond ((= msg WM_CHAR)
   
4.            (setq code wparam)
   
5.            (if (= code VK_ESCAPE)
   
6.              (xdrx_hook_block_messageloop t)
   
7.            )
   
8.           )
   
9.     )
   
10.   )
    
11.   (xdrx_begin)
    
12.   (xd::hook:register "_mask-esc" nil "屏蔽ESC")
    
13.   (if (not #xd_hook_mask_esc)
    
14.     (progn
    
15.       (xd::hook:enable "_mask-esc" t)
    
16.       (setq #xd_hook_mask_esc t)
    
17.     )
    
18.     (progn
    
19.       (xd::hook:enable "_mask-esc" nil)
    
20.       (setq #xd_hook_mask_esc nil)
    
21.     )
    
22.   )
    
23.   (xdrx_end)
    
24.   (princ)
    
25. )
    
26. 
    

(defun c:tt ()<br />   (defun _mask-esc (hwnd msg wparam lparam ti pos)<br />     (cond ((= msg WM_CHAR)<br />            (setq code wparam)<br />            (if (= code VK_ESCAPE)<br />              (xdrx_hook_block_messageloop t)<br />            )<br />           )<br />     )<br />   )<br />   (xdrx_begin)<br />   (xd::hook:register "_mask-esc" nil "屏蔽ESC")<br />   (if (not #xd_hook_mask_esc)<br />     (progn<br />       (xd::hook:enable "_mask-esc" t)<br />       (setq #xd_hook_mask_esc t)<br />     )<br />     (progn<br />       (xd::hook:enable "_mask-esc" nil)<br />       (setq #xd_hook_mask_esc nil)<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

追风lisp

感谢楼主分享，学习了