Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Вниз

Повторение данных в 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.008 c
1-58617
Jacob
2003-09-04 21:52
2003.09.18
Может ли глючить TFileListBox?


14-58834
Knight
2003-08-31 22:49
2003.09.18
Просто пара вопросов... чё-то в голову стукнуло :)


3-58539
Виктор
2003-08-27 14:36
2003.09.18
QReport


14-58839
Jeer
2003-09-01 10:25
2003.09.18
Всех учащихся с новым учебным годом


1-58663
Konsul
2003-09-04 15:31
2003.09.18
Канва на TImage





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский