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