Obtenir le nom de fichier BPL

Question

A partir d'un BPL, est-il possible d'obtenir son propre nom de fichier? par exemple. C: \ foo \ bar.bpl

(dynamiquement chargé et Delphi7, si elle importe)

Answer 1

Appel GetModuleFileName. Pour le handle de module, utilisez SysInit.HInstance. Passer à zéro vous donnera le nom de fichier de l'hôte EXE à la place, également connu sous le nom ParamStr(0).

Answer 2

utilisation de l'exemple de GetModuleFileName:

function DLLFileName : string; 
begin 
    SetLength(Result,MAX_PATH); 
    GetModuleFileName(HInstance,PCHar(Result),MAX_PATH); 
    SetLength(Result,StrLen(PChar(Result))); 
end;