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

Вниз

Получить список Экспортируемых функций   Найти похожие ветки 

 
Wind ©   (2009-05-17 20:26) [0]

Добрый день.
Подскажите пожалуйста, как получить список экспортируемых функций из dll файла ?
Возможно ли это?


 
turbouser ©   (2009-05-17 20:35) [1]

TDUMP.EXE


 
Wind ©   (2009-05-17 20:47) [2]

А программно? Есть исходники на  Delphi ? Хотя бы намек, как это сделать или куда копать?


 
palva ©   (2009-05-17 20:55) [3]

dll не экспортирует функции, dll экспортирует имена, которые могут быть адресами данных, точками входа в функцию, а возможно и абсолютными данными, а вовсе не адресами.


 
Wind ©   (2009-05-17 20:56) [4]

Спасибо сам разобрался. Нашел в инете.
Кому интересно вот Код:

Uses Imagehlp;

//..............................

function EnumSymbols(SymbolName: PChar; SymbolAddress, SymbolSize: ULONG;
 Strings: Pointer): Bool; stdcall;
begin
 TStrings(Strings).Add(SymbolName);
 Result := True;
end;

function GetImageFunctionList(const FileName: string; Strings: TStrings):
 Boolean;

var
 Handle: THandle;
 hProcess: THandle;
 VersionInfo: TOSVersionInfo;
begin
 Strings.Clear;
 Result := False;

 SymSetOptions(SYMOPT_UNDNAME or SYMOPT_DEFERRED_LOADS);

 VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo);
 if not GetVersionEx(VersionInfo) then
   Exit;

 if VersionInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
   hProcess := GetCurrentProcessId
 else
   hProcess := GetCurrentProcess;

 if not SymInitialize(hProcess, nil, True) then
   Exit;
 try
   Handle := LoadLibrary(PChar(FileName));
   if Handle = 0 then
     Exit;
   try
     if not SymLoadModule(hProcess, 0, PChar(FileName), nil, Handle, 0) then
       Exit;
     try
       if not SymEnumerateSymbols(hProcess, Handle, EnumSymbols, Strings) then
         Exit;
     finally
       SymUnloadModule(hProcess, Handle);
     end;
   finally
     FreeLibrary(Handle);
   end;
 finally
   SymCleanup(hProcess);
 end;
 Result := True;
end;


 
Игорь Шевченко ©   (2009-05-17 22:29) [5]


> dll не экспортирует функции


экспортируют...



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

Форум: "Начинающим";
Текущий архив: 2009.07.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.004 c
15-1240919561
pasha_golub
2009-04-28 15:52
2009.07.05
Плейлист боевого настроения


2-1242476766
partizan
2009-05-16 16:26
2009.07.05
Warning: FOR-Loop variable "i" may be undefined after loop


15-1241387790
Unknown user
2009-05-04 01:56
2009.07.05
Delphi и debug information


8-1194953765
Lebedev
2007-11-13 14:36
2009.07.05
Проблема с MediaPlayer.


2-1242709582
Roman88
2009-05-19 09:06
2009.07.05
ODAC в Delphi 6





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский