delphi下支持64位钩子

从delphi.about.com上找了一个钩子的实现代码，写得很不错，自己参考classes单元增加了64位的支持，分享给大家

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      14688  2015-01-07 21:54  U_Hooks.pas

----------- ---------  ---------- -----  ----

                14688                    1