怎么样获取程序执行的当前路径呀？

Question

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;　

Answer 1

方法2：
Var
  LocalStr : String;
begin
  GetDir(0,LocalStr);
  showmessage(LocalStr);
end;

Answer 2

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

Answer 3

AppPath := ExtractFilePath(Application.EXEName)