DLL 文件
library hook32;
uses
SysUtils,
Forms,
Classes,
myDLl in 'myDLl.pas' {Form1};{$R *.res}exports
HookOn,HookOff;
begin
end.
myDLl.pasfunction HookOn(lpHwnd:HWND;lpType:Longint): Longint;stdcall; export;
begin
mhwnd:=lpHwnd;
if hHk<>0 then UnHookWindowsHookEx(hHk);
hThread :=GetWindowThreadProcessId(mhwnd,hmod);
hHk :=SetWindowsHookEx(lpType,@HookProc,hInstance,hThread); // WH_KEYBOARD
Result :=hHk
end; exe 文件
function HookOn(lpHwnd:HWND;lpType:Longint):Longint;stdcall;external 'Hook32.dll' name 'HookOn'; 申明procedure TForm1.Button1Click(Sender: TObject);
begin
HookOn(要注入的hwnd,WH_KEYBOARD);
end;
DLL是个钩子,想用一个exe把DLL注入到注定进程并记录鼠标或者键盘动作,注入成功后必须可以把exe关闭不影响指定窗口的记录,呵呵,不知道那位大哥能帮我改下。
library hook32;
uses
SysUtils,
Forms,
Classes,
myDLl in 'myDLl.pas' {Form1};{$R *.res}exports
HookOn,HookOff;
begin
end.
myDLl.pasfunction HookOn(lpHwnd:HWND;lpType:Longint): Longint;stdcall; export;
begin
mhwnd:=lpHwnd;
if hHk<>0 then UnHookWindowsHookEx(hHk);
hThread :=GetWindowThreadProcessId(mhwnd,hmod);
hHk :=SetWindowsHookEx(lpType,@HookProc,hInstance,hThread); // WH_KEYBOARD
Result :=hHk
end; exe 文件
function HookOn(lpHwnd:HWND;lpType:Longint):Longint;stdcall;external 'Hook32.dll' name 'HookOn'; 申明procedure TForm1.Button1Click(Sender: TObject);
begin
HookOn(要注入的hwnd,WH_KEYBOARD);
end;
DLL是个钩子,想用一个exe把DLL注入到注定进程并记录鼠标或者键盘动作,注入成功后必须可以把exe关闭不影响指定窗口的记录,呵呵,不知道那位大哥能帮我改下。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货