你见过这样hook的问题吗?(100分)

13380073758 · 2006-01-03

unit HKProc; interface  uses Windows, Messages; var  hNextHookProc: HHook;  procSaveExit: Pointer; function KeyboardHookHandler(iCode: Integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall; export; function EnableHotKeyHook(): BOOL; export; function DisableHotKeyHook: BOOL; export; procedure HotKeyHookExit; far; implementation var    F: TextFile; function KeyboardHookHandler(iCode: Integer;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall; export; const  _KeyPressMask = $80000000; begin  Result := 0; // postmessage(IlMainHandle,WM_HOOKWIN,iCode,1);  //  If iCode < 0 Then  begin    Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);    Exit;  end;  // 侦测 Ctrl + B 组合键  if ((lParam and _KeyPressMask) = 0) and    (GetKeyState(vk_Control) < 0) and (wParam = Ord('B')) then  begin    Result := 1;        Writeln(F,'gg');    WinExec('Notepad.exe', sw_Normal);  // 记事本  end; //  Writeln(F,inttostr(icode)); end; function EnableHotKeyHook(): BOOL; export; begin  Result := False;  if hNextHookProc <> 0 then Exit;  // 挂上 WH_KEYBOARD 这型的 HOOK, 同时, 传回值必须保留下  // 来, 免得 HOOK 呼叫链结断掉  hNextHookProc := SetWindowsHookEx(WH_KEYBOARD,    KeyboardHookHandler,    HInstance,    0);  AssignFile(F, 'c:/lll.txt');  Rewrite(F);  Result := hNextHookProc <> 0; end; function DisableHotKeyHook: BOOL; export; begin  if hNextHookProc <> 0 then  begin    UnhookWindowshookEx(hNextHookProc);  // 解除 Keyboard Hook    hNextHookProc := 0;    MessageBeep(0);    MessageBeep(0);    CloseFile(F);  end;  Result := hNextHookProc = 0; end; procedure HotKeyHookExit; begin  // 如果忘了解除 HOOK, 自动代理解除的动作  if hNextHookProc <> 0 then DisableHotKeyHook;  ExitProc := procSaveExit; end; end. //===================================================================== library HKTest; { Important note about DLL memory management: ShareMem must be the  first unit in your library's USES clause AND your project's (select  Project-View Source) USES clause if your DLL exports any procedures or  functions that pass strings as parameters or function results. This  applies to all strings passed to and from your DLL--even those that  are nested in records and classes. ShareMem is the interface unit to  the BORLNDMM.DLL shared memory manager, which must be deployed along  with your DLL. To avoid using BORLNDMM.DLL, pass string information  using PChar or ShortString parameters. } uses  SysUtils,  Classes,  HKProc in 'HKProc.pas'; {$R *.res} exports  EnableHotKeyHook,  DisableHotKeyHook; begin  hNextHookProc := 0;  procSaveExit := ExitProc;  ExitProc := @HotKeyHookExit; end. //========================================================================== unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Memo1: TMemo;    procedure Button2Click(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.dfm} function EnableHotKeyHook(): BOOL; external 'HKTEST.DLL'; function DisableHotKeyHook: BOOL; external 'HKTEST.DLL'; procedure TForm1.Button2Click(Sender: TObject); begin  if DisableHotKeyHook then    ShowMessage('HotKey Testing..., DONE!!'); end; procedure TForm1.Button1Click(Sender: TObject); begin if EnableHotKeyHook() then    ShowMessage('HotKey Testing...'); end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin DisableHotKeyHook; end; procedure TForm1.FormCreate(Sender: TObject); begin end; end. //=========================================================================== 此程序按 http://www.delphibbs.com/delphibbs/dispq.asp?lid=96332 改动后的结果 改动了 1、 var F: TextFile; 2、增加写向文本      Writeln(F,'gg');  //这一行是增加的      WinExec('Notepad.exe', sw_Normal);  // 记事本 3、增加新建文本文件    AssignFile(F, 'c:/lll.txt');    Rewrite(F); 4、增加关闭文件    CloseFile(F); 问题是，增加了这几行后hook就不能成功了，有时第一次就会成功，有时一次都不成功，不知道为什么？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？

你见过这样hook的问题吗?(100分)

13380073758

Unregistered / Unconfirmed

Similar threads