急。怎样删除一个有文件的目录，

[saien]

怎样删除一个有文件的目录

[ly_liuyang]

用API SHFileOperation是最好的，上面已经是正确的了，可以结帖了

[Billy_Chen28]

删除目录：

function DelDirectory(const Source:string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_DELETE;
pFrom := PChar(source+#0);
pTo := #0#0;
fFlags := FOF_NOCONFIRMATION+FOF_SILENT;
end;
Result := (SHFileOperation(fo) = 0);
end;