如何 强制 删除文件（包括系统和只读类型的文件）？

Question

如何 强制 删除 文件/文件夹（包括系统和只读类型的文件）？
不要求做到删除正在使用的文件，如果做到更好！

Answer 1

uses ShellAPI;var
  a: TSHFileOpStruct;
begin
  FillChar(a,   SizeOf(a),   0);
  a.Wnd := Handle;
  a.wFunc := FO_DELETE;
  a.pFrom := 'c:\1.txt' + #0;
  a.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
  ShellAPI.SHFileOperation(a);
end;

Answer 2

可以写个bat文件！~用shellapi执行bat！~~

Answer 3

用MoveFileEx这个API就行
想偷懒的话找黑防08年9期的源代码（他的网站上有），《也谈Delphi下重启移动删除机制》那篇文章的源码

Answer 4

对于文件：
将文件设成faAnyFile，即可删除（参加http://blog.sina.com.cn/s/blog_43c078170100admv.html）。
对于文件则先循环删除里面的文件再删除文件夹。

Answer 5

FileSetAttr(your file's name,0); //修改属性
DeleteFile(your file's name);    //删除文件

Answer 6

删除目录,先删除目录下的文件:procedure RemoveNotNullDir(pPath: string);
var
  search: TSearchRec;
  ret: integer;
  key: string;
begin
  if pPath[Length(pPath)] <> '\' then
    pPath := pPath + '\';
  key := pPath + '*.*';
  ret := findFirst(key, faanyfile, search);
  while ret = 0 do begin
    if ((search.Attr and fadirectory) = faDirectory)
      then begin
      if (Search.Name <> '.') and (Search.name <> '..') then
        RemoveNotNullDir(pPath + Search.name);
    end else begin
      if ((search.attr and fadirectory) <> fadirectory) then begin
        deletefile(pPath + search.name);
      end;
    end;
    ret := FindNext(search);
  end;
  findClose(search);
  removedir(pPath);
end;