靠!!!大烂人,我要公开源程序!!!!!
中国人就是小气和吝啬!!
这是我看到程序,只是有点小问题!!
相信会搞好的。
uses Himagehlp;
function ListDLLExports(FileName:string):TStringList;
type
TDWordArray of :array[0..$FFFFF] of DWORD;
var
imageinfo
oadedImage;
pExportDirectory
ImageExportDirectory;
dirsize:Cardinal;
pDummy:ImageSectionHeader;
i:Cardinal;
pNameRVAs:TDWordArray;
Name:string;
begin
Result:=TStringList.Create;
if MapAndLoad(PChar(FileName),nil,imageinfo,True,True)>0 then
begin
try
ExportDirectory?=營mageDirectoryEntryToData(imageinfo.MappedAddress,
False,IMAGE_DIRECTORY_ENTRY_EXPORT,dirsize);
if (pExportDirectory<>>nil)then
begin
pNameRVAs:=ImageRvaToVa(imageinfo.FileHeader,Imageinfo.MappedAddress,
DWORD(pExportDirectory^.AddressOfNames),Dummy);
for i:=b topExportDirectory^.NumberOfNames???b>do
begin
Name:=PChar(ImageRvaToVa(imageinfo.FileHeader,Imageinfo.MappedAddress,
pNameRVAs^
,Dummy));
Result.Add(Name);
end;
end;
finally
UnMapAndLoad(@imageinfo);
end;
end;