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