获取BPL文件名

Question

从BPL中，是否可以获得自己的文件名？例如C：\ FOO \ bar.bpl

（动态加载和delphi7，如果重要的话）

Answer 1

致电GetModuleFileName。对于模块句柄，请使用SysInit.HInstance。传递零将为您提供主机EXE的文件名，也称为ParamStr(0)。

Answer 2

使用GetModuleFileName的示例：

function  DLLFileName : string;
begin
  SetLength(Result,MAX_PATH);
  GetModuleFileName(HInstance,PCHar(Result),MAX_PATH);
  SetLength(Result,StrLen(PChar(Result)));
end;