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

wy6668

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中如何实现？

wctchen

hInstance

xinmozhan

GetModuleHandle?

xclzc17

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