用Delphi6写的演示在程序中如何设定富于个性的热键,例如F+J.-Delphi6 written presentation with in the procedure how to set up wealth to the personality of the hotkey, for example, F+ J.

一、把当前进程变为一个系统服务: 　　目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。 　　二、定义全局热键（本例中定义热键Ctrl+Del+R），步骤： 　　1、定义捕获Windows消息WM_HOTKEY的钩子函数，即：procedure WMHotKey(var Msg : TWMHotKey) message WM_HOTKEY 　　2、向Windows加入一个全局原子 Myhotkey:

一、把当前进程变为一个系统服务: 　　目的是在任务列表中把程序隐藏起来。调用API函数RegisterServiceProcess实现。 　　二、定义全局热键（本例中定义热键Ctrl+Del+R），步骤： 　　1、定义捕获Windows消息WM_HOTKEY的钩子函数，即：procedure WMHotKey(var Msg : TWMHotKey) message WM_HOTKEY 　　2、向Windows加入一个全局原子 Myhotkey: GlobalAddAtom(’MyHotkey’