winxp {在线等}

Question

如何把文件夹中的文件放到回收站里，在xp下

Answer 1

使用SHFileOperationvar SHFileOp:_SHFILEOPSTRUCTA;
begin
    SHFileOp.wFunc :=FO_DELETE;
    SHFileOp.pFrom :='C:\test.txt';
    SHFileOp.fFlags :=FOF_ALLOWUNDO;
    SHFileOperation(SHFileOp);
    SHFileOperation();
end;
    SHFileOp.fFlags :=FOF_ALLOWUNDO;
如果改为:
    SHFileOp.fFlags :=FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
那么会没有提示直接放入回收站.FOF_ALLOWUNDO指定不是直接删除而是扔到回收站中