应用程序中当前路径的两中写法、COM中当前路径取得
2016-02-19 13:20
有一种朋友不在生活里，却在生命力；有一种陪伴不在身边，却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗？话不多说下面就和大家分享应用程序中当前路径的两中写法、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;
