Delphi 删除文件函数支持撤销删除

本文整理自网络，侵删。

 
uses ShellAPI;

function DeleteFileWithUndo(sFileName: string): boolean;
var
  fos: TSHFileOpStruct;
begin
  FillChar(fos, SizeOf(fos), 0);
  with fos do
  begin//delphitop.com
    wFunc  := FO_DELETE;
    pFrom  := PChar( sFileName );
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  Result := (0 = ShFileOperation(fos));
end;

 

相关阅读 >>

Delphi 实现窗体随着鼠标移动

Delphi 语法基础: 使用不同的数据类型标记数组

Delphi读取文本文件的最后一行

Delphi 的异步方法

Delphi在memo按键实现全选

Delphi反调试【初级】检测法

Delphi从memo去重数据

Delphi 传输文件例子的核心代码

tidtcpserver控件中文指南

Delphi读取一个access数据库中的表名

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 删除文件函数支持撤销删除