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