[윈도우즈 API] 휴지통에 파일을 버리는 법

program del;

uses
ShellApi;

procedure Form1.Button1Click(Sender: TObject);
var
T:TSHFileOpStruct;
P:String;
begin
P:='C:WindowsSystemEL_CONTROL.CPL';
With T do
Begin
   Wnd:=0;
   wFunc:=FO_DELETE;
   pFrom:=Pchar(P);
   fFlags:=FOF_ALLOWUNDO
End;
SHFileOperation(T);
End.