请教C的GetModelHandle在delphi中怎么实现

请问C的GetModelHandle在delphi中如何实现
引用链接:   http://bbs.pediy.com/showthread.php?threadid=37353
HANDLE   WINAPI   MyGetCurrentProcess(VOID)//替换掉原来的GetCurrentProcess
{  
      HMODLE   hMod=GetModelHandle( "npggNT.des ");
      if(hMod!=NULL){
            FreeLibrary(hMod);             //直接Free掉它
      }
      UnhookGetCurrentProcess();   //是我们要保护的线程调用就恢复函数头
      HANDLE   hProcess=GetCurrentProcess();//让它调用
      RehookGetCurrentProcess();//重新挂钩
      return   hProcess;       //返回调用结果
}
delphi好象没有GetModelHandle？请问上面代码中的GetModelHandle()在delphi中如何实现？

[解决办法]
hInstance
[解决办法]
GetModuleHandle在DELPH中的Windows.pas中已经声明过了。