怎么把一个文件删除到回收站中？(200分)

而不是直接删掉？

如下：
program del;uses 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：M$的文档说对于多个文件，每个文件名必须被#)字符分隔，而整个字符串必须
用两个#0结束。