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

Question

我正在为我的应用程序创建一个"版本信息"对话框; 类似于Delphi在"关于"对话框中的内容.我想只显示运行时包(.BPL文件)的版本信息,而不是所有加载的DLL.RTLinclude函数是否可以获取已加载包的列表,或者我必须使用该EnumProcessModules函数并过滤结果？

提前致谢...

Answer 1

您可以使用EnumModules函数System.

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

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.