Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\{645FF040-5081-101B-9F08-00AA002F954E}]

TOTALCMD#BAR#DATA
Recycle_Bin_Cleaner.exe
/h /c /p /a
Icons\Recycle-bin-empty.ico
Очистить корзину
%COMMANDER_PATH%\Utils
0
-1

'====== VBS ======
' Очистить корзину
'===== Flasher © =
Option Explicit: Dim WSS, Par, Str, W, i, L, Title, A
Set WSS = CreateObject("WScript.Shell")
On Error Resume Next
Par = WSS.RegRead("HKLM\SOFTWARE\Microsoft\PowerShell\3\PowerShellEngine\PowerShellVersion")
If Err.Number = 0 Then If Par >= "5" Then _
WSS.Run "powershell.exe -nologo -noninteractive -command Clear-RecycleBin -Force", 0 : WSH.Quit
On Error GoTo 0
Par = 1050 : Str = 8
With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
  With .document.Application.NameSpace(10)
    If .Items.Count = 1 Then Par = 1055 : Str = 13
    .Self.InvokeVerb "Empty"
  End With : .Quit
End With
With CreateObject("CDO.Message").AddAttachment("res://shell32.dll/6/" & Par).GetDecodedContentStream
  .Type = 1
  For i = 0 To Str
    L = AscB(.Read(2)) * 2 : If L > 0 Then Title = CStr(.Read(L))
  Next
End With
With WSS
  Do : A = .AppActivate(Title) : Loop Until A
  .SendKeys "~"
End With : Set WSS = Nothing

CreateObject("WScript.Shell").Run "powershell.exe -nologo -noninteractive -command Clear-RecycleBin -Force", 0