S
sadnui
Unregistered / Unconfirmed
GUEST, unregistred user!
library MsgBox;
uses windows;
var Hook:HHOOK=0;
function MyHook(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
begin
result:= CallNextHookEx(hook,code,wparam,lparam);
end;
function I:boolean;
begin
result:=true;
Hook:=SetWindowsHookEx(WH_CBT, MyHook, hinstance, 0);
end;
begin
messagebox(0,pchar(paramstr(0)),'',0);
end.
/////////////////////////
以后的钩子代码若是钩住以下程序:
paramstr aaa;
uses windows;
begin
winexec('cmd',1);
endl.
/////////////////////
我简单了解了一下 程序 aa 为无窗体程序 并且没有进入消息循环
我想拦截此类程序
一直想不到一个较好的方法~
若有高手也遇到同问题、还希望能多多指教下~
uses windows;
var Hook:HHOOK=0;
function MyHook(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT stdcall;
begin
result:= CallNextHookEx(hook,code,wparam,lparam);
end;
function I:boolean;
begin
result:=true;
Hook:=SetWindowsHookEx(WH_CBT, MyHook, hinstance, 0);
end;
begin
messagebox(0,pchar(paramstr(0)),'',0);
end.
/////////////////////////
以后的钩子代码若是钩住以下程序:
paramstr aaa;
uses windows;
begin
winexec('cmd',1);
endl.
/////////////////////
我简单了解了一下 程序 aa 为无窗体程序 并且没有进入消息循环
我想拦截此类程序
一直想不到一个较好的方法~
若有高手也遇到同问题、还希望能多多指教下~