delphi将文件删除至回收站


本文整理自网络,侵删。

 delphi将文件删除至回收站

把文件删除到回收站,在我们的应用程序中,很少这样设计。为了使已删除文件能被恢复,也有删除至回收站的情况。

这里利用了windows外壳API函数 SHFileOperation。在ShellAPI 单元中,可以找到它的原型,它利用了一个SHFileOpStruct结构传递参数。在调用时,要将该结构内的参数填写好。

在本例中,在From上放置一个测试按钮,点击该按钮删除c:tete1.txt文件。


procedure TForm1.Button1Click(Sender: TObject);
var
  SF:TSHFileOpStruct;
  fname:string;
begin
  fname:='c:tete1.txt';
  SF.Wnd:=0;
  SF.wFunc:=FO_DELETE;
  SF.pFrom:=PChar(fname);
  SF.pTo:='';
  sf.fFlags:=FOF_ALLOWUNDO;
  SHFileOperation(SF);
end;
如果要将两个或多个文件删除至回收站呢?看下面的代码:

procedure TForm1.Button2Click(Sender: TObject);
var
  SF:TSHFileOpStruct;
  fname:string;
begin
  fname:='c:tete1.txt'#0'c:tete2.txt';
  SF.Wnd:=0;
  SF.wFunc:=FO_DELETE;
  SF.pFrom:=PChar(fname);
  SF.pTo:='';
  SF.fFlags:=FOF_ALLOWUNDO;
  SHFileOperation(SF);
end;
这段代码将文件c:tete1.txt与文件c:tete2.txt同时删除,在给文件赋值时,文件名之间用空字符串 #0 隔开。

相关阅读 >>

Delphi文本数据导入数据库的方法

Delphi获取java时间戳

Delphi在pagecontrol1上面的分页动态创建edit组件

Delphi sizetostr 文件大小转换kb mb gb tb

dbgrid导出excl表

Delphi向imagelist中加入png类型的资源图片

Delphi 获取当前系统版本号

Delphi xe2读取内存偏移数据代码

Delphi编程时按回车键无效,无法换行解决办法

Delphi 遍历某字段并插入到combobox

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...