delphi利用全局键盘钩子做的,有详细的注释,适合初学者