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

Если вы хотите поделиться с другими пользователями секретами Total Commander, знаете интересные опции, приемы, настройки, то вам сюда.

Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер

Аватара пользователя
Tol!k
Сообщения: 1727
Зарегистрирован: Вт апр 01, 2008 20:02
Откуда: Арзамас

Сообщение Tol!k »

DAntES писал(а):Да в том то и дело, что пейнт уменьшает размер без видимой на глаз (в данном случае) потери качества...
Но просто потом при сохранении в пейнте размер все равно уменьшится в 2-4 раза.
Вай, шайтан-программа.
Сохрани исходное и пожатое изображение в .bmp и сравни вот этим.
DAntES
Сообщения: 3
Зарегистрирован: Пт апр 10, 2009 18:00

Сообщение DAntES »

BMP имеет точно такой же размер и качество. Но хранить скрины в бмп имхо бред вообще. И я знаю что после пейнта качество упадет, это очевидно. Но это тема не о том как пожать изображенеи с минимальными потерями, по-этому сарказм про шайтан программу неуместен, ИМХО. Я специально написал

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

без видимой на глаз (в данном случае) потери качества
. Имеется ввиду что когда у тебя есть скриншот размером с аватарку, то нет смысла париться по поводу его качества, разницу в котором ты увидишь только с помощью специальных утилит, а вот сократить размер базы в 4 раза, в ДАННОМ СЛУЧАЕ, будет более приоритетно. По-этому я и попросил помощи по автоматизации данного процесса посредством любимого файлового менеджера.
Аватара пользователя
Tol!k
Сообщения: 1727
Зарегистрирован: Вт апр 01, 2008 20:02
Откуда: Арзамас

Сообщение Tol!k »

DAntES писал(а):Но хранить скрины в бмп имхо бред вообще.
Я предлагал не хранить BMP-шки, а сравнить их в Video Quality Measurement Tool, который к сожалению, не умеет сравнивать JPEGи.
DAntES писал(а):По-этому я и попросил помощи по автоматизации данного процесса посредством любимого файлового менеджера.
Я поделился своим, работающим решением. Качество JPEGов настраивается параметром /jpgq=<в процентах>
Последний раз редактировалось Tol!k Вс апр 12, 2009 19:20, всего редактировалось 1 раз.
Worros
Сообщения: 1123
Зарегистрирован: Пт янв 19, 2007 18:46

Сообщение Worros »

PavelSES писал(а):уважаемые, немог бы кто если не затруднит, сделать кнопочку для Daemon Tools Lite, в частности которая бы вызывала данное окошко "созданиЯ образа"
1.Разве lite умеет создавать образы? Насколько я знаю, только pro.
2.У него же нет никаких ключей комстроки, которые бы позволили до этого диалога добраться.
Аватара пользователя
PavelSES
Сообщения: 2
Зарегистрирован: Сб апр 11, 2009 08:02

Сообщение PavelSES »

Worros писал(а):
PavelSES писал(а):уважаемые, немог бы кто если не затруднит, сделать кнопочку для Daemon Tools Lite, в частности которая бы вызывала данное окошко "созданиЯ образа"
1.Разве lite умеет создавать образы? Насколько я знаю, только pro.
2.У него же нет никаких ключей комстроки, которые бы позволили до этого диалога добраться.
да лайт умеет - в демон тулс панели кнопка есть
думал может можно ее каким нить скриптом аля автоайти или еше что...
bbcby
Сообщения: 58
Зарегистрирован: Вс мар 05, 2006 17:50

Сообщение bbcby »

PavelSES
Может для создания образов вам подойдет ImgBurn?
Он также бесплатен, и там шикарная командная строка (ну практически). А с созданием всевозможных извращенных кнопок на все случаи жизни вам тут помогут.
Worros
Сообщения: 1123
Зарегистрирован: Пт янв 19, 2007 18:46

Сообщение Worros »

Ну с ImgBurn то как раз всё более-менее просто, но он не работает с защищенными дисками.

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

TOTALCMD#BAR#DATA
"c:\Program Files\ImgBurn\ImgBurn.exe"
/READ
c:\Program Files\ImgBurn\ImgBurn.exe
ImgBurn
c:\Program Files\ImgBurn\

-1
Аватара пользователя
Andrey_A
Сообщения: 394
Зарегистрирован: Пт апр 10, 2009 06:28
Откуда: Сочи
Контактная информация:

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

Сообщение Andrey_A »

Для создания образов я пользуюсь программой UltraISO
вот кнопка

TOTALCMD#BAR#DATA
UltraISO.exe
?-copy G:\\ -output D:\MyDiskIso_1 измените привод и путь сохранения
%COMMANDER_PATH%\Programs\UltraISO\UltraISO.exe
Быстро создать образ CD\DVD не открывая UltraISO (в появившимся окошке измените привод G: на свой и укажите свой путь сохранения образа)
%COMMANDER_PATH%\Programs\UltraISO\

-1



следует поменять свой путь к программе

после нажатия вылетает окно в котором можно поменять привод и путь сохранения
Кстати вопрос: Можно ли изменить имя файла в -output D:\MyDiskIso_1 , чтобы добавлялась дата к нему?
в инструкции к UltraISO я этого не нашёл, или что-то недопонял
Эта кнопка и так работает, но когда приходится создавать много образов, приходится постоянно переименовывать файл MyDiskIso_1.iso
С уважением Андрей А А
Аватара пользователя
Scorpkoms
Сообщения: 27
Зарегистрирован: Пн мар 31, 2008 13:50
Откуда: Россия

Сообщение Scorpkoms »

Доброго времени!
Пожалуйста подскажите код на кнопку создания каталога,
типа:"Каталог","Каталог2","Каталог3" и т.д.
Спасибо.
Аватара пользователя
LocKtaR-o-DarK
Сообщения: 349
Зарегистрирован: Пт авг 12, 2005 04:20
Откуда: Москва
Контактная информация:

Сообщение LocKtaR-o-DarK »

Andrey_A
ну, если сильно надо, можно написать, но чисто кнопкой будет не очень серьёзно
итак, вариант сценарий+кнопка

пример сценария (create_iso.cmd)
Код:
@echo off
title Создание ISO-образа в папку "%1"
set label=MyDiskIso_%date:~6,4%.%date:~3,2%.%date:~0,2%-%time:~,-9%.%time:~3,2%.%time:~6,2%
set
"pp=%commander_path%\programs\UltraISO.exe"
if not exist %pp% (echo Программа UltraISO не найдена&pause)
:dr
set
/p "dr= Введите букву привода (пример: h): "
set dr=%dr:~,1%
if not defined
dr (echo Вы не ввели букву диска&goto:dr)
"%pp%" -copy %dr%: -output "%1%label%"

сценарий сохранить в кодировке 866
концевые пробелы удалить

пример кнопки
Код:
TOTALCMD#BAR#DATA
%pp%\create_iso.cmd
%T
%pp%\UltraISO\UltraISO.exe
Быстро создать образ CD\DVD не открывая UltraISO


Scorpkoms
недостаточно точное описание задачи
создай необходимую структуру и в корневой папке структуры выполни
tree .>log.txt
структуру папок из файла log.txt запости сюда
или опиши задачу более подробно
Изображение    Изображение    Изображение
Аватара пользователя
Scorpkoms
Сообщения: 27
Зарегистрирован: Пн мар 31, 2008 13:50
Откуда: Россия

Сообщение Scorpkoms »

Scorpkoms писал(а):Доброго времени!
Пожалуйста подскажите код на кнопку создания каталога,
типа:"Каталог","Каталог2","Каталог3" и т.д.
Спасибо.
Как в Windows:
Изображение
Аватара пользователя
LocKtaR-o-DarK
Сообщения: 349
Зарегистрирован: Пт авг 12, 2005 04:20
Откуда: Москва
Контактная информация:

Сообщение LocKtaR-o-DarK »

Scorpkoms
давно хотел написать, задача была достаточно сложна
однако решение оказалось очень простое

итак, сценарий
Код:
@echo off
if not exist "Каталог" (md "Каталог"&goto:eof)
for /l %%a in (2,1,999) do if /i not exist "Каталог%%a" (md "Каталог%%a"&goto:eof)

пример кнопки
Код:
TOTALCMD#BAR#DATA
%commander_path%\_CMD\crn_dir.cmd

TOTALCMD.EXE,1
Создание
папки как в Windows

1
Изображение    Изображение    Изображение
GGS
Сообщения: 322
Зарегистрирован: Сб май 02, 2009 13:00

Сообщение GGS »

Scorpkoms, LocKtaR-o-DarK
Немного доработанный вариант и без внешнего .cmd (всё в кнопке)

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

TOTALCMD#BAR#DATA
cmd /c if /i not exist "Новая папка" (md "Новая папка"&exit) else for /l %a in (2,1,999) do if /i not exist "Новая папка (%a)" (md "Новая папка (%a)"&exit)

shell32.dll,3
Новая папка

1
-1
Аватара пользователя
Scorpkoms
Сообщения: 27
Зарегистрирован: Пн мар 31, 2008 13:50
Откуда: Россия

Сообщение Scorpkoms »

LocKtaR-o-DarK
давно хотел написать, задача была достаточно сложна
однако решение оказалось очень простое
GGS
Немного доработанный вариант и без внешнего .cmd (всё в кнопке)
Благодарю!
Аватара пользователя
Batya
Сообщения: 2236
Зарегистрирован: Ср дек 15, 2004 09:51
Откуда: Москва, Россия

Сообщение Batya »

GGS
Ну, если уж дорабатывать, то через %comspec% 8)

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

TOTALCMD#BAR#DATA
%comspec% /c
if /i not exist "Новая папка" (md "Новая папка"&exit) else for /l %%a in (2,1,999) do if /i not exist "Новая папка (%%a)" (md "Новая папка (%%a)"&exit)
shell32.dll,3
Новая папка

1
-1
Ну и свои 5 копеек.
Создаем vbs-скрипт:

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

Option Explicit
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder(NextName(WScript.Arguments(0)))
Set FSO = Nothing
WScript.Quit

Function NextName(pName)
  Dim lCurrentFolder, lPath, k
  lCurrentFolder = CreateObject("WScript.Shell").CurrentDirectory & "\"
  lPath = lCurrentFolder & pName
  If Not FSO.FolderExists(lPath) Then
    NextName = lPath
    Exit Function
  End If
  k = 1
  Do
    lPath = lCurrentFolder & pName & " " & k
    k = k + 1
  Loop While FSO.FolderExists(lPath)
  NextName = lPath
End Function
Кнопка:
TOTALCMD#BAR#DATA
C:\Путь\до\скрипта.vbs
"Новая папка"
shell32.dll,3
Новая папка

1
-1
Синим - собственный путь к скрипту.
Параметр выполнения скрипта (зеленый) - желаемое имя папки.
Нет, я не сплю. Я просто медленно моргаю.
Ответить