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

　　


                  　　例子如下：// 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结束