Wie ermittelt man welche Komponenten in einem Package sind?

[MaBuSE]

Hallo,
ich würde gerne zur Laufzeit wissen welche Komponenten in dem Package xyz.bpl enthalten sind.
Die Info ob das ein Runtime-, Designtime-Package oder Beides ist wär auch nicht schlecht.

Wenn ein Package in Delphi geladen wird (Menu -> Komponenten -> Packages installieren) kann man mit dem Komponenten Button sehen welche Komponenten in diesem Package sind.
Genau das will ich auch in meinem Programm haben !!!

An die Beschreibung und die Units des Package kommt man relativ leicht mit getPackageInfo.

Kann mir jemand helfen?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure cbprocPackageInfo(const Name: string; NameType: TNameType; Flags: Byte; Param: Pointer);
var
  s: string;
begin
  // CallbackFunktion von GetPackageInfo
  case NameType of
    ntContainsUnit    : s := 'Unit: ';
    ntRequiresPackage : s := 'benötigt Package: ';
    ntDcpBpiName      : s := 'PackageName: ';
  end;
  Form1.Memo1.Lines.Add('  Flags: ' + IntToHex(Flags, 2) + ' - ' +s + name);
end;

procedure GetBplInfo(FileName: string);
var
  HPack, Flags : integer;
begin
  Form1.Memo1.Lines.Add('Dateiname: '+FileName);
  Form1.Memo1.Lines.Add('  Package Name: '+GetPackageDescription(PAnsiChar(FileName)));
  HPack := LoadPackage(FileName);
  GetPackageInfo(HPack, nil, Flags, cbprocPackageInfo);
  UnloadPackage(HPack);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  getBplInfo('dclisp70.bpl');
end;

end.