我使用了cnfilepacker备用一个目录，再删除，但只能删全部文件，空目录删不了。是被使用中不能删。后来发现用了FindFirst，但没有用SysUtils.FindClose退出（只用FindClose不行的，window内有一个同名的FindClose参数不同）。我加了一句，问题好像解决了，希望大大们看看是不是这个问题。

感谢报告。确实如此。

我原来是改为
    if FindFirst(ADirName, faAnyFile, srec) = 0 then
     begin
       ....
      SysUtils.FindClose(srec);
     end;
但这样改以后会不会出现文件夹为空时FindClose没有执行而出现同样的问题呢，有没有改为
    if FindFirst(ADirName, faAnyFile, srec) = 0 then
     begin
       ....
     end;
      SysUtils.FindClose(srec);
的必要？由于是业余编程的现在没有时间试

[ 本帖最后由 笑天 于 2011-1-16 22:42 编辑 ]