很多程序都有这样一个功能（比如说一些抓图软件和词典软件），无论你正在做什么工作，只要按动键盘上指定的按键，就可以激活正在后台运行的程序。这里我们讨论如何在Director中（以下简称D）实现这一功能。
由于D不能直接操作winapi函数，就要用到第三方插件（xtra），这里以budapi为例来进行说明。
要实现这一功能实际上是用到了winapi里面的发送消息函数，向指定程序发送一个设置热键（Hotkey）的指令即可，格式如下：
baSendMsg(WindowHandle, 50, Hotkey, 0 ,0 )
这里的50是消息WM_SETHOTKEY的标识符。Hotkey是你设定热键的值。具体取值如下：
SHIFT =1 CONTROL =2 ALT =4
A=65 B=66 …… Y=89 Z=90。其他功能键的值你可以通过VB附带的API文本浏览器查找以VK_开头的值即可查到。
二键实例：
实现热键 Ctrl+A 就应该是：
Hotkey ＝2×256+65。这里的256是必须乘的。
Lingo代码：
on startMovie
--获取自身应用程序句柄
myWin=baWinHandle()
--设置系统级热键： Ctrl+A
baSendMsg( myWin, 50, 2*256+65 , 0 ,0 )
end
三键实例：
实现热键 Ctrl+Alt+A 就应该是：
Hotkey ＝（2+4）×256+65。这里的256是必须乘的。
Lingo代码：
on startMovie
myWin=baWinHandle()
baSendMsg( myWin, 50, (2+4)*256+65 , 0 ,0 )
end
依此规律，我们甚至可以设置四个按键的热键，如 Ctrl+SHIFT+Alt+1：
Hotkey ＝(1+2+4)*256+49 ，（1 的编码为49）
on startMovie
myWin=baWinHandle()
baSendMsg( myWin, 50, (1+2+4)*256+49 , 0 ,0 )
end
注意： 如果你只是想用SHIFT或Ctrl键做单一的热键，而不是做组合键，则SHIFT=16，CONTROL =17，alt=18 而不对应1，2，4，也无需乘256了。
如 用SHIFT做为热键，则 Hotkey＝16
on startMovie
myWin=baWinHandle()
baSendMsg( myWin, 50, 16 , 0 ,0 )
end
这时当其后台运行是只要按SHIFT键就可以呼之欲出了。
baSendMsg( myWin, 50, 65 , 0 ,0 ) ，就是按A键呼出程序了。
由此我们就可以在D中轻松的完成 为我们的程序设置一个系统级热键了，你甚至可以让用户自定义呼出热键，希望能对你的实际应用有所帮助。
下载实例： http://www.aougu.net/images/20030805/1832169749.dir