钩子的问题(150分)

akalun · 2004-03-06

在主程序中捕获qq的句柄传给dll中的安装钩子函数 procedure TForm1.Button1Click(Sender: TObject); var hwnd:Thandle; begin      hwnd:=Findwindow(nil,'231002446');      showmessage(inttostr(hwnd));      EnableHook(hwnd); end; hwnd为dll中的全局变量 function EnableHook(shwnd:Thandle):Boolean;stdcall;export; var ThreadID:Thandle; begin      result:=false;      if hhk=0 then      begin         hwnd:=shwnd;         showmessage(inttostr(hwnd));         ThreadId:=GetWindowThreadProcessId(hwnd,nil);         hhk:=SetWindowsHookEx(WH_MOUSE,@HookProc,Hinstance,ThreadID);         result:=true;      end; end; function HookProc(ncode:integer;wparam:Wparam;lparam:Lparam):LRESULT;stdcall; var tf:textfile; begin      if ncode<0 then      begin        result:=CallNextHookEx(hhk,ncode,wparam,lparam);        exit;      end;      if wparam=WM_MOUSEMOVE then      begin                sendmessage(hwnd,WM_CLOSE,0,0);//不起作用？？？？      end;      result:=0; end; 我想安装一个鼠标钩子，当鼠标在qq上移动时关掉qq 为什么sendmessage(hwnd,WM_CLOSE,0,0)会不起作用，如果把这句放在主程序中可以关掉qq 我检查过hwnd和主程序传过来的值一样

akalun · 2004-03-06

李张柏芝 · 2004-03-06

那是因为你的Function定义错误，不是因为语句错误。 function HookProc(ncode:integer;wparam:Wparam;lparam:Lparam):LRESULT;stdcall; var tf:textfile; 改为： function 你的Tform类.HookProc(ncode:integer;wparam:Wparam;lparam:Lparam):LRESULT;stdcall; var tf:textfile; 这样就欧开了吧。具体的你要看你的程序。

akalun · 2004-03-06

应为我要监视其他的进程，HookProc函数是要放在dll中的，不是主程序的，不管这么样感谢你的回答

zzb1984 · 2004-03-07

强制结束  GetWindowThreadProcessId(hwnd,@P);     if P<>0 then      TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);

akalun · 2004-03-07

感谢各位的回答，问题我已经解决了，是dll全局变量共享的问题，只要添加一个文件映射函数就行了

zzb1984 · 2004-03-09

可以贴出你的文件映射函数吗，我也遇到相同的问题 http://www.delphibbs.com/delphibbs/dispq.asp?lid=2492079 我是想把用钩子记录下的窗口标题栏名称保存到dll所在的文件夹 一开始，我在shellproc用path获得dll所在的文件夹的路径，path := GetCurrentDir; 结果当我打开一个网页时，     path：= H:/program files/internet explorer/IEXPLORE.EXE 为此我到EnableHotKeyHook:中，全局变量path := GetCurrentDir; 的确获得dll所在的文件夹的路径,但是通过全局变量path传不进shellproc 在shellproc中path 未改变，仍为空串 unit HKProc; interface uses  Windows, Messages, Dialogs, SysUtils, TLHelp32; var  hNextHookProc: HHook;  procSaveExit: Pointer;  userName, path : string;  lpBuffer :array[1..64] of Char;  nSize :Cardinal;  myfile : textfile; function shellproc(iCode: Integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall; export; function EnableHotKeyHook: BOOL; export; function DisableHotKeyHook: BOOL; export; procedure HotKeyHookExit; far; implementation function shellproc(iCode: Integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall; export; var  szTitle:string;     //当前窗口名称  temp : TDateTime;  processPath:string;  Handler : THandle; begin  Result := 0;  If iCode < 0 Then  begin    Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);    Exit;  end  else if iCode=HSHELL_WINDOWCREATED   then  begin    SetLength(szTitle, 255);    SetLength(szTitle, GetWindowText(wParam,pchar(szTitle),254)); {    nSize := 255;    GetUserName(@lpBuffer, nSize);    userName := Copy(lpBuffer, 1, nSize-1);    path := GetCurrentDir;    path:=path + '/' + userName + DateToStr(now()) +'.txt';    AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');    append(myfile);    Writeln(myfile, Path );    CloseFile(myfile); }    if length(path) <= 0 then      path := 'null';    AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');    append(myfile);    Writeln(myfile, Path );    CloseFile(myfile);  end; end; function EnableHotKeyHook: BOOL; export; begin    nSize := 255;    GetUserName(@lpBuffer, nSize);    userName := Copy(lpBuffer, 1, nSize-1);    path := GetCurrentDir;    path:=path + '/' + userName + DateToStr(now()) +'.txt';    AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');    append(myfile);    Writeln(myfile, Path );    CloseFile(myfile);  Result := False;  if hNextHookProc <> 0 then Exit;  // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下  // 来, 免得 HOOK 呼叫链结断掉  hNextHookProc := SetWindowsHookEx(WH_SHELL,    shellproc,    HInstance,    0);  Result := hNextHookProc <> 0; end; function DisableHotKeyHook: BOOL; export; begin  if hNextHookProc <> 0 then  begin    UnhookWindowshookEx(hNextHookProc);  // 解除 Keyboard Hook    hNextHookProc := 0;    MessageBeep(0);    MessageBeep(0);  end;  Result := hNextHookProc = 0; end; procedure HotKeyHookExit; begin  // 如果忘了解除 HOOK, 自动代理解除的动作  if hNextHookProc <> 0 then DisableHotKeyHook;  ExitProc := procSaveExit; end; end.

akalun · 2004-03-09

procedure MyDLLHandler(Reason: Integer); var   FHandle: LongWORD; begin   case Reason of     DLL_PROCESS_ATTACH:     begin            //建立文件映射,以实现DLL中的全局变量       FHandle := CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, $ffff, 'MYDLLDATA');       if FHandle = 0 then       if GetLastError = ERROR_ALREADY_EXISTS then       begin         FHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, 'MYDLLDATA');         if FHandle = 0 then Exit;       end else Exit;       hwnd := MapViewOfFile(FHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0);       if hwnd = nil then         CloseHandle(FHandle);     end;     DLL_PROCESS_DETACH:     begin       if Assigned(hwnd) then       begin         UnmapViewOfFile(hwnd);         hwnd := nil;       end;     end;   end; end; 这段代码我是从CSDN上看来的，只要把你需要的全局变量包装成一个结构再把结构的 指针代替hwnd就行了，很方便希望对你有帮助

yahle · 2004-03-12

用钩子记录下打开过的所有的网页窗口标题栏名称 这是我的代码，有问题，可以截获WM_SETTEXT消息,但是不知如何进一步得到窗口标题栏名称 function CallWndProc(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; var Wnd: hWnd; WndText: string; szTitle:string;     //当前窗口名称 data : TModuleEntry32; myfile : textfile; temp : TDateTime; processPath:string; processID:integer; Handler : THandle; msg:Teventmsg; str

Char; i : integer; begin Result := 0; If iCode < 0 Then begin   Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);   Exit; end  else if iCode=HC_ACTION then  begin    msg:=peventmsg(lParam)^;    if msg.message=WM_SETTEXT then    begin      str := pchar(msg.paramL);      i := 1;      while str <> #0 do      begin        szTitle := str;        i := i+1;      end;      szTitle := #0;      if length(szTitle)<=0 then       szTitle := 'null';     AssignFile(myfile, 'E:/delphiProgram/managerComputer/windowtext.txt');     append(myfile);     Writeln(myfile, FormatDateTime('c', now()) +' '+ szTitle +' ');// + processPath     Writeln(myfile, #13);     CloseFile(myfile); end; end; function EnableHotKeyHook: BOOL; export; begin Result := False; if hNextHookProc <> 0 then Exit; // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下 // 来, 免得 HOOK 呼叫链结断掉 hNextHookProc := SetWindowsHookEx(WH_CALLWNDPROC,   CallWndProc,   HInstance,   0); Result := hNextHookProc <> 0; end; 可以指点一下吗

akalun · 2004-03-12

str := pchar(msg.paramL);？？ 应该是msg,Lparam 另外不用把pchar转换成string,可以直接写入textfile的

刘麻子 · 2004-04-23

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2532183

钩子的问题(150分)

akalun

Unregistered / Unconfirmed

akalun

Unregistered / Unconfirmed

李张柏芝

Unregistered / Unconfirmed

akalun

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

akalun

Unregistered / Unconfirmed

zzb1984

Unregistered / Unconfirmed

akalun

Unregistered / Unconfirmed

yahle

Unregistered / Unconfirmed

akalun

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads