如何删除一个目录（非空），望大虾们赐教！！！

Question

{在uses中加shellapi}删除：
RemoveDirectory(目录名):   {返回值为boolean}

Answer 1

楼上说的不对，应该是function DeletedirWithUndo(
   sdirName : string )
   : boolean;
var
  fos : TSHFileOpStruct;
begin
  FillChar( fos, SizeOf( fos ), 0 );
  with fos do
  begin
    wFunc := FO_DELETE;
    pFrom := PChar( sdirName );
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  Result := ( 0 = ShFileOperation( fos ) );
end;//调用
DeletedirWithUndo(目录名)； //将该目录移入回收站