Total Commander

ask-rus

Кинуть могу только почтой

Теперь по теме.
1. Файл завершает работу (закрывает окно), или вроде как висит?

2. Если завершает, не сжат ли уже winamp.exe UPXом?

3. Если "зависает" - в каталоге с winamp.exe появляется winamp.upx?

Serge Yolkin писал(а):1. Файл завершает работу (закрывает окно), или вроде как висит?

Нет. Ничего не происходит.

Serge Yolkin писал(а):2. Если завершает, не сжат ли уже winamp.exe UPXом?

Нет.

Serge Yolkin писал(а):3. Если "зависает" - в каталоге с winamp.exe появляется winamp.upx?

Нет.

Serge Yolkin писал(а):Кинуть могу только почтой

ask-rus@mail.ru

Взял с почты. Работает, но непонятно, что это за ".../36"?
Что это за 36 проходов по одному файлу?!

ask-rus
Использован ключ best программы UPX - выбирается лучший (по степени сжатия) алгоритм из 36-и возможных. Долго, но качественно. Можно изменить командную строку запуска UPX: UPX /?

ask-rus
Кстати, если не в лом: сравните, пожалуйста файл из почты с кодом в моем посте. По-моему одно и то-же.

Serge Yolkin писал(а):Кстати, если не в лом: сравните, пожалуйста файл из почты с кодом в моем посте. По-моему одно и то-же.

По-моему то-же. Скорей всего дело в этом:

Batya писал(а):удалил все пробелы на концах строк

Или этом

:

Serge Yolkin писал(а):.cmd файлы имеют кодировку OEM (866)

Вниманию посетителей форума
Тема создавалась для представления готовых кодов кнопок. В первом посте, если кто забыл, было ясно сказано, что обсуждение идёт в другом месте. (Если надо, со ссылкой на основную тему.) У меня есть ощущение, что тут уже напрочь забыли об этом факте. См. также это предупреждение.
Короче говоря, по прежним постам правки в теме, скорее всего, не будет, но по новым порядок придётся наводить. Начиная с сегодняшних сообщений, перенесённых по принадлежности в дочернюю тему, расположенную теперь в "Автоматизации".

Создание пустого текстового файла (со счётчиком) в текущей папке

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

TOTALCMD#BAR#DATA
cmd /c if /i not exist "Новый файл.txt" (CD.>"Новый файл.txt"&exit) else for /l %a in (2,1,999) do if /i not exist "Новый файл (%a).txt" (CD.>"Новый файл (%a).txt"&exit)

Wcmicons.dll,28
Новый файл

1
-1

Модифицированный вариант скрипта создаёт несколько ярлыков на рабочем столе по отмеченным в TC файлам и папкам:

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

' ===============================================
'  Авторы:     SkOle, Batya
'  Описание:   Создает ярлыки на рабочем столе
'  Параметры:  %L
' ===============================================

Option Explicit

If WScript.Arguments.Count > 0 Then
   Dim WSH, FSO, Desktop, F
   Set WSH = CreateObject("Wscript.Shell")
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Desktop = WSH.SpecialFolders("Desktop")

   For Each F In Split(FSO.OpenTextFile(WScript.Arguments(0)).ReadAll, vbNewLine)
     If FSO.FileExists(F) Or FSO.FolderExists(F) Then
       With WSH.CreateShortcut(Desktop & "\" & FSO.GetBaseName(F) & ".lnk")
         .TargetPath = F
         .WorkingDirectory = FSO.GetParentFolderName(F)
         .Save
       End With
     End If
   Next

   Set FSO = Nothing
   Set WSH = Nothing
End If

WScript.Quit

Просьба на кнопку здесь.

Кнопка:

TOTALCMD#BAR#DATA
Диск:\Путь\к\скрипту\Скрипт.vbs

%Commander_Path%\WCMICONS.DLL,59
Копирование в буфер имен с путями с заменой "ftp" на "http"

-1

Скрипт.vbs (путь к файлу скрипта в приведённой кнопке отмечен зелёным цветом):

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

With CreateObject("TCScript.Helper")
  .SendCommand "cm_CopyFullNamesToClip"
  .SetTextToClip(Replace(.GetTextFromClip, "ftp", "http"))
End With

Внимание. Для работы скрипта требуется TCScript.Helper.

Samwatas писал(а):тотал не поддерживает псевдопеременную %COMMANDER_PATH% в строке параметров (он переопределяет первых два символа как несуществующий параметр %C)

Кхе-кхе...

Справка писал(а):Диалоговое окно: Конфигурация – Панель инструментов / Параметры:
<...>
%%вставляет знак процента.

То бишь, если нужно использовать в параметрах переменные, проценты нужно удвоить: %%COMMANDER_PATH%%

Samwatas
А разве не все запущенные из TC программы автоматически разворачивают все его переменные?

Я просто ни разу не программист, но такое работает:

TOTALCMD#BAR#DATA
cmd /k
dir %%COMMANDER_PATH%%
D:\Programs\totalcmd\WCMICONS.DLL,74

0
-1

Rodny
Есть отдельная тема - "Переменная %Commander_Path% в параметрах «кнопки»".

Не секрет, но иногда удобно панель инструментов увидеть и использовать в виде меню:

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

TOTALCMD#BAR#DATA
%Commander_Path%\DEFAULT.BAR

wcmicons.dll,15
Панель Default в виде меню

1
-1

PS Пример использования здесь.

Total Commander

Обмен кнопками