ImageDirectoryEntryToData()

[Czerskowski]

Ich möchte gerne die Module einer PE-Datei auslesen. Dies
möchte ich mit ImageDirectoryEntryToData() bewerkstelligen.

Leider bekomme ich immer einen Fehler, dass eine
EAccessViolation auftritt.

Hier mal mein Code:

Delphi-Quellcode:

type PIMAGE_IMPORT_DESCRIPTOR = record
    OriginalFirstThunk: DWORD;
    TimeDateStamp: DWORD;
    ForwarderChain: DWORD;
    Name: DWORD;
    FirstThunk: DWORD;
end;

procedure StartUp();
var
hCaller: HMODULE;
ImportDesc: ^PIMAGE_IMPORT_DESCRIPTOR;
szModName: PCHAR;
nSize: ULONG;
begin
hCaller := GetModuleHandle('Project1.exe');
ImportDesc := ImageDirectoryEntryToData(@hCaller,true,IMAGE_DIRECTORY_ENTRY_IMPORT, nSize);
while ImportDesc.Name <> 0 do 
   begin
      //Mach was.
   end;
end;

Immer wenn ich zugriff auf die Structur haben will kommt diese Exception.
Zum besseren verständnis: Das Programm ist eine DLL die injiziert werden soll.

Danke für Hilfe!

[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;

[Czerskowski]

Ich danke dir, das war der Fehler.