请问怎么得到当前目录?

Question

谢谢

Answer 1

路径：=extractfilepath(paramstr(0));

Answer 2

GetCurrentDir()或ExtractfileDir(Application.ExeName)再或extractfilepath(paramstr(0))都行。

Answer 3

ExtractFilePath(FileName:String)
该函数返回路径名，其结尾字符总是“\” 
ExtractFileDir(FileName:String)
该函数同样返回路径名，但不包括结尾的字符“\”，除非返回的路径是根目录。

Answer 4

var s:string;
begin
  getdir(0,s);
  showmessage(s);
end;

Answer 5

function ExeOrDllPath: string;
var
  Path: array[0..MAX_PATH - 1] of Char;
begin
  if IsLibrary then
    SetString(Result, Path, GetModuleFileName(HInstance, Path, SizeOf(Path)))
  else
    Result := ParamStr(0);
end;