综合

img LuckyJan

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

发表于2004/10/9 9:23:00  1117人阅读

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;
阅读全文
0 0

相关文章推荐

img
取 消
img