Namen der PE-Sections erhalten

[Metal_Snake2]

Hi,
also ich würde gerne wissen wie ich den namen der PE-Sections wie z.B in PEID erhlaten kann,
es gibt sogat ein Projekt der Jedis welches opensources ist...jedoch versteh ich es nicht ganz.

Algemeine PE Informarionen lese ich volgendermaßen aus:

Delphi-Quellcode:

var
  OFS            : TOFStruct;
  FHandle        : HFILE;
  DosHeader      : TImageDosHeader;
  ImageNtHeaders : PImageNtHeaders;
  ImageSections  : PImageSectionHeader;
  dwTemp         : DWORD;
  EP             : Integer;
  FirstSectionName: String;
begin

  FHandle:= OpenFile(PChar(FilePath), OFS, OF_READ);
  if (FHandle = INVALID_HANDLE_VALUE) then
      Exit;

  ReadFile(FHandle, DosHeader, SizeOf(DosHeader), dwTemp, nil);
  SetFilePointer(FHandle, DosHeader._lfanew, nil, FILE_BEGIN);
  ReadFile(FHandle, ImageNtHeaders, SizeOf(ImageNtHeaders), dwTemp, nil);
 // ReadFile(FHandle, ImageSections, SizeOf(ImageSections), dwTemp, nil);


  EP:= ImageNtHeaders.OptionalHeader.AddressOfEntryPoint;

  Closehandle(FHandle);
end;

Sicherlich kann ich was mit PImageSectionHeader anfangen, nur wie?

Danke für antwort(en)!

[Metal_Snake2]

also ich habe jetzt volgendes gemacht:

Delphi-Quellcode:

type
  TImageSectionHeader = packed record
    Name: array[0..7] of Char;
    VirtualSize: DWORD;
    VirtualAddress: DWORD;
    PhysicalSize: DWORD;
    PhysicalOffset: DWORD;
    PointerToRelocations: DWORD;
    PointerToLinenumbers: DWORD;
    NumberOfRelocations: WORD;
    NumberOfLinenumbers: WORD;
    Characteristics: DWORD;
  end;

[...]

for i := 0 to  ImageNtHeaders.FileHeader.NumberOfSections do
  begin
    Memo1.Lines.Add(SectionHeader.Name[i]);
end;

..das Problem ist das ich hiermit immer nur den namen der ersten section erhalte.
Und dan komischerweise volgendermaßen z.B.:
c
o
d
e

Wie kann ich jetzt den namen der anderen Sections erhalten?