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 

Обмен кнопками
Goto page Previous  1, 2, 3 ... 37, 38, 39 ... 43, 44, 45  Next
 
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы printer-friendly view
View previous topic :: View next topic  
Author Message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Mon Jul 19, 2010 16:17    Post subject: Reply with quote

ask-rus

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

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

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

3. Если "зависает" - в каталоге с winamp.exe появляется winamp.upx?
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation

Post (Separately) Posted: Mon Jul 19, 2010 16:39    Post subject: Reply with quote

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

Нет. Ничего не происходит.
Serge Yolkin wrote:
2. Если завершает, не сжат ли уже winamp.exe UPXом?

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

Нет.
Serge Yolkin wrote:
Кинуть могу только почтой

ask-rus@mail.ru

Взял с почты. Работает, но непонятно, что это за ".../36"?
Что это за 36 проходов по одному файлу?!
_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Tue Jul 20, 2010 00:29    Post subject: Reply with quote

ask-rus
Использован ключ best программы UPX - выбирается лучший (по степени сжатия) алгоритм из 36-и возможных. Долго, но качественно. Можно изменить командную строку запуска UPX: UPX /?
Back to top
View user's profile Send private message
Serge Yolkin



Joined: 25 Jul 2009
Posts: 664

Post (Separately) Posted: Tue Jul 20, 2010 00:33    Post subject: Reply with quote

ask-rus
Кстати, если не в лом: сравните, пожалуйста файл из почты с кодом в моем посте. По-моему одно и то-же.
Back to top
View user's profile Send private message
ask-rus



Joined: 10 Nov 2009
Posts: 2076
Location: Russian Federation

Post (Separately) Posted: Tue Jul 20, 2010 17:01    Post subject: Reply with quote

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

По-моему то-же. Скорей всего дело в этом:
Batya wrote:
удалил все пробелы на концах строк

Или этом Very Happy :
Serge Yolkin wrote:
.cmd файлы имеют кодировку OEM (866)

_________________
«Минимализм - это кратчайший путь бесконечного стремления к идеалу»
«Не бойся, что не знаешь, - бойся, что не учишься» Китайская пословица
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10236
Location: Россия, Саратов

Post (Separately) Posted: Fri Aug 06, 2010 15:33    Post subject: Reply with quote

Вниманию посетителей форума
Тема создавалась для представления готовых кодов кнопок. В первом посте, если кто забыл, было ясно сказано, что обсуждение идёт в другом месте. (Если надо, со ссылкой на основную тему.) У меня есть ощущение, что тут уже напрочь забыли об этом факте. См. также это предупреждение.
Короче говоря, по прежним постам правки в теме, скорее всего, не будет, но по новым порядок придётся наводить. Начиная с сегодняшних сообщений, перенесённых по принадлежности в дочернюю тему, расположенную теперь в "Автоматизации".
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
GGS



Joined: 02 May 2009
Posts: 322

Post (Separately) Posted: Sun Aug 08, 2010 12:37    Post subject: Reply with quote

Создание пустого текстового файла (со счётчиком) в текущей папке
Code:
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
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Tue Aug 10, 2010 12:53    Post subject: Reply with quote

Модифицированный вариант скрипта создаёт несколько ярлыков на рабочем столе по отмеченным в TC файлам и папкам:
Code:
' ===============================================
'  Авторы:     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

_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Mon Sep 20, 2010 18:11    Post subject: Reply with quote

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

Кнопка:
Quote:
TOTALCMD#BAR#DATA
Диск:\Путь\к\скрипту\Скрипт.vbs

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


-1


Скрипт.vbs (путь к файлу скрипта в приведённой кнопке отмечен зелёным цветом):
Code:
With CreateObject("TCScript.Helper")
  .SendCommand "cm_CopyFullNamesToClip"
  .SetTextToClip(Replace(.GetTextFromClip, "ftp", "http"))
End With

Внимание. Для работы скрипта требуется TCScript.Helper.
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
Samwatas



Joined: 12 Sep 2009
Posts: 95

Post (Separately) Posted: Tue Sep 28, 2010 10:53    Post subject: Reply with quote

---

Last edited by Samwatas on Wed Oct 13, 2010 23:12; edited 1 time in total
Back to top
View user's profile Send private message
Rodny



Joined: 24 Jan 2007
Posts: 949
Location: Могилёв, Беларусь

Post (Separately) Posted: Tue Sep 28, 2010 12:04    Post subject: Reply with quote

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

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

То бишь, если нужно использовать в параметрах переменные, проценты нужно удвоить: %%COMMANDER_PATH%%
Back to top
View user's profile Send private message
Samwatas



Joined: 12 Sep 2009
Posts: 95

Post (Separately) Posted: Tue Sep 28, 2010 12:50    Post subject: Reply with quote

---

Last edited by Samwatas on Wed Oct 13, 2010 23:12; edited 1 time in total
Back to top
View user's profile Send private message
Rodny



Joined: 24 Jan 2007
Posts: 949
Location: Могилёв, Беларусь

Post (Separately) Posted: Tue Sep 28, 2010 14:19    Post subject: Reply with quote

Samwatas
А разве не все запущенные из TC программы автоматически разворачивают все его переменные? Embarassed Я просто ни разу не программист, но такое работает:
Quote:
TOTALCMD#BAR#DATA
cmd /k
dir %%COMMANDER_PATH%%
D:\Programs\totalcmd\WCMICONS.DLL,74


0
-1
Back to top
View user's profile Send private message
Batya



Joined: 15 Dec 2004
Posts: 2218
Location: Москва, Россия

Post (Separately) Posted: Tue Sep 28, 2010 16:34    Post subject: Reply with quote

Rodny
Есть отдельная тема - "Переменная %Commander_Path% в параметрах «кнопки»".
_________________
Нет, я не сплю. Я просто медленно моргаю.
Back to top
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2563

Post (Separately) Posted: Wed Oct 13, 2010 21:37    Post subject: Reply with quote

Не секрет, но иногда удобно панель инструментов увидеть и использовать в виде меню:
Code:
TOTALCMD#BAR#DATA
%Commander_Path%\DEFAULT.BAR

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

1
-1

PS Пример использования здесь.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Секреты и советы All times are GMT + 4 Hours
Goto page Previous  1, 2, 3 ... 37, 38, 39 ... 43, 44, 45  Next
Page 38 of 45

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group