delphi 删除文件夹

直接在uses shellapi之后，调用SHMyDelDirectory去删除你的目录bai.
function SHMyDelDirectory(const Source: string): boolean;
var
fo: TSHFILEOPSTRUCT;
beginFillChar(fo, SizeOf(fo), 0);with fo dobeginWnd := 0;wFunc := FO_Delete;pFrom := PChar(Source + #0);pTo := #0#0;fFlags := FOF_NOCONFIRMATION + FOF_SILENT;end;
Result := (SHFileOperation(fo) = 0);
end;