几个Delphi代码实例,用于说明钩子的原理.