Перехват API функций, на примере MessageBoxA

Code:

program Project2;

uses windows;

var

  sethook:procedure(flag:bool)stdcall;

  hDll:hModule;

begin

hDll:=LoadLibrary('Mouse_mes.dll');

@sethook:=GetProcAddress(hDll, 'sethook');

sethook(true);

messagebox(0,'Не закрывай, пока идет работа','',0);

sethook(false);

FreeLibrary(hDll);

end.