文件磁盘相关函数[9]-获取当前文件夹 GetCurrentDir

代码如下：

procedure TForm1.N14Click(Sender: TObject);
//获取当前文件夹 GetCurrentDir
var
  dir: string;
begin
  dir := GetCurrentDir;
  ShowMessage(dir);
end;

 

下面进行函数分析：

//此函数只有返回当前文件夹的字符串，没什么参数，在这我就不多说了，呵呵