gracias por responder escafandra.
despues de mucho buscar lo mas parecido que encontre fue esto :
Código Delphi
[-]
uses
ImageHlp;
procedure LoadedDLLExportsFunc(aFileName: string; aList: tStrings);
type
PDWORDArray = ^TDWORDArray;
TDWORDArray = array[0..0] of DWORD;
var
imageinfo: LoadedImage;
pExportDirectory: PImageExportDirectory;
dirsize: Cardinal;
pDummy: PImageSectionHeader;
i: Cardinal;
pNameRVAs: PDWORDArray;
Name: string;
begin
imageinfo.MappedAddress := PChar(GetModuleHandle(@aFileName[1]));
if Assigned(imageinfo.MappedAddress) then
try
imageinfo.FileHeader := ImageNtHeader(imageinfo.MappedAddress);
pExportDirectory := ImageDirectoryEntryToData(imageinfo.MappedAddress,
True, IMAGE_DIRECTORY_ENTRY_EXPORT, dirsize);
if (pExportDirectory <> nil) then
begin
try
pNameRVAs := PDWORDArray(PChar(imageinfo.MappedAddress) + DWORD(pExportDirectory^.AddressOfNames));
except
aList.Add('ERROR: #' + IntToStr(GetLastError));
end;
for i := 0 to pExportDirectory^.NumberOfNames - 1 do
aList.Add(PChar(imageinfo.MappedAddress) + pNameRVAs^[i]);
end;
finally
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadedDLLExportsFunc('ntdll.dll', Listbox1.Items);
end;
lo eh probado en Windows Seven 64 bits y no funciona con ninguna dll , ¿ alguien le funciona este codigo ?