求删除目录的问题~

Question

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

Answer 1

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

Answer 2

http://baike.baidu.com/view/1719618.htm
函数参考

Answer 3

呵呵，你没看我贴出的地址吗？里面说的很详细了。
FOF_NOCONFIRMATION 不弹出提示