Delphi编程使用HOOK监视Windows

每个程序都有自己的生存空间，在Windows系统中你可以在任何时候让你的程序执行一些操作

，还可以触发消息，触发的消息分为三种，

一是操作你程序的界面，onClick，onMouseMove等等，另外一个可以使用Windows的消息机制来捕获

一些系统消息，

但是如果你想在任何时候监控任何程序的情况那可能你就会选择HOOK来实现了，虽然还有其他方法

，但不得不承认，

HOOK是一个比较简单解决问题的途径。

　　下面就来举个例子（使用Delphi7.0调试通过）：

　　如果你需要访问某个人的机器，那在运行//SB之后那个人就会在你机器上敲入他的adminsitrator

密码，当然，

你也可以使用黑客工具来得到他的密码，但是，为什么不自己尝试一下写个程序记录所有的键盘操

作呢？

　　首先需要申明一点，Hook不同于一般的应用程序，需要作为一个全局DLL出现，否则无法在你

程序不激活的状态捕获其他信息的，

（当然你可以用Windows消息，这个问题不在这里讨论）。

　　写个DLL定义一下函数

　　function setk