获取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;