应用程序中当前路径的两中写法、COM中当前路径取得

///////////// 应用程序当前路径 /////////////

ExtractFilePath(paramstr(0))

ExtractFilePath(application.ExeName)

///////////// COM中当前路径 /////////////

.... ....

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;

end;