Dinamy Link Libary (dll) içindeki fonksiyonları listeleme örneği
Kullanımı :
procedure DllListFunctions(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;
Kullanımı :
List: TStrings; i: Integer; s: string; begin List := TStringList.Create; try ListDLLExports('Ornek_DLL.dll', List); ShowMessage(IntToStr(list.Count) + ' Fonksiyon Sayısı'); s := 'Fonksiyon Listesi :'; for i := 0 to List.Count - 1 do Memo1.Lines.Add(List[i]); finally List.Free end;