Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Обмен кнопками 
Author Message
gora



PostPosted: Mon Dec 18, 2006 10:43    Post subject: Reply with quote

Просил тут у "скриптописателей" кнопочку для создания SFX архивов - ни кто не откликнулся. Сделал сам (как сумел).
После создания кнопки нужно только выделить два файла (7-z архив и файл конфигурации), на одной из панелей TC, и нажать эту кнопку. SFX архив будет создан в этом же каталоге (открытом в этой панели TC) с именем, полученным из имени 7-z архива заменой расширения с .7z на .exe. Ни какие файлы не удаляются. Если SFX архив с таким именем уже существует, он будет переписан.
Для этой кнопки понадобиться утилита lst2str от JackFoo, кнопка и .bat файл.

Кнопка:
Code:
TOTALCMD#BAR#DATA
%commander_path%\Utilites\lst2str\lst2str.exe
/X:"D:\totalcmd\Utilites\CreateSFX\comndlin.bat" /L:%L /N:2
%commander_path%\WCMICONS.DLL,20
Создание SFX архива
%commander_path%\Utilites\CreateSFX\comndlin.bat

-1

.bat файл (comndlin.bat):
Code:
@ECHO off
set error=Мало данных.
IF "%~x2"=="" GOTO Err_msg
set config=%2
set len=%~z2
set archive=%1
set name=%~n1
set path_=%~dp1
IF %~x1==.7z GOTO Find1
set error=Нет 7z-архива.
IF NOT %~x2==.7z GOTO Err_msg
set config=%1
set len=%~z1
set archive=%2
set name=%~n2
set path_=%~dp2
:Find1
IF %len% GTR 10240 GOTO No_cfg
find /c ";!@Install@!UTF-8!" %config%
IF errorlevel 1 GOTO No_cfg
echo.
COPY /b "D:\DISTRIBUT\7-Zip\7zSD_499\7ZSD_LZMA.sfx" + %config% + %archive% "%path_%%name%.exe"
echo.
echo Создан SFX архив - "%name%.exe"
echo.
pause
exit

:No_cfg
set error=Нет файла конфигурации.
:Err_msg
echo.
echo %error%
echo.
echo Надо выделить только ДВА файла: 7z-архив и файл конфигурации.
echo.
pause
exit

Скопируйте файлы в папку TC с соблюдением путей указанных в файлах. Пути можно/нужно изменить на свои. В первом файле пути к TC - строки 2, 3, 6, а во втором, путь к SFX модулю - строка 22 (COPY /b ...). При копировании .bat файла, сохраните его в dos кодировке!

Все, можете пользоваться!
View user's profile Send private message ICQ Number


Powered by phpBB © 2001, 2005 phpBB Group