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 json字符串转义

Delphi 调用打印软件代码

Delphi 学习 sql 语句 - ｉｎｓｅｒｔ、ｕｐｄａｔｅ、ｄｅｌｅｔｅ

Delphi调用wmi读取usb设备的pid和vid

Delphi tstringbuilder详解

Delphi 字符串、文件路径 排序算法

Delphi如何获取系统服务(即service服务程序)列表

Delphi程序常用的公共代码

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