Получить экспортируемые из DLL функции

[Memfis1992]

Как можно это сделать средствами дельфи???

[XerSon]

Сообщение от Memfis1992

Как можно это сделать средствами дельфи???

Декомпиляцией! И то не всегда... В итоге не как!

[p51x]

Декомпиляцией!

Ему не код их нужен, а список.

HMODULE lib = LoadLibraryEx("library.dll", NULL, DONT_RESOLVE_DLL_REFERENCES);
assert(((PIMAGE_DOS_HEADER)lib)->e_magic == IMAGE_DOS_SIGNATURE);
PIMAGE_NT_HEADERS header = (BYTE *)lib + ((PIMAGE_DOS_HEADER)lib)->e_lfanew;
assert(header->Signature == IMAGE_NT_SIGNATURE);
assert(header->OptionalHeader.NumberOfRvaAndSizes > 0);
PIMAGE_EXPORT_DIRECTORY exports = (BYTE *)lib + header->
    OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT].VirtualAddress;
PVOID names = (BYTE *)lib + exports->AddressOfNames;
for (int i = 0; i < exports->NumberOfNames; i++)
    printf("Export: %s\n", (BYTE *)lib + ((DWORD *)names)[i]);

http://msdn.microsoft.com/ru-ru/maga...05(en-us).aspx

[Memfis1992]

p51x,спасибо ,очень долго искал как так сделать))ещё раз спс!!!

[mihali4]

Что-то я там Дельфи не обнаружил...
Вот какой вариант есть:

uses
   ImageHlp;

 procedure ListDLLExports(const FileName: string; List: TStrings);
 type
   TDWordArray = array [0..$FFFFF] of DWORD;
 var
   imageinfo: LoadedImage;
   pExportDirectory: PImageExportDirectory;
   dirsize: Cardinal;
   pDummy: PImageSectionHeader;
   i: Cardinal;
   pNameRVAs: ^TDWordArray;
   Name: string;
 begin
   List.Clear;
   if MapAndLoad(PChar(FileName), nil, @imageinfo, True, True) then
   begin
     try
       pExportDirectory := ImageDirectoryEntryToData(imageinfo.MappedAddress,
         False, IMAGE_DIRECTORY_ENTRY_EXPORT, dirsize);
       if (pExportDirectory <> nil) then
       begin
         pNameRVAs := ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
           DWORD(pExportDirectory^.AddressOfNames), pDummy);
         for i := 0 to pExportDirectory^.NumberOfNames - 1 do
         begin
           Name := PChar(ImageRvaToVa(imageinfo.FileHeader, imageinfo.MappedAddress,
             pNameRVAs^[i], pDummy));
           List.Add(Name);
         end;
       end;
     finally
       UnMapAndLoad(@imageinfo);
     end;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   List: TStrings;
   i: Integer;
   s: string;
 begin
   List := TStringList.Create;
   try
     ListDLLExports('C:\WINDOWS\SYSTEM32\browseui.dll', List);
     ShowMessage(IntToStr(list.Count) + ' functions in dll');
     s := 'List of functions:';
     for i := 0 to List.Count - 1 do
       s := s + #13#10+List[i];
     ShowMessage(S);
   finally
     List.Free
   end;
 end;

[Memfis1992]

mihali4,мне то же так сначала показалось..но новичок поэтому сразу незаметил ничего криминального)))))Спасибо..ты реально ответил на мой вопрос..Спасибо!!!
Это наверно самый лучший сайт по Дельфи...плюс -сдесь обитаюь нормальные люди..вообщем респект вам сем..всё здорово!!!

А куда надо вот это писать???

аааа..всё понял это надо ыбло писать после ключевого слова implementation