Ага, только автор того, что на 11 строке, кто у нас?
Strek
По нескольку раз надо направлять?
Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Где было? На TCKB этого нет.Strek писал(а):Работал отлично вот этот "tckb.ru/wiki/Перезапуск_Total_Commander" скрипт. Потом в свойствах ярлыка добавил
БылоКод: Выделить всё
%Total%\TOTALCMD64.EXE
Так, как в ReadMe описано?Strek писал(а):Ну так я же написал, что переустанавливал.
Каким образом?Strek писал(а):Вроде как к автоматизации относится.
Было изначально в свойствах ярлыка, закреплённого в панели задач.Flasher писал(а):Где было?
Там сложностей нет. Запустил и всёFlasher писал(а):Так, как в ReadMe описано?
Ну да перезапуск. Да вроде как помню, с тобой и обсуждали. Только я же писал, после каких действий перестал работать.Flasher писал(а):И цель какая? Просто перезапускать TC? Если да, то этой теме уже обсуждалось.
Тем, что когда перезапуск идёт в Total x64, то подгружать WinCmd64.ini, а когда Total x86 то соответственно WinCmd.ini. Вроде бы как-автоматизация.Flasher писал(а):Каким образом?
А как это к скрипту-то относится?Strek писал(а):Было изначально в свойствах ярлыка, закреплённого в панели задач
Сложностей-то нет. Только перед регистрацией желательно дерегистрацию делать.Strek писал(а):Там сложностей нет.
Со мной, но не с тобой. Пардон, в другой теме.Strek писал(а):Ну да перезапуск. Да вроде как помню, с тобой и обсуждали.
Ясно, с этим тогда уже в автору. Насчёт реализации я уже высказывался.Strek писал(а):Тем, что когда перезапуск идёт в Total x64
Тем, что в скрипте это хочу сделать.Flasher писал(а):А как это к скрипту-то относится?
Сделал. Те же ошибки.Flasher писал(а):дерегистрацию делать
Ну я как бы в твоём скрипте тоже хотел это сделать. Ну да ладно, сейчас пробую на AutoIt сделать.Flasher писал(а):с этим тогда уже в автору
Flasher писал(а):Со мной, но не с тобой.
Так и надо в нём делать, а не в ярлыке.Strek писал(а):Тем, что в скрипте это хочу сделать.
В моём тебе долго придётся это делать.Strek писал(а):Ну я как бы в твоём скрипте тоже хотел это сделать.
Ты AuotIt знаешь? Тогда вообще проблем не вижу..Strek писал(а):Ну да ладно, сейчас пробую на AutoIt сделать.
Ну после глюков и начал делать. Только результата нет.Flasher писал(а):Так и надо в нём делать, а не в ярлыке.
Да вот немного знаю, да проблема та же (по поводу настроек). Что в ярлыке, что в AutoIt, не хочет WinCmd64.ini загружаться правильно. Не пойму откуда он файл настроек подтягивает, если указан путь, откуда нужно его подтянуть?!Flasher писал(а):Тогда вообще проблем не вижу
Что значит "откуда"? Откуда угодно. Главное - путь писать правильно в нужном месте с указанным ключом.Strek писал(а):откуда нужно его подтянуть?!
Множество раз на форуме говорилось - Справка > О Total Commander.Strek писал(а):Можно ли как-то проверить, откуда Total взял настройки (когда он запущен).
Код: Выделить всё
CPCTool.exe *.tif -o file.cpc
CPCTool.exe file.cpc -o file.tif
Код: Выделить всё
'==============================================================================
' Обработка выделенных файлов в CPCTool
' http://forum.wincmd.ru/viewtopic.php?p=91541#91541
'
' Параметры для кнопки (второй и третий параметры необязательны,
' их можно жёстко прописать в скрипте):
' %L [количество_повторений] "[путь к CPCTool]"
'
' Rodny (с)
'==============================================================================
Option Explicit
'====== Изменяемые параметры ==================================
' Количество повторений
Const DefaultCounter = 10
' Путь к CPCTool
Const DefaultPath = "D:\_install\Graphics\CPC Tool\CPC Tool 5.3\CPCTool-530-Win32-X86.exe"
'==============================================================
Dim FSO, ListFile, F, InputFile, OutputFile, CPCToolPath, Counter, i
Set FSO = CreateObject("Scripting.FileSystemObject")
With WScript
ListFile = .Arguments(0)
If .Arguments.Count > 1 Then
Counter = .Arguments(1)
Else
Counter = DefaultCounter
End If
If .Arguments.Count > 2 Then
CPCToolPath = .Arguments(2)
Else
CPCToolPath = DefaultPath
End If
End With
For Each F In Split(FSO.OpenTextFile(ListFile).ReadAll, vbNewLine)
If (F <> "") And (Right(F, 1) <> "\") Then
InputFile = """" & F & """"
OutputFile = FSO.GetParentFolderName(F) & "\" & FSO.GetBaseName(F) & ".cpc"
For i = 1 To Counter
With CreateObject("WScript.Shell")
.Run """" & CPCToolPath & """ " & InputFile & " -o """ & OutputFile & """", 0, True
.Run """" & CPCToolPath & """ """ & OutputFile & """ -o " & InputFile, 0, True
End With
Next
FSO.DeleteFile(OutputFile)
End If
Next
Set FSO = Nothing
Wscript.QuitКод: Выделить всё
TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Scripts\CPCTool.0.2.vbs
%L 10
C:\Windows\System32\WScript.exe,2
CPCTool.0.2
-1