Delphi 删除目录

Delphi里面的目录删除函数，删除不了目录下含有子目录或者文件的目录，请参考如下。

if(TDirectory.Exists('c:\wmp')) then
    ShellExecute(0,nil,'cmd.exe','/c rd c:\wmp /s /q',nil,SW_HIDE);

用的是powershell也就是之前的dos命令