Prog um DLL Funktionen auszulesen

[Delphi-Noobie]

Code:

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;