3.利用代码在系统中注册要使用的热键
//在窗口的Open事件中
long ll-RC
string ls-str
ls-str = "My atom ID"
atomid = GlobalAddAtom(ls-str) //得到惟一的ID,保证不和其他应用程序发生冲突
ll-RC = RegisterHotKey(Handle(this), atomid, MOD-ALT + MOD-CONTROL, 65)
// 65为‘A’,注册的热键为Ctrl+Alt+A
if ll-RC = 0 then
messagebox("错误","错误信息")
end if
4.编写按下热键时的处理程序
//在窗口的Other事件中
IF wparam = atomid THEN
//在这里编写处理程序
END IF
第二种方法:
1.声明 API的外部函数
function long SendMessageA(long lhWnd,uint uiMsg,long lwMsg,long lwParam) library ′user32.dll′
2.对常量赋初值
Public:
Constant Long WM-SETHOTKEY=50//设置热键信息值
Constant Long HK-MYHOTKEY=1648 //热键参数值
Constant Long SC-HOTKEY=61776//PB中的热键信息