delphi deletedir用法

2024年4月17日发(作者：)

delphi deletedir用法

Delphi 中使用 `Deletedir` 函数可以删除指定目录及其下的所有文件和子目

录。以下是 `Deletedir` 函数的用法：

```pascal

function Deletedir(const DirName: string): Boolean;

var

SearchRec: TSearchRec;

Path: string;

begin

Result := False;

Path := IncludeTrailingPathDelimiter(DirName);

if FindFirst(Path + '*.', faAnyFile, SearchRec) = 0 then try

repeat

if ( and faDirectory) <> 0 then begin

if CompareText(, '.') <> 0 then

Deletedir(Path + );

end;

if ( and faFile) <> 0 then

DeleteFile(Path + );

until FindNext(SearchRec) <> 0;

Result := True;

finally

FindClose(SearchRec);

end;

end;

```

该函数接受一个参数 `DirName`，表示要删除的目录的名称。函数会遍历目录下

的所有文件和子目录，并删除它们。如果要删除的目录下存在非空目录，则函数

会递归地调用自身来删除这些非空目录及其下的所有文件和子目录。如果要删除

1

的目录下存在文件，则函数会直接删除这些文件。

函数返回一个布尔值，表示是否成功删除了目录及其下的所有文件和子目录。如

果成功删除了目录，则返回 `True`；否则返回 `False`。

2