Решил для себя написать небольшую прогу по получению инфы из PE-заголовка процессов(потом еще и под файлы сделаю наверно), но с извлечением инфы о типе импорта функции(индекс или имя) что то не получается. Вот код:

Код

ImageThunkData:=PImageThunkData(DWORD(ImageImportDescriptor.FirstThunk)+ImageBase); SubNode2:=AddChild(SubNode, 'Functions'); while ImageThunkData.Ordinal<>0 do     begin              if (ImageThunkData.Ordinal shr 31) = 1 then       begin        SubNode3:=AddChild(SubNode2, 'Импорт по индексу);        AddChild(SubNode3, Format('Ordinal- $%x',[ImageThunkData.Ordinal]));       end      else       begin        SubNode3:=AddChild(SubNode2, 'Импорт по имени);        ImageImportByName:=PImageImportByName(DWORD(ImageThunkData.AddressOfData)+ImageBase);        AddChild(SubNode3, Format('Hint - $%x',[ImageImportByName.Hint]));//Тут происходит Access Violetion        ....       end;

Всем ответившим заранее спасибо

Не ужели ни кто не делал подобного В чем моя ошибка с IMAGE_IMPORT_BY_NAME ?

У меня тоже была такая проблема. В конце пришел к выводу, что неправильно вычислял адреса (RVA -> VA), хотя вроде

формула простая... Ты кстати не знаешь как правильно вычислять ? Я делал так:
VA := RVA + <адрес файла в памяти>;
или
VA := RVA + <адрес файла в памяти> + ImageOptionalHeader.ImageBase;
Но так не работет...

Вот работающий пример кода (на основе твоего куска):

Код

procedure TForm1.Button3Click(Sender: TObject); var  hFile, hMap : THandle;  iid : PIMAGE_IMPORT_DESCRIPTOR;  itd : PImageThunkData;  iibn : PImageImportByName;  Image : pointer;  ImageAdr : cardinal absolute Image;  ifh : PImageFileHeader;  ioh : PImageOptionalHeader32;  nthdrs : PIMAGE_NT_HEADERS;  DirSize : cardinal;  Dir : pointer;  function va(rva : cardinal) : cardinal;  var    LastSection : PImageSectionHeader;  begin    LastSection := nil;    Result := cardinal(ImageRvaToVa(nthdrs, Image, rva, LastSection));  end; begin  hFile := CreateFile (PChar(<имя файла>), GENERIC_READ, FILE_SHARE_READ+FILE_SHARE_WRITE,                       nil, OPEN_EXISTING, 0, 0);  hMap := CreateFileMapping(hFile, nil, PAGE_READONLY, 0, 0, nil);  Image := MapViewOfFile(hMap, FILE_MAP_READ, 0, 0, 0);  nthdrs := ImageNTHeader(Image);  ifh := @nthdrs^.FileHeader;  ioh := @nthdrs^.OptionalHeader;  dir := ImageDirectoryEntryToData (Image, FALSE, IMAGE_DIRECTORY_ENTRY_IMPORT, DirSize);  iid := PIMAGE_IMPORT_DESCRIPTOR(dir);  itd := PImageThunkData(va(cardinal(iid.FirstThunk)));  while itd.Ordinal<>0 do  begin    if (itd.Ordinal shr 31) = 1 then    begin      listbox1.items.add('index:' + inttostr(itd.Ordinal));    end    else    begin      iibn := PImageImportByName(va(cardinal(itd.AddressOfData)));      listbox1.Items.add('name:' + PChar(@iibn.Name) + ' ' + inttostr(iibn.hint));    end;    inc(cardinal(itd), sizeof(itd^));  end; end;

Как видишь, ничем не отличается от твоей версии, кроме того, что к RVA не прибавляется ImageBase, а вызывается функция ImageRvaToVa...