Lev
|
 Posted: Thu Nov 24, 2005 15:37 Post subject: |
 |
|
примерно так
| Code: | '==================================================================
' Переключать режим отображения скрытых файлов в TC
'==================================================================
Option Explicit
Dim TCS, ShowHidden
barfile= 'указать путь к *.bar файлу
Section=Buttonbar
Key=button... 'указать точный номер кнопки
pressed= 'указать сслылку на нажатую иконку
depressed= 'указать сслылку на oтжатую иконку
Set TCS = CreateObject("TCScript.Helper")
TCS.SendCommand(2011)' переключаем
TCS.GetIniFiles
ShowHidden = TCS.INIRead (TCS.Mainini, "Configuration", "ShowHiddenSystem", 0)
'меняем иконку на правильную
If ShowHidden = 0 Then
TCS.INIWrite(barfile, Section, Key, depressed)
else
TCS.INIWrite(barfile, Section, Key, pressed)
End If
TCS.SendCommand(2901)'прячем-показываем button bar для его обновления
TCS.SendCommand(2901)
'cm_VisButtonbar=2901;Show/hide button bar
Set TCS = Nothing
Wscript.Quit |
Вешаем vbs на кнопку, смотрим ее параметры в bar файле и прописываем в код |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
