ImageDirectoryEntryToData()

[ErazerZ]

Delphi-Quellcode:

procedure StartUp();
var
  hCaller: HMODULE;
  ImportDesc: ^PIMAGE_IMPORT_DESCRIPTOR;
  szModName: PCHAR;
  nSize: ULONG;
begin
  hCaller := GetModuleHandle('Project1.exe');
  ImportDesc := ImageDirectoryEntryToData(Pointer(hCaller),true,IMAGE_DIRECTORY_ENTRY_IMPORT, nSize);
  while ImportDesc.Name <> 0 do
  begin
    showmessage(inttohex(importdesc.FirstThunk, 8));
    Inc(ImportDesc);
  end;
end;