获取BPL文件名

Question

从BPL内部，有可能获得自己的文件名吗？例如C：\富\ 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;