如何设置鼠标中键为热键

[aaaa_b]

想做个程序
单击鼠标中键为热键
我知道设F2为热键代码如下
谁帮我改成鼠标中键为热键（单击鼠标中键）
ll_RC = RegisterHotKey(Handle(this), atomid_save, 0, 113) // F2为热键

[-狙击手-]

定义API：

function boolean ImmSimulateHotKey (Long hWnd,Long dwHotKeyID) library "IMM32.dll"
function long GetKeyboardLayout (long wLayout)library "user32.dll"
function boolean ImmIsIME(Long hklKeyboardLayout)library "IMM32.DLL"
subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo ) library 'user32.dll'


调用：

hkl_current = GetKeyboardLayout(0)
hwd = Handle(parent)

if ImmIsIME(hkl_current) then
keybd_event(17,0,0,0)　-- 键盘ASCII，参下面的码表
keybd_event(32,0,0,0)
keybd_event(17,0,2,0)
keybd_event(32,0,2,0)
end if

/*
键盘常用ASCII码


ESC键 VK_ESCAPE (27)
回车键： VK_RETURN (13)
TAB键： VK_TAB (9)
Caps Lock键： VK_CAPITAL (20)
Shift键： VK_SHIFT ($10)
Ctrl键： VK_CONTROL (17)
Alt键： VK_MENU (18)
空格键： VK_SPACE ($20/32)
退格键： VK_BACK (8)
左徽标键： VK_LWIN (91)
右徽标键： VK_LWIN (92)
鼠标右键快捷键：VK_APPS (93)

Insert键： VK_INSERT (45)
Home键： VK_HOME (36)
Page Up： VK_PRIOR (33)
PageDown： VK_NEXT (34)
End键： VK_END (35)
Delete键： VK_DELETE (46)

方向键(←)： VK_LEFT (37)
方向键(↑)： VK_UP (38)
方向键(→)： VK_RIGHT (39)
方向键(↓)： VK_DOWN (40)


F1键： VK_F1 (112)
F2键： VK_F2 (113)
F3键： VK_F3 (114)
F4键： VK_F4 (115)
F5键： VK_F5 (116)
F6键： VK_F6 (117)
F7键： VK_F7 (118)
F8键： VK_F8 (119)
F9键： VK_F9 (120)
F10键： VK_F10 (121)
F11键： VK_F11 (122)
F12键： VK_F12 (123)


Num Lock键： VK_NUMLOCK (144)
小键盘0： VK_NUMPAD0 (96)
小键盘1： VK_NUMPAD0 (97)
小键盘2： VK_NUMPAD0 (98)
小键盘3： VK_NUMPAD0 (99)
小键盘4： VK_NUMPAD0 (100)
小键盘5： VK_NUMPAD0 (101)
小键盘6： VK_NUMPAD0 (102)
小键盘7： VK_NUMPAD0 (103)
小键盘8： VK_NUMPAD0 (104)
小键盘9： VK_NUMPAD0 (105)
小键盘.： VK_DECIMAL (110)
小键盘*： VK_MULTIPLY (106)
小键盘+： VK_MULTIPLY (107)
小键盘-： VK_SUBTRACT (109)
小键盘/： VK_DIVIDE (111)


Pause Break键： VK_PAUSE (19)
Scroll Lock键： VK_SCROLL (145)


*/

[-狙击手-]

窗口的key事件：
　　GRAPHICOBJECT cb_control //定义环境变量
　　CHOOSE CASE KEY
　　　　　 CASE keyrightarrow! //按光标右键右移焦点
　　　　　　　　keybd_event(9,0,0,0)
　　　　　　　　keybd_event(9,0,2,0)
　　　　　 CASE keydownarrow! //按光标下键右移焦点
　　　　　　　　keybd_event(9,0,0,0)
　　　　　　　　keybd_event(9,0,2,0)
　　　　　 CASE keyleftarrow! //按光标左键左移焦点
　　　　　　　　keybd_event(16,0,0,0)
　　　　　　　　keybd_event(9,0,0,0)
　　　　　　　　keybd_event(16,0,2,0)
　　　　　　　　keybd_event(9,0,2,0)
　　　　　 CASE keyuparrow! //按光标上键左移焦点
　　　　　　　　keybd_event(16,0,0,0)
　　　　　　　　keybd_event(9,0,0,0)
　　　　　　　　keybd_event(16,0,2,0)
　　　　　　　　keybd_event(9,0,2,0)
　　　　　 CASE keyenter! //回车键触发焦点处控件
　　　　　　　　cb_control = GETFOCUS()
　　　　　　　　IF TypeOf(cb_control)=COMMANDBUTTON! THEN
　　　　　　　　　　Triggerevent(cb_control,clicked!)
　　　　　　　　END IF
　　END CHOOSE

[AFIC]

ll_RC = RegisterHotKey(Handle(this), atomid_save, 0, 4)

[aaaa_b]

ll_RC = RegisterHotKey(Handle(this), atomid_save, 0, 4)

不管用呀
55555555555