unit1.pas

来自「delphi dll 热键注入代码....................」· PAS 代码 · 共 60 行

unit Unit1;

interface

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

type
TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function HookOn(lpHwnd:HWND;lpType:Longint):Longint;stdcall;external 'Hook32.dll' name 'HookOn';
function HookOff:Boolean;stdcall;external 'Hook32.dll' name 'HookOff';
implementation

{$R *.dfm}



procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
hookoff;
end;

procedure TForm1.Button1Click(Sender: TObject);
var

h1:HWND;
begin

h1:=FindWindow('Notepad',nil);//这是窗口的句柄，要自己找到后，填写入。
if h1=0 then showmessage('没找到进程!');
if h1>0 then showmessage('找到进程!');
sleep(2000); 
HookOn(h1,WH_KEYBOARD);


end;

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

end.