Total Commander

Код: Выделить всё

'=========================================================== 
' Демонстрация использования метода GetInfo вспомогательного 
' для ТС компонента "Script Helper ActiveX for TC by Volniy" 
'=========================================================== 

Set TCHelper = CreateObject("TCScript.Helper") 
TCHelper.Pause = 0 : T = vbTab : C = vbCr 
Call WM_CopyData("LP")("LC")("LI")("LN")("RP")("RC")_ 
("RI")("RN")("SP")("SC")("SI")("SN")("TP")("TC")("TI")("TN") 
If TCHelper.GetInfo("A") = "L" Then A = "левая" Else A = "правая" 

MsgBox T & T & "Активная панель:" & T & T & A & C & C & T & SC & T &_ 
TC & T & LC & T & RC &T & C & SI & TI & LI & RI & C & SN & TN & LN &_ 
RN & C & SP & TP & LP & RP,, Space(18) & "Данные WM_CopyData для TC" 

Function WM_CopyData(Var) 
  Select Case(Mid(Var, 2)) 
    Case "P" T1 = "Путь" 
    Case "C" T1 = "Число объектов" 
    Case "I" T1 = "№ объекта под курсором" 
    Case "N" T1 = "Имя объекта под курсором" 
  End Select 
  Select Case(Left(Var,1)) 
    Case "S" T2 = "активной"  : Case "R" T2 = "правой" 
    Case "T" T2 = "пассивной" : Case "L" T2 = "левой" 
  End Select : Execute Var & "= T1 & "" "" & T2 & """&_ 
  " панели:"" & T & TCHelper.GetInfo(CStr(Var)) & vbCr" 
  Set WM_CopyData = GetRef("WM_CopyData") 
End Function

Код: Выделить всё

// это не нужно
%COMMANDER_PATH%\Plugins\EXE\TCScript\wscript.exe
// достаточно системного, т. е. такой команды
wscript.exe

Код: Выделить всё

@echo off
cls
rem color 1b
%~d0
cd "%~dp0"

reg query HKCR | findstr /i "TCScript.Helper" >NUL
if not errorlevel 1 (
regsvr32 /u /s TCScript.dll
cls
echo Компонент Script Helper ActiveX for TC удалён из системы
echo Нажмите любую клавишу для выхода . . .
pause >NUL
) else (
regsvr32 /s TCScript.dll
cls
echo Компонент Script Helper ActiveX for TC зарегистрирован в системе
echo Нажмите любую клавишу для выхода . . .
pause >NUL
)