Dll i eksportowe procedury (juz znalazlem )

0

Wiem len ze mnie(nie szukalem w zasobach 4p), ale prosze o jakies podpowiedzi w jaki sposob wydobyc procedury z dll'a.

// dopisane
ale w delphi jak

0

Szybki podgląd w starszych windowsach :P

Dopisane: Poszukaj w WinAPI :P

0

juz znalazlem procedurke

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1