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

ExtractFilePath（）函数返回值最后包含 "\"

///////////// 应用程序当前路径  /////////////
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;