Reading Info From a Package Part II

Yesterday I posted a small program to read some information from a Package. There is more information to get from the package, so here is and updated version with a bit of information you get get from the Flags. Specifically Never Build, Design Only and Run Only.

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);

      if (Flags and pfNeverBuild) <> 0 then
        WriteLn('Never Build');

      if (Flags and pfDesignOnly) <> 0 then
        WriteLn('Design Only');

      if (Flags and pfRunOnly) <> 0 then
        WriteLn('Run Only');

      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.