RemoveDir只能删除该目录下没有文件,也没有下级目录。
网上找的一函数,有文件有下级目录都可以删除
function DelDirectory(const ADirectory :string):Boolean;
var
fo :TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(ADirectory + #0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;