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

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