如何截获执行文件加载事件，并阻止执行

Question

http://www.csdn.net/Expert/TopicView1.asp?id=935272到这里去看看

Answer 1

先谢过 gaoys1979(虫洞) 了， 能关于 病毒实时监控 给些指点吗？

Answer 2

能 看看
http://www.csdn.net/expert/topic/936/936156.xml?temp=.6414148
或up 一下吗？ 我已经up 不上去了。谢谢。

Answer 3

我按书上的说明编写了一个钩子程序，用来截获进程启动事件
可是钩子处理函数却不执行，请告诉我错在哪里unit setHook;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
//    function theMouseHookProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;  end;var
  Form1: TForm1;implementation{$R *.dfm}var
    aHook:HHOOK;function theCBTHookProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
  result:=0;
  IF (code=HCBT_CREATEWND )then
  begin
    beep;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  aHook:=SetWindowsHookEx(    WH_CBT , // type of hook to install
    theCBTHookProc, // address of hook procedure
    0, // handle of application instance
    0//DWORD dwThreadId
    );end;procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnhookWindowsHookEx(
    ahook  // handle of hook procedure to remove
  );
end;end.

Answer 4

问题出在哪里啦，我的theCBTHookProc根本就没有捕获到HCBT_CREATEWND事件请过来人指点错误在哪里？

Answer 5

请高手指点到底为什么theCBTHookProc不执行？我也试过位theCBTHookProc生成一个dll文件可是同样也不执行

Answer 6

我目前运行环境是windows 2k pro,
开发环境是delphi5

Answer 7

我这儿有个例子，应该可以满足你的要求，如果你感兴趣，我发e-mail 给你。

Answer 8

谢谢，我的地址是
[email protected]

Answer 9

这里有个相关帖子,可以看一看.
http://www.csdn.net/expert/topic/938/938603.xml?temp=.4985926

Answer 10

这个帖子内容有些复杂
我希望在 95/98/me/nt/2000下都能够使用？有系统的参考资料吗？