求删除目录的有关问题

求删除目录的问题~
遍历A文件夹，把下面的文件都加入了TreeView，然后删除这个文件夹，可是这个A文件夹就删除不了
是文件被占用了吗？有什么方法可以删除啊？

[解决办法]

Delphi(Pascal) code

var  fo: TSHFileOpStruct;begin  fo.Wnd := Handle;  fo.wFunc := FO_DELETE;  fo.pFrom := 'C:\test\' + #0;  SHFileOperation(fo);