Reading Info From a Package

If you've ever wanted to find out what packages a package depends on (without using tdump.exe), or implicit units a package has or the units the package contains, then take a look at the code below.

program pdump;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Classes;

var
  RequiresList: TStrings;
  ImplicitUnits: TStrings;
  ContainsList: TStrings;

procedure PackageInfoProc(const Name: string;
                          NameType: TNameType; Flags: Byte;
                          Param: Pointer);
begin
  if NameType = ntContainsUnit then
  begin
    ContainsList.Add(Name);

    if (Flags and $10 <> 0) and (Flags and $06 = 0) then
      ImplicitUnits.Add(Name);
  end
  else if NameType = ntRequiresPackage then
    RequiresList.Add(Name);
end;

procedure WriteStrings(Strings: TStrings);
var
  Index: Integer;
begin
  for Index := 0 to Strings.Count - 1 do
    WriteLn(Strings[Index]);
end;

var
  Module: HMODULE;
  Flags: Longint;
begin
  RequiresList := TStringList.Create;
  ImplicitUnits := TStringList.Create;
  ContainsList := TStringList.Create;

  Module := LoadPackage(ParamStr(1));

  try
    if Module <> 0 then
    begin
      GetPackageInfo(Module, nil, Flags, PackageInfoProc);

      WriteLn('Requires List');
      WriteStrings(RequiresList);
      WriteLn(#13#10 + 'Implicit Uses');
      WriteStrings(ImplicitUnits);
      WriteLn(#13#10 + 'Contains List');
      WriteStrings(ContainsList);
    end;
  finally
    UnloadPackage(Module);
    RequiresList.Free;
    ImplicitUnits.Free;
    ContainsList.Free;
  end;
end.