program aHookProc;

uses
 Windows,
 advApiHook;
 
var
TrueMessageBoxA: function(hWnd: HWND; lpText, lpCaption:
                         PAnsiChar; uType: UINT): Integer; stdcall;

function NewMessageBoxA(hWnd: HWND; lpText, lpCaption:
                       PAnsiChar; uType: UINT): Integer; stdcall;
begin
 TrueMessageBoxA(0, 'Перехват установлен!', 'HookProc', 0);
end;

begin
 MessageBoxA(0, 'Новый метод API перехвата.', 'HookProc', 0);

 HookProc('user32.dll', 'MessageBoxA', @NewMessageBoxA, @TrueMessageBoxA);

 MessageBoxA(0, 'Не работает!', 'HookProc', 0);

 UnhookCode(@TrueMessageBoxA);
 
 MessageBoxA(0, 'Перехват снят.', 'HookProc', 0);
end.

type
     TCreateProcess   =   function(lpApplicationName:   PChar;   lpCommandLine:   PChar;
           lpProcessAttributes,   lpThreadAttributes:   PSecurityAttributes;
           bInheritHandles:   BOOL;   dwCreationFlags:   DWORD;   lpEnvironment:   Pointer;
           lpCurrentDirectory:   PChar;   const   lpStartupInfo:   TStartupInfo;
           var   lpProcessInformation:   TProcessInformation):   BOOL;   stdcall;
     TCreateProcessA   =   function(lpApplicationName:   PAnsiChar;   lpCommandLine:   PAnsiChar;
           lpProcessAttributes,   lpThreadAttributes:   PSecurityAttributes;
           bInheritHandles:   BOOL;   dwCreationFlags:   DWORD;   lpEnvironment:   Pointer;
           lpCurrentDirectory:   PAnsiChar;   const   lpStartupInfo:   TStartupInfo;
           var   lpProcessInformation:   TProcessInformation):   BOOL;   stdcall;
     TCreateProcessW   =   function(lpApplicationName:   PWideChar;   lpCommandLine:   PWideChar;
           lpProcessAttributes,   lpThreadAttributes:   PSecurityAttributes;
           bInheritHandles:   BOOL;   dwCreationFlags:   DWORD;   lpEnvironment:   Pointer;
           lpCurrentDirectory:   PWideChar;   const   lpStartupInfo:   TStartupInfo;
           var   lpProcessInformation:   TProcessInformation):   BOOL;   stdcall;