GetDLLEntryPoint Example

Structure ModuleInfo
  lpBaseOfDll.l
  SizeOfImage.l
  EntryPoint.l
EndStructure

Procedure GetDLLEntryPoint(sDLLNameHandle.s)
  Protected lReturn.l
  Dim ModuleInfo.ModuleInfo(1)
  OpenLibrary(0,"PSAPI.DLL")
  CallFunction(0,"GetModuleInformation",GetCurrentProcess_(),GetModuleHandle_(sDLLNameHandle),@ModuleInfo(),SizeOf(ModuleInfo))
  CloseLibrary(0)
  lReturn = ModuleInfo(0)\EntryPoint
  FreeArray(ModuleInfo())
  ProcedureReturn lReturn
EndProcedure

ProcedureDLL AttachProcess(Instance)
  OpenConsole()
  lEntryPoint.l = GetDLLEntryPoint("d3d9.dll")
  PrintN("d3d9.dll EntryPoint : "+Hex(lEntryPoint))
  Input()
  CloseConsole()
EndProcedure