文件磁盘相关函数[8]-删除文件夹 RemoveDir; RemoveDirectory

代码如下：

procedure TForm1.N13Click(Sender: TObject); //删除文件夹 RemoveDir; RemoveDirectory
var
  dir: string;
  Bool: Boolean;
begin
  dir := 'f:\test';
  bool:=RemoveDir(dir);  //返回 Boolean
  if Bool then
  ShowMessage('删除文件夹成功')
  else
  ShowMessage('删除文件夹失败');

  //或者用系统 API:
  //RemoveDirectory(PChar(dir));  //返回 Boolean
end;

 

下面进行函数分析：

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