请问C的GetModelHandle在delphi中如何实现

Question

引用链接: 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中如何实现？

Answer 1

GetModuleHandle在DELPH中的Windows.pas中已经声明过了。