procedure TForm1.Button1Click(Sender: TObject);
 var
 recycleBinPIDL: PItemIDList;
 execInfo: TShellExecuteInfo;
 begin
 SHGetSpecialFolderLocation(Handle, CSIDL_BITBUCKET, recycleBinPIDL) ;
 with execInfo do
 begin
 cbSize := Sizeof(execInfo) ;
 fMask := SEE_MASK_IDLIST;
 Wnd := Handle;
 lpVerb := nil;
 lpFile := nil;
 lpParameters := nil;
 lpDirectory := nil;
 nShow := SW_SHOWNORMAL;
 hInstApp:=0;
 lpIDList := recycleBinPIDL;
 end;
 ShellExecuteEx(@execInfo) ;
 end;