从BPL中,是否可以获得自己的文件名?例如C:\ FOO \ bar.bpl
(动态加载和delphi7,如果重要的话)
答案 0 :(得分:8)
致电GetModuleFileName
。对于模块句柄,请使用SysInit.HInstance
。传递零将为您提供主机EXE的文件名,也称为ParamStr(0)
。
答案 1 :(得分:1)
使用GetModuleFileName的示例:
function DLLFileName : string;
begin
SetLength(Result,MAX_PATH);
GetModuleFileName(HInstance,PCHar(Result),MAX_PATH);
SetLength(Result,StrLen(PChar(Result)));
end;