Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
можно даунлодером выкачать только архив nircmd.zip 23,1 КБ (23 694 байт), содержащий nircmd.exe 25,5 КБ (26 112 байт), этого будет достаточноКод: Выделить всё
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\{645FF040-5081-101B-9F08-00AA002F954E}]А я не согласен с тем, что для каждой системной операции надо держать свою утилиту, уметь ею пользоваться, правильно запускать и, наконец, тратить под нее дисковое пространство...Sam Dark писал(а):Не согласен. Я пользуюсь контекстным меню для других целей и лишние пункты там мне ни к чему.
а ты потестируй, что в этом сложного?aLexx писал(а):Кстати, давно хотел спросить, а что, если установлена "Norton Protection"?
Как в этом случае очищать не только корзину, но и защищённые Нортоном файлы?
Код: Выделить всё
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