Как узнать директории панелей?
Добавлено: Пн авг 16, 2021 09:48
Если ли какой-нибудь способ узнать какие директории открыты в правой и левой панелях не прибегая к написанию плагина?
Форум поддержки пользователей Total Commander
https://forum.wincmd.ru/
Извиняюсь за непонятность постановки вопроса.Avada писал(а):jackhab
Во-первых, плагины TC этим не занимаются — нет там такой функции. Во-вторых, не очень понятна сама постановка вопроса. Узнать — откуда, в каком виде и, главное, для чего? А то текущие каталоги и в главном окне в разных местах отображаются, и в wincmd.ini при необходимости принудительно сохранены могут быть в секциях [left] и [right] как значение ключа Path (пока это не сделано, вся информация о свежеоткрытых каталогах хранится только в памяти). В общем, пояснение задачи очень желательно.
Либо в скрипте sendmessage с параметром WM_USER+50. Подробнее см. history.txt от 08.06.16.sa писал(а):Параметры командной строки %P (исходный каталог) и %T (каталог назначения) вкупе с %X (трактует последующие параметры как относящиеся к левой/правой панелям вместо исходной/целевой) не подойдут?
Спасибо. Похоже, что sendmessage это как раз то, что я искал (забыл упомянуть, что скрипт внешний, не запущенный из ТС).Вахмурка писал(а):Либо в скрипте sendmessage с параметром WM_USER+50. Подробнее см. history.txt от 08.06.16.sa писал(а):Параметры командной строки %P (исходный каталог) и %T (каталог назначения) вкупе с %X (трактует последующие параметры как относящиеся к левой/правой панелям вместо исходной/целевой) не подойдут?
Код: Выделить всё
msgbox, % "Left: " TC_WM("LP") "`nRight: " TC_WM("RP")
/*
Get info
Supported commands A: Active side (returns L or R), or two byte command:
1st byte: L=left, R=right, S=source, T=target.
2nd byte: P=current path, C=list count, I=caret index, N=name of file under caret.
*/
TC_WM(cmd) {
Global CopyOfData
OnMessage(0x4a, "Receive_WM_COPYDATA")
len := StrLen(cmd) + 1
If A_IsUnicode
{ cmdStr := cmd
VarSetCapacity(cmd, StrPut(cmd, "cp0"))
Loop, % len
NumPut(Asc(SubStr(cmdStr, A_Index, 1)), cmd, A_Index - 1, "Char")
}
VarSetCapacity(CopyDataStruct, A_PtrSize * 3)
NumPut(Asc("G") + 256 * Asc(A_IsUnicode ? "W" : "A"), CopyDataStruct)
NumPut(len, CopyDataStruct, A_PtrSize)
NumPut(&cmd, CopyDataStruct, A_PtrSize * 2)
SendMessage, 0x4A, % A_ScriptHwnd, &CopyDataStruct,, % "ahk_id " WinExist("ahk_class TTOTAL_CMD")
Return, CopyOfData
}
Receive_WM_COPYDATA(wParam, lParam, msg, hwnd) {
Global CopyOfData := StrGet(NumGet(lParam + 8))
}