delphi - 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;