极点博客 - 青色咖啡的博客

unit fmMain; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls; 

type 
TForm1 = class(TForm) 
Button1: TButton; 
Button2: TButton; 
Edit1: TEdit; 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

var 
Form1: TForm1; 
InstallHook: function (SWindow: THandle):Boolean;stdcall; 
UnHook: procedure;stdcall; 
implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
ModuleHandle: THandle; 
TmpWndHandle: THandle; 
begin 
TmpWndHandle := 0; 
TmpWndHandle := FindWindow(nil, '目标窗口的标题'); 
if not isWindow(TmpWndHandle) then 
begin 
MessageBox(self.Handle, '没有找到窗口', '!!!', MB_OK); 
exit; 
end; 
ModuleHandle := LoadLibrary('Hook.dll'); 
@InstallHook := GetProcAddress(ModuleHandle, 'InstallHook'); 
@UnHook := GetProcAddress(ModuleHandle, 'UnHook'); 
if InstallHook(FindWindow(nil, 'Untitled')) then 
ShowMessage('Hook OK'); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
UnHook 
end; 

end.