Получить имя файла 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;