Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

Повторение данных в IMAGE_DIRECTORY_ENTRY_IMPORT   Найти похожие ветки 

 
Spawn ©   (2003-07-05 15:55) [0]

Почему при просмотре таблицы импорта находящиеся там данные повторяются? Вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
ImageDosHeader:PImageDosHeader;
ImageNtHeaders:PImageNtHeaders;
ImageDataDirectory:TImageDataDirectory;
ImportDesc: PImageImportDescriptor;
Base:Cardinal;
begin
Base:=GetModuleHandle(nil);
ImageDosHeader:=PImageDosHeader(Base);
ImageNtHeaders:=PImageNtHeaders(Base+ImageDosHeader^._lfanew);
ImageDataDirectory:=ImageNtHeaders.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_IMPORT];
if ImageDataDirectory.VirtualAddress = 0 then
Exit;
ImportDesc:=PImageImportDescriptor(Base+ImageDataDirectory.VirtualAddress);

while ImportDesc^.Name<>0 do
begin
ShowMessage(PChar(Base) + ImportDesc^.Name);
Inc(ImportDesc);
end;
end;


Результат данного кода будет такой:
kernel32.dll
user32.dll
advapi32.dll
oleaut32.dll
kernel32.dll
advapi32.dll
kernel32.dll
version.dll
gdi32.dll
user32.dll
kernel32.dll
oleaut32.dll
comctrl32.dll

Заранее спасибо


 
AlexRush ©   (2003-07-07 10:50) [1]

Потому что так сгенерировал линкер. Посмотри подопытный PE-файл с помошью TDUMP.



Страницы: 1 вся ветка

Текущий архив: 2003.09.18;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
8-58789
Still Swamp
2003-05-20 15:00
2003.09.18
mciSendCommand в в трэде косячит.


14-58865
VolanD
2003-08-30 16:06
2003.09.18
Remote Control 3.0


7-58937
Spawn
2003-07-05 12:01
2003.09.18
Изучаю PE заголовок...


4-58964
Manticore
2003-07-17 00:14
2003.09.18
Реализация панели инструментов на АПИ


3-58576
ShadowSmart
2003-08-27 09:39
2003.09.18
TQuery как источник данных для запроса