Single Post - Помогите запустить скрипты от Вахмурки

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Помогите запустить скрипты от Вахмурки

Author

Message

Paranoik

Posted: Sat Sep 29, 2007 17:15 Post subject: Помогите запустить скрипты от Вахмурки

Помогите запустить скрипты от Вахмурки.
Вроде все плагины нужные стоят. А не работает Ж(

TC 7.02a
WinXP SP2
PowerPro 4.7.07

Установленные плагины для PPro

Code:

au.dll
AutoItDLL.dll
childwin.dll
class.dll
clip.dll
date.dll
event.dll
file.dll
float.dll
float2.dll
ini.dll
int64.dll
map.dll
math.dll
menu.dll
miscplugin.dll
mousegesture.dll
note.dll
pcre.dll
pcreposix.dll
regex.dll
sample.dll
tc.dll
vec.dll
volume.dll
win.dll

HighLightCurrentTab

Описание Выделяет текущую вкладку цветом или снимает выделение
Параметры "1" - выделить текущую вкладку
"0" - убрать выделение

Code:

local hwnd = win.handle("c=TTOTAL_CMD")
local Panel = ifelse(tc.active(hwnd) == "left", 2, 3)
local TMP = childwin.handle(hwnd, "TMyPanel", Panel)
local TMTC = childwin.handle(TMP, "TMyTabControl")
local CurTab = win.sendmessage(TMTC, 4875, 0, 0)
win.sendmessage(TMTC, 4915, CurTab, arg(1))

Запускаю с параметрами. Ошибок не выдает, но и не чего не происходит.

TabTools

Выдает список всех вкладок на обеих панелях с названиями, путями и обозначением статуса. Содержит подменю операций со вкладками.

Code:

TabTools.powerpro
TabTools.ini
TabTools.icl

В папке Subs:

Code:

Sub_TreatCL.powerpro
Sub_ReadTabs.powerpro
Sub_PathVal.powerpro
Sub_MultiFind.powerpro
Sub_HighLight.powerpro
Sub_CloseDups.powerpro
Sub_CloseAllTabs.powerpro
Sub_Alias.powerpro

При запуске TabTools.powerpro выдает INI Plugin error #1
Такая же ошибка вылетает при запуске Sub_ReadTabs.powerpro

Code:

if(ini.check_exists(Config, Single, "path") != 3) do
Temp = "Key 'path' does not exist in section '" ++ Single ++ "'"
messagebox("ok error", Temp, "INI plugin error #1")
quit all
endif

F2 и localBar от Gregory

Открывает локальное меню, если оно есть, в противном случае повторно считывает путь. Желательно повесить скрипт на клавишу F2. Скрипт для тех, кто ностальгирует по Нортону

Вызываемые модули Утилиты TCMenu или TCToolbar (установлены обе и работают)

F2

Code:

local hwnd = win.handle("c=TTOTAL_CMD")
local Panel = ifelse(tc.active(hwnd) == "left", 2, 3)
local TMP = childwin.handle(hwnd,"TMyPanel", Panel)
local TMTC = childwin.handle(TMP,"TMyTabControl")
local Path = childwin.gettext(ifelse(TMTC, TMTC, TMP), "TMyPanel", 2)
Path = file.folder(Path)

for (length(Path) > 1)
Panel = Path ++ "\_local.bar"
if (validpath(Panel)) do
   do("c:\totalcmd\programs\TCmenu.exe", Panel)
   quit
else
   Path = file.folder(Path)
endif
endfor

win.sendmessage(hwnd, 0x400+51, 540, 0)

localBar

Code:

local path barpath hh
;получим дескриптор окна TC
hh=win.handle("c=TTOTAL_CMD")
;сохраним буфер обмена в переменную
local tmp=clip.get
;скопируем в буфер активную директорию
win.sendmessage(hwnd,0x400+51,2029,0)
;получим активную директорию
path=clip.get

;если в ней или в родительских находится файл _local.bar
;запускаем его с помощью TCMenu
for (length(path)>1)
barpath=path++"\_local.bar"
if (validpath(barpath)) do
barpath="'""++barpath ++"'" -$"
do("c:\totalcmd\programs\TCmenu.exe",barpath)
break
else
path=file.folder(path)
endif
endfor

;восстановим буфер обмена
clip.set(tmp)

в папке лежит _local.bar

Ни один из двух скриптов не работает. При запуске бар не выскакивает.
С панели ТС и через командную строку работает…..