procedure TForm1.Button1Click(Sender: TObject);
type
            TSetHK = procedure(AForm : TForm);
var
      DLLInstance : THandle;
      SetHK      : TSetHK;
begin
      DLLInstance := LoadLibrary(PChar(Edit1.Text));
            if DLLInstance = 0 then
            begin
                    MessageDlg('Невозможно загрузить DLL', mtError, [mbOK], 0);
                    Exit;
            end;
            @SetHK := GetProcAddress(DLLInstance, 'SetHK');
            if @SetHK <> nil then
                    SetHK (Self)
            else
                    MessageDlg('Не найдена процедура.', mtError, [mbOK], 0);
            FreeLibrary(DLLInstance);
end;

var
     Form1: TForm1;
     LibHandle: HModule;
     SetHK: procedure; stdcall;
     HookProc: procedure; stdcall;
implementation

Procedure LoadMyLibrary(FileName: String);
Begin
LibHandle:= LoadLibrary(PChar(FileName));   
If LibHandle = 0 then begin
MessageBox(0,'Невозможно загрузить DLL',0,0);
Exit;
End;
SetHK:= GetProcAddress(LibHandle,'SetHK');
HookProc=: GetProcAddress(LibHandle,'HookProc');
If @SetHK = nil then begin
MessageBox(0,'Невозможно загрузить функцию 1',0,0);
Exit;
End;
If @HookProc = nil then begin
MessageBox(0,'Невозможно загрузить функцию 2',0,0);
Exit;
End; End;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
LoadMyLibrary('Project1.dll');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetHK;
end;

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeLibrary(LibHandle);
end;

program Injector;

uses
   Windows, AdvApiHook;

const DLL_INJ = 'DLL Injector (HOOKS)';

type TShp = procedure (hk: HHOOK) stdcall;

procedure InjectDLLviaHOOKS(dll_name: string);
var
    h: THandle;
    p: pointer;
    sh: TShp;
    hk: HHOOK;
begin
     h:=LoadLibrary(PAnsiChar(dll_name));
      if h=0 then
         begin
              MessageBox(0, PAnsiChar('Не могу загрузить DLL '+dll_name+'!'), DLL_INJ, MB_OK+MB_ICONERROR);
            exit;
         end;
      p:=GetProcAddress(h, 'HookProc');
      @sh:=GetProcAddress(h, 'SetHK');
      if ((p=nil) or (@sh=nil)) then
         begin
              MessageBox(0, PAnsiChar('Библиотека '+
                            dll_name+' не содержит необходимых процедур!'),
                            DLL_INJ, MB_OK+MB_ICONERROR);
              FreeLibrary(h);
              exit;
         end;
      hk:=SetWindowsHookEx(WH_CALLWNDPROC, p, h, 0);
      if hk=0 then
         begin
              MessageBox(0, PAnsiChar('Невозможно установить ловушку!'),
                            DLL_INJ, MB_OK+MB_ICONERROR);
              FreeLibrary(h);
              exit;
         end;
      sh(hk);
      MessageBox(0, 'Ловушка установлена! Нажмите OK для снятия.',
                    DLL_INJ, MB_OK);
      UnhookWindowsHookEx(hk);
      FreeLibrary(h);
end;

begin
      InjectDLLviaHOOKS('inet.dll');
end.

p:=GetProcAddress(h, 'HookProc');    
@sh:=GetProcAddress(h, 'SetHK');  

     p: pointer;    
     sh: TShp;