1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageBoxA(0,'this is a test','test',0);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

program hook;

{$APPTYPE CONSOLE}

uses
  Windows,
  uallHook,
  uallProcess;

var
  origMessageBoxA: function (hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
  newMessageBoxA: function (hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;

function callbackMessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
begin
  Result := newMessageBoxA(hWnd,PChar(lpText+' [hooked]'),lpCaption,uType);
end;

procedure DllMain;
var
  dwoglModule: DWord;
begin
  dwoglModule := LoadLibrary('user32.dll');
  @origMessageBoxA := GetProcAddress(dwoglModule,'MessageBoxA');
  uallHook.HookCode(@origMessageBoxA,@callbackMessageBoxA,@newMessageBoxA);
end;

procedure Main;
var
  dwPID: DWord;
begin
  dwPID := uallProcess.FindProcess('Project1.exe');
  if (dwPID <> 0) then
  begin
    uallHook.InjectMe(dwPID,@DllMain);
  end;
end;

begin
  Main;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

library hook2;

uses
  Windows,
  uallHook;

{$R *.res}

var
  newMessageBoxA: function (hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;

function callbackMessageBoxA(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: UINT): Integer; stdcall;
begin
  Result := newMessageBoxA(hWnd,PChar(lpText+' [hooked]'),lpCaption,uType);
end;

procedure DllMain(dwReason: DWord);
begin
  if (dwReason = DLL_PROCESS_ATTACH) then
  begin
    uallHook.HookCode(GetProcAddress(GetModuleHandle('user32.dll'), 'MessageBoxA'),@callbackMessageBoxA,@newMessageBoxA);
  end;
end;

begin
  DllProc := @DllMain;
  DllMain(DLL_PROCESS_ATTACH);
end.