The current path of the current path in the application, the current path in COM

ExtractFilePath () Function Return Value Finally Contains "/" / Application Current Path / ExtractFilePath (paramstr (0)) ExtractFilePath (Application.exename) / Current Path / .... .... tcustommg = Class (TTYPEDCOMOBJECT, ICustommg) Function TCUSTOMMG.GETXMLPATH: STRING; VAR XMLPATH: STRING; S: Array [0..255] of char; begin result: = '; getModuleFileName (Hinstance, S, Length (s)); xmlpath: = extractfilepath S); Result: = xmlpath;