1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var VAExNext : function (hProcess : Cardinal; lpAddress : Pointer; dwSize : Cardinal; flAllocationType : Cardinal; 
                         flProtect : Cardinal) : Pointer ; stdcall; 

function VAExHookProc(hProcess : Cardinal; lpAddress : Pointer; dwSize : Cardinal; flAllocationType : Cardinal; 
                      flProtect : Cardinal) : Pointer ; stdcall; 
begin 
  result := nil; 
end; 

begin 
  HookApi('kernel32.dll','VirtualAllocEx',@VAExHookProc,@VAExNext); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  InjectLibrary(ALL_SESSIONS or SYSTEM_PROCESSES,'hook.dll'); 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  UnInjectLibrary(ALL_SESSIONS or SYSTEM_PROCESSES,'hook.dll'); 
end;