首部 function GetCurrentDir: string; $[SysUtils.pas
功能 返回当前操作目录
说明 [注意]调用文件对话框会改变当前操作目录
参考 function System.GetDir
例子 Edit1.Text := GetCurrentDir;