delphi – 如何获取加载的运行时包列表？

这是一个非常简单的演示,说明如何使用EnumModules函数并获取所有加载的BPL的名称.它是一个控制台应用程序,但代码可以很容易地在生产应用程序中重用.如果你想测试它,请确保你正在使用包：

program Project17;

{$APPTYPE CONSOLE}

uses
  SysUtils,Classes,Windows;

function EnumModulesFunc(HInstance: Integer; Data: Pointer): Boolean;
var Buff:array[0..1023] of char;
begin
  if GetModuleFileName(HInstance,@Buff,SizeOf(Buff)) = ERROR_INSUFFICIENT_BUFFER then
    Buff[High(Buff)] := #0;
  TStringList(Data).Add(Buff);
end;

var L: TStringList;

begin
  try
    L := TStringList.Create;
    try
      System.EnumModules(EnumModulesFunc,L);
      WriteLn(L.Text);
    finally L.Free;
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName,': ',E.Message);
  end;
end.