delphi实现的按键钩子，没有用DLL文件，这个大家可以看看！-delphi to achieve key hook, did not use DLL files, you can look at this!