delphi取键值

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