Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Для установки и регистрации в системе:
просто запустите TCWSHelp.exe с командной строкой
TCWSHelp.exe /REGSERVER
Важно!
При перемещении в другую папку нужно повторить регистрацию!
зарегистрировал, но тогда скрипт все-равно не работает - копирование имени происходит через iexplorer (в диспетчере задач запускаются его процессы).TCWSHelp.exe /REGSERVER
Не надо вводить в заблуждение.Flasher писал(а):Batya логическую ошибку допустил.
Извиняюсь, к вечеру голова опухла..Batya писал(а):Если речь об этом скрипте, то там всё правильно
Ну, это не вариант - постоянно через этот диалог подобные команды запускать. Уж лучше nircmd прикрутить.Batya писал(а):В Windows 7 надо выполнять команду по правой кнопке мыши "Запуск от имени администратора".
Я вёл речь только о регистрации (запуске файла TCWSHelp.exe), что выполнять "постоянно" не нужно.Flasher писал(а):Ну, это не вариант - постоянно через этот диалог подобные команды запускать. Уж лучше nircmd прикрутить.Batya писал(а):В Windows 7 надо выполнять команду по правой кнопке мыши "Запуск от имени администратора".
Код: Выделить всё
'========================================
' Копировать имена выбранных папок/файлов
'========================================
Const P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
.Run """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"" /ef tcm(2017)""",, True
A = .RegRead(P) : If A > 0 Then .RegWrite P, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
Clip = .document.Parentwindow.ClipboardData.GetData("text")
List = Replace(Clip, "\" + chr(13), chr(13))
List = Replace(Clip, "/" + chr(13), chr(13))
.document.ParentWindow.ClipboardData.SetData("text"), List
.ExecWB 45, 2 : .Quit
End With : If A > 0 Then .RegWrite P, A, "REG_DWORD"
End WithСпасибо, все заработало, но копирует имена фалов со слэшем. Пример:Flasher писал(а):
Код: Выделить всё
...
List = Replace(Clip, "\", "")
List = Replace(Clip, "/", "")
...В смысле? Есть же cm_CopyFullNamesToClip и cm_CopyNetNamesToClip.skyinfire писал(а):И можно ли еще научить скрипт копировать полный путь (два ярлыка будет, разумеется)?
да, W7х64А система не x64, случаем?
Собственно, с них и началась вся эта тема. Скрипты для того и написаны были, что стандартные ТС комманды оставляли слеши до или после имен.Есть же cm_CopyFullNamesToClip и cm_CopyNetNamesToClip.
Он работает отлично - два ярлыка: с параметром %L копирует путь, с параметром %F - копирует имя. Но последний барахлит на FTP ресурсах.'=========================================
' Копировать имена выделенных папок/файлов
' Параметр: {%L|%l|%F|%f|%D|%d}
'=========================================
If WScript.Arguments.Count = 0 Then Wscript.Quit
Dim T
T = Replace(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1).ReadAll, "\" + chr(13), chr(13))
Text2Clip Mid(T, 1, Len(T) - 2)
Sub Text2Clip(pText)
Dim TCS
On Error Resume Next
Set TCS = CreateObject("TCScript.Helper")
If Err.Number > 0 Then
Dim A
On Error GoTo 0
Const P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
A = .RegRead(P)
If A > 0 Then .RegWrite P, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
.document.ParentWindow.ClipboardData.SetData("text"), pText
End With
If A > 0 Then .RegWrite P, A, "REG_DWORD"
End With
Else
On Error GoTo 0
TCS.SetTextToClip(pText)
End If
End Sub