Vaciar la papelera de reciclaje

function SHEmptyRecycleBin (Wnd:HWnd; LPCTSTR:PChar;
  DWORD:Word):Integer; stdcall;
 
const
  SHERB_NOCONFIRMATION = $00000001;
  SHERB_NOPROGRESSUI   = $00000002;
  SHERB_NOSOUND        = $00000004;
 
Implementation
{$R *.DFM}
 
function SHEmptyRecycleBin; external  'SHELL32.DLL' name 'SHEmptyRecycleBinA';
 
procedure TForm1.EmptyBtnClick(Sender: TObject);
begin
  SHEmptyRecycleBin(self.handle,'', SHERB_NOCONFIRMATION);
end;