在Delphi中如何使用CreateDir和RemoveDir函数来创建和删除目录？请提供示例代码。

在Delphi中进行目录管理时，CreateDir和RemoveDir函数是基础且重要的工具。CreateDir用于创建新的目录，而RemoveDir用于删除已存在的目录。以下是使用这两个函数的示例代码：

参考资源链接：[Delphi文件操作指南：删除、创建与管理](https://wenku.csdn.net/doc/3h5tewvie3?spm=1055.2569.3001.10343)

首先，我们来创建一个新目录。为了确保目录创建成功，我们可以在创建前使用DirectoryExists函数检查目录是否已经存在：

function CreateNewDirectory(const DirName: string): Boolean;
begin
  if DirectoryExists(DirName) then
  begin
    // 目录已存在，返回false
    Result := False;
  end
  else
  begin
    // 创建目录
    Result := CreateDir(DirName);
    if not Result then
      // 如果创建失败，输出错误信息
      Writeln('无法创建目录：' + DirName);
  end;
end;

接着，我们来删除一个目录。同样地，为了安全起见，我们可以通过RemoveDir函数检查目录是否存在，以及是否为空：

function DeleteDirectory(const DirName: string): Boolean;
begin
  if DirectoryExists(DirName) then
  begin
    // 如果目录存在，尝试删除
    if RemoveDir(DirName) then
      // 删除成功
      Result := True
    else
      // 删除失败，输出错误信息
      Result := False;
  end
  else
    // 目录不存在，返回false
    Result := False;
end;

在这两个示例中，我们首先调用DirectoryExists函数来检查目录是否存在，以避免不必要的错误。如果目录不存在，CreateDir会创建新目录；如果目录存在且为空，RemoveDir则会删除目录。需要注意的是，如果目录中有文件或子目录，RemoveDir可能无法删除目录，除非使用`RemoveDir(PChar(DirName), true)`来递归删除。在实际应用中，应当根据需要选择合适的函数重载。

以上示例代码来自《Delphi文件操作指南：删除、创建与管理》，这本书详细介绍了这些函数的具体使用方法，并通过示例代码展示了如何在Delphi中高效地进行文件和目录管理。通过阅读并实践本书中的内容，你可以更加熟练地处理文件和目录操作相关的编程任务。

参考资源链接：[Delphi文件操作指南：删除、创建与管理](https://wenku.csdn.net/doc/3h5tewvie3?spm=1055.2569.3001.10343)