Delphi GetCurrentDir 获取当前文件夹

//获取当前文件夹 GetCurrentDir
var
dir: string;
begin
dir := GetCurrentDir;
ShowMessage(dir); //C:Documents and SettingswyMy DocumentsRAD StudioProjects
end;

=============

function GetCurrentDir: string;
begin
GetDir(0, Result);
end;