procedure TForm1.Button1Click(Sender: TObject);

   procedure VaciaPapelera;

   type
     TSHEmptyRecycleBin = function (Wnd: HWND;
                                    LPCTSTR: PChar;
                                    DWORD: Word): integer; stdcall;
   var
     MangoLib           : THandle;
     SHEmptyRecycleBin  : TSHEmptyRecycleBin;
   begin
      {Cargamos SHell32.DLL}
      {Load Shell32.DLL}
      MangoLib := LoadLibrary(PChar('Shell32.dll'));

      {Si no se pudo... error}
      {if not... error}
      if MangoLib = 0 then
        Raise Exception.Create( 'No se pudo cargar Shell32.DLL'+#13+
                                'Cannot load Shell32.DLL');

      {Buscamos dentro de la DLL la funcion que queremos}
      {Search into DLL the required funtion}
      @SHEmptyRecycleBin := GetProcAddress(MangoLib, 'SHEmptyRecycleBinA');

      {Si no existe... error}
      {If don't exists... error}
      if @SHEmptyRecycleBin = nil then
      begin
        FreeLibrary(MangoLib);
        Raise Exception.Create( 'No se pudo encontrar SHEmptyRecycleBinA en Shell32.DLL'+#13+
                                'Cannot find SHEmptyRecycleBinA in Shell32.DLL');
      end;

     {Vaciamos la papelera, sin sonido ni confirmación}
     {Empty the Recycle bin...}
     SHEmptyRecycleBin(Application.Handle,'',7);

     {Liberamos la DLL}
     {Free the DLL}
     FreeLibrary(MangoLib);
   end;

 begin
   try
     VaciaPapelera;
   except
     ShowMessage('Fallo al vaciar la papelera de Windows...');
   end;
 end;