如何获得当前目录

Question

如果要得到系统的当前目录使用Path := GetCurrentDir;
如果要得到程序的当前目录使用Path := ExtractFilePath( Application.ExeName );没有直接的非模式消息框，有两种方式可以解决：
1、自己写（建议）
2、调用Windows API中的SetWindowLong修改MessageBox窗口的属性（不建议）

Answer 1

用TApplication.ExeName属性
ExtractFileName()取文件名
ExtractFilePath()取全路径
ExtractFileExt()取扩展名
取路径后做字符操作，取目录！

Answer 2

ExtractFilePath(Application.ExeName ）

Answer 3

ExtractFilePath(application.ExeName+ExtractFileExt(application.exename))

Answer 4

取当前系统目录
procedure TForm1.Button1Click(Sender: TObject);
var
abc:array[0..255] of char;
begin
GetCurrentDirectory(255,@abc);
showmessage(abc);
end;取得当前程序目录
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(ExtractFilePath(Application.ExeName));
end;祝：身体健康！

Answer 5

GetCurrentDir(长度，存放位置（数组）)