文件磁盘相关函数[10]-设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory

代码如下：

procedure TForm1.N15Click(Sender: TObject);
//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory
var
  dir: string;
begin
  dir := 'f:\test';
  if SetCurrentDir(dir) then
    ShowMessage('当前文件夹是' + GetCurrentDir)
  else
    ShowMessage('设置失败');

  //或者
  //ChDir(dir);  //无返回值

  //也可以使用API:
  //SetCurrentDirectory(PChar(Dir));  //返回 Boolean
end;

 

下面进行函数分析：

function SetCurrentDir(const Dir: string //文件夹路径的字符串，如'f:\test'，不含'\'
                      ): Boolean;   //返回布尔值，成功则true，否则false