View previous topic :: View next topic |
Author |
Message |
Ciber SLasH
Joined: 20 Aug 2005 Posts: 209 Location: С.-Петербург
|
(Separately) Posted: Fri Nov 25, 2005 17:04 Post subject: |
|
|
Предлогаю для смены заголовка любого окна свою маленькую тулзу: http://ciber-slash.hotbox.ru/soft/ChangeAnyCaption.zip
Если запустить её без командной строки, то появится окно с описанием параметров.
В скриптах можно применять так:
JScript:
Code: | var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run('ChangeAnyCaption.exe "add" " [H]"');
WshShell.Quit;
|
добавляет к заголовоку текущего окна строку " [H]"
Code: | var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.Run('ChangeAnyCaption.exe "write" "Я здесь хозяин !!"');
WshShell.Quit;
|
изменяет заголовок текущего окна на "Я здесь хозяин !!" |
|
Back to top |
|
|
_92
Joined: 23 Nov 2005 Posts: 398 Location: ufa
|
(Separately) Posted: Tue Dec 27, 2005 18:08 Post subject: |
|
|
подкорректировал и добавил кое-что и получился законченный работоспособный скрипт (спасибо всем, кто помог):
Code: |
Option Explicit
Dim TCS, ShowHidden, BarFile, Section, Key, Pressed, Depressed
BarFile="C:\program files\total commander xp\profiles\prof\1.bar" ' Путь к *.bar файлу
Section="Buttonbar"
Key="button3" ' Номер кнопки
Pressed="C:\program files\total commander xp\profiles\prof\homer h.ico" ' Ссылка на иконку при показе скрытых файлов
Depressed="C:\program files\total commander xp\profiles\prof\homer.ico" ' Ссылка на иконку при скрытии скрытых файлов
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand(2011) ' Переключение
ShowHidden = TCS.INIRead ("C:\program files\total commander xp\profiles\prof\main.ini", "Configuration", "ShowHiddenSystem", 0)
'меняем иконку на правильную
If ShowHidden = 0 Then
TCS.INIWrite Barfile, Section, Key, Depressed
else
TCS.INIWrite Barfile, Section, Key, Pressed
End If
TCS.LockTC true
' Прячем, а затем показываем button bar - для его обновления
TCS.SendCommand(2901)
TCS.SendCommand(2901)
Set TCS = Nothing
Wscript.Quit
|
|
|
Back to top |
|
|
_92
Joined: 23 Nov 2005 Posts: 398 Location: ufa
|
(Separately) Posted: Tue Dec 27, 2005 18:14 Post subject: |
|
|
надо сделать чтобы иконка менялась при нажатии ctrl+h
Last edited by _92 on Thu Sep 11, 2008 11:25; edited 1 time in total |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Tue Dec 27, 2005 19:27 Post subject: |
|
|
Добавь вызов скрипта в меню "Запуск".
Узнай из wincmd.ini номер добавленного пункта.
Повесь горячую клавишу (Ctrl+H) на команду cm_UserMenu{номер добавленного пункта}. |
|
Back to top |
|
|
_92
Joined: 23 Nov 2005 Posts: 398 Location: ufa
|
(Separately) Posted: Wed Dec 28, 2005 14:57 Post subject: |
|
|
Batya wrote: | Добавь вызов скрипта в меню "Запуск".
Узнай из wincmd.ini номер добавленного пункта.
Повесь горячую клавишу (Ctrl+H) на команду cm_UserMenu{номер добавленного пункта}. |
получилось! спасибо..
вот только пробовал на cm_user45 - не получается, попробовал на cm_user1 - получилось - странно..) _________________ ubuntu+tc+synwrite |
|
Back to top |
|
|
Lev
Joined: 02 Mar 2005 Posts: 392
|
(Separately) Posted: Wed Dec 28, 2005 15:54 Post subject: |
|
|
Когда я баловался со своим скриптом, то кнопку я повесил не на основной bar, а на дополнительный, в связи с чем, пришлось принимать дополнительные меры, т.к. при обновлении кнопок вызывался основной. Для большинства эти изменения не обязательны.
Code: | ini=TCS.Mainini 'или пишем прямой путь
'запоминаем основной bar файл
mainbar=TCS.INIRead (ini, Section, Section, 0)
'еще лучше прописать прямой путь - mainbar="...."
barfile= "..." 'указать путь к *.bar файлу на который повешена кнопка
'вписываем текущий
TCS.INIWrite ini, Section, Section, barfile
tcs.pause = 100 'с паузой у меня лучше работает
TCS.SendCommand(2901)'прячем-показываем button bar для его обновления
TCS.SendCommand(2901)
'восстанавливаем основной bar файл
TCS.INIWrite ini, Section, Section, mainbar |
|
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Wed Dec 28, 2005 15:58 Post subject: |
|
|
_92 wrote: | вот только пробовал на cm_user45 - не получается, попробовал на cm_user1 - получилось - странно..) |
Ничего странного - в файле TotalCmd.inc добавь строчку
(в секции [_______Пользовательские_команды_______]=0). |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2218 Location: Москва, Россия
|
(Separately) Posted: Wed Dec 28, 2005 16:50 Post subject: |
|
|
Lev wrote: | Когда я баловался со своим скриптом, то кнопку я повесил не на основной bar, а на дополнительный, в связи с чем, пришлось принимать дополнительные меры, т.к. при обновлении кнопок вызывался основной. |
Можно обновлять панель не скрытием\вызовом ее, а поднятием на редактирование:
Code: | TCS.SendCommand("cm_ButtonConfig")
TCS.SendKeystroke("{TAB}~") |
Работает с текущей панелью. |
|
Back to top |
|
|
|