如何把文件删除到回收站中

来源： 作者： 出处：巧巧读书 2006-03-28 进入讨论组

• 关 键 词：
• windows
• delphi
• opera

　　例子如下：// Delphi　

　　program del;

　　uses ShellApi;

　　{ 利用ShellApi中: function SHFileOperation(const lpFileOp: TSHFileOpStruct): Integer; stdcall; }

　　Var T:TSHFileOpStruct;

　　P:String;

　　begin

　　P:='C:\Windows\System\EL_CONTROL.CPL';

　　With T do

　　Begin

　　Wnd:=0;

　　wFunc:=FO_DELETE;

　　pFrom:=Pchar(P);

　　fFlags:=FOF_ALLOWUNDO

　　End;

　　SHFileOperation(T);

　　End.　　

　　注意：

　　1. 给出文件的绝对路径名，否则可能不能恢复；

　　2. MS的文档说对于多个文件，每个文件名必须被#)字符分隔，而整个字符串必须用两个#0结束查看 http://www.qqread.com/delphi/s962938400.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：在Delphi4 BDE中配置Access数据库

较新的文章：如何在Delphi中实现ASP编程