function MyLoadLibraryA(
 pszModuleName: pChar
 ): HMODULE; stdcall;
begin
 sm_pInstance.funcEvent.ResetEvent;
  // debug
 sm_pInstance.funcEvent.CurFuncName := 'MyLoadLibraryA';
 //

 try
  Result := LoadLibraryA(pszModuleName);
   TModuleScope(sm_pModuleScope).LogMessage(pChar('Подгружена библиотека :' + pszModuleName));
  TApiHookMgr.HackModuleOnLoad(Result, 0);
 finally
   sm_pInstance.funcEvent.setEvent;
 end
end;

class procedure TApiHookMgr.HackModuleOnLoad(hmod: HMODULE; dwFlags: Cardinal);
var
 lockMgr : TLockMgr;
 i       : Integer;
 Hook    : THookedFunction;
begin
// Если был загружен новый модуль то тоже вставим перехватчик
if ((hmod <> 0) and ((dwFlags and LOAD_LIBRARY_AS_DATAFILE) = 0)) then
begin
 lockMgr := TLockMgr.Create(sm_CritSec, TRUE);
   try
   for i := 0 to sm_pHookedFunctions.Count - 1 do
     begin
       Hook := sm_pHookedFunctions[i];
    Hook.ReplaceInOneModule(
     Hook.CalleeModName,
     Hook.pfnOrig,
     Hook.pfnHook,
     hmod
     );
   end; // for
   finally
     lockMgr.Free;
   end;
end // if
end;

function MyGetProcAddress(hModule: HMODULE; lpProcName: LPCSTR): FARPROC; stdcall;
var
 lockMgr  : TLockMgr;
 pfn      : pointer;
 FuncHook : THookedFunction;
begin
  sm_pInstance.funcEvent.ResetEvent;
  // debug
 sm_pInstance.funcEvent.CurFuncName := 'MyGetProcAddress';
 //

 try

   lockMgr := TLockMgr.Create(sm_CritSec, TRUE);
   try
     // получение оргинального адресса функции
     pfn := Pointer(TApiHookMgr.GetProcAddressWindows(hModule, lpProcName));
     //  попытка найти если функция была сломана
     FuncHook :=
       sm_pHookedFunctions.GetHookedFunction(
         hModule,
         lpProcName
         );

     if (nil <> FuncHook) then
       // возаращаем адрес перехваченной функции
       pfn := FuncHook.pfnHook;
     Result := pfn;
   finally
     lockMgr.Free;
   end;
 finally
   sm_pInstance.funcEvent.setEvent;
 end;

 TModuleScope(sm_pModuleScope).LogMessage(pChar('В библиотеке :' + GetModuleName(hModule) +
                                                ' запрошена функция :'+ lpProcName));

end;