神奇的ACET-SYS-KEYSTATE,有知道其用法？

/db_自贡黄明儒_

(< (ACET-SYS-KEYSTATE 1) 0)；鼠标左键
(< (ACET-SYS-KEYSTATE 17) 0);ctrl按下
(< (ACET-SYS-KEYSTATE 16) 0);shift按下

/db_自贡黄明儒_

(= (ACET-SYS-KEYSTATE 18) 1) NumLock?

iLisp

acet-sys-keystate

                                                                                                                                                                                               

Checks the state of a given virtual key.

(acet-sys-keystate keycode)

Argument

keycode

The code value for the virtual key. The following table shows the values of some special virtual key values:

16 Shift Key. 17 Control Key 18 Meu Key 19 Pause Key 20 Capital Key

Return Value

An integer value represent the status of the specified virtual key: ​ If the high order bit is 1, the tested key is down; otherwise it is up. if the low order bit is 1, the key is toggled. A key, such as CAPS LOCK key, is toggled if it is turned on. The key is untoggled if the low order bit is 0.

Examples

$(acet-sys-keystate 16) 0

liuyj

有没有返回ESC键状态的函数？

marting

liuyj 发表于 2017-1-5 09:55

试试

(ACET-SYS-KEYSTATE 27)

cabinsummer

可以和grread结合起来用动态

sicky111

黄大师随随便便提个问，把高手全引出来了。