请问在Delphi中如何获得当前路径?

请问在Delphi中如何获得当前路径?谢谢高手指点!!!

解决方案 »

  1.   

    str:=GetCurrentDir();
    如果要得到系统的当前目录使用Path := GetCurrentDir;
    如果要得到程序的当前目录使用Path := ExtractFilePath( Application.ExeName );
      

  2.   

    从文件名中得到路径名，可用下面的两个函数，这两个函数有一点点微小的差别：　　ExtractFilePath(FileName:String) 该函数返回路径名，其结尾字符总是“\” 　　ExtractFileDir(FileName:String) 该函数同样返回路径名，但不包括结尾的字符“\”，除非返回的路径是根目录。　如:
    procedure TForm1.Button1Click(Sender: TObject); 
    　　begin 
    　　ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp 
    　　ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\ 　　
    　　end;　
      

  3.   

    不错不错。其实准确的
     extractfiledir：从绝对文件名中获取目录名；
     extractfilepath：从绝对文件名获取路径名；
    目录名和路径名当然一个有“\”，一个没有“\”了。^_^
      

  4.   

    ExtractFilePath( Application.ExeName );
      

  5.   

    获取系统目录呢？？？？
    就是winnt\system32!!怎么获得？
      

  6.   

    可以用GetSystemDirectory()Api函数