Single Post - Autorun :: Total Commander

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

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Autorun

Author

Message

Orion9

Posted: Mon Sep 22, 2025 14:15 Post subject:

A55555 wrote:

и пока никаких проблем не нашлось, просто летает и Everything как и не было.

В первый раз вы поставили строку после команды "Return", поэтому до нее не дошла очередь (Return осуществляет выход из функции, прерывая ее выполнение). Во втором варианте строка выхода для Everything стоит перед Return, поэтому успевает отрабатывать.

AkulaBig wrote:

Значит надо искать проблемы в коде, которые не позволяют Everything выгрузиться. У меня этот код работает много лет.

Проблемы в коде, конечно, могут быть, как описано выше, но команда CommandExec em_everything_exit в секции финализации не работает. В то же время подтверждаю, что ShellExec(COMMANDER_PATH & "\Everything.exe", "-exit") в этой же секции работает.

Вчера у меня не было времени тщательнее попробовать, но сейчас это сделал. Из кнопок все работает:

Code:

RegisterCommand 70503 "ToggleEverything"
RegisterCommand 70504 "TerminateEverything"

Func ToggleEverything()
If Not ProcessExist("Everything.exe") Then
CommandExec em_everything
Else
CommandExec em_everything_exit
Endif
EndFunc

Func TerminateEverything()
CommandExec em_everything_exit
EndFunc

Первая команда запускает или закрывает Everything в зависимости от ее сосотояния, вторая просто закрывает. Можно создать em_команду с кодом 70503 и провесить на комбинацию клавиш. У меня сейчас в usercmd.ini такие команды:

Code:

[em_torrent_data_search]
cmd=70500

[em_torrent_data_everything]
cmd=70501

[em_torrent_data_goto_txt]
cmd=70502

[em_everything]
cmd=%COMMANDER_PATH%\Everything.exe
param=-startup

[em_everything_exit]
cmd=%COMMANDER_PATH%\Everything.exe
param=-exit

[em_everything_toggle]
cmd=70503

Висят на кнопках:

Code:

A+T=em_torrent_data_search
A+E=em_torrent_data_everything
A+P=em_torrent_data_goto_txt
CA+E=em_everything_toggle

Loopback wrote:

А вот насчёт отдельной функции (или пары-тройки), не привязанной к интерфейсам плагинов, подумать можно, это должно быть несложно и никак не затронет интерфейс плагина для обычного пользователя.

Хорошо, но можете не спешить с этим, как я писал. Если найдете время и возможность, было бы неплохо посмотреть, что из этого получится.

P.S. Пока уж залез в конфиг, решил немного пофиксить функцию подсказки. Долго это откладывал, но вчера что-то достала своим неприятным обрывом строки в неподходящем месте. Сейчас вроде все норм. Речь идет о правой боковой:

hint.txt

Левая боковая:

size.txt

Здесь я приложу только функцию, дополнительная информация и компоненты в этом посте.

Hidden text

Code:

gHintClipboard = false

Func MagicHint(FileName, FieldIndex, UnitIndex)
If StrPos(FileGetAttr(FileName), "D") Then Return ""
Local bCaps = DllCall("GetKeyState", "int", 0x14, "short")
Local b_CTRL = BitAND(bCaps, 1), b_Shift = IsPressed(0x10)

If Not b_CTRL then b_CTRL = IsPressed (0x11)
If Not b_CTRL Then Return

Static sLib
If auX64 Then
sLib = "MediaInfo.dll" # 64-bit
Else
sLib = "MediaInfo_i386.dll" # 32-bit
EndIf

Static Pipe, Idx = 0, bHint = 0, _
sPath = COMMANDER_PATH & "\Ini\Tools\Libs\", _
sLang ="file://" & sPath & "ru.csv", _
sHint ="file://" & sPath & "hint.txt", _
sSize ="file://" & sPath & "size.txt", _
hLib = DllCall("LoadLibrary", "Wstr", sPath & sLib, "Ptr"), _
pNew, pOpen, pDel, pOpt, pInfo

If hLib = 0 And FieldIndex > 1 Then Return

If FieldIndex = 1 Then

If hLib = 0 Then Return "Error LoadLibrary " & sLib

Idx = 0
pNew = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_New", "Ptr")
pOpen = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Open", "Ptr")
pDel = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Delete", "Ptr")
pOpt = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Option", "Ptr")
pInfo = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Inform", "Ptr")

Local hMI = DllCall(pNew, "Ptr")
If hMI = 0 Then Return "MediaInfo.dll couldn't create new object"

If DllCall(pOpen, 'Ptr', hMI, "Wstr", FileName, "Uint") <> 1 Then
DllCall(pDel, "Ptr", hMI)
Return "MediaInfo.dll couldn't open file " & FileName
EndIf

bHint = 0
Local x, y, w
Local hWnd = RequestInfo(ItemAtCursor("panel"))
WinGetPos("", "", "w", "", hWnd)
If w > 0 Then
MouseGetPos("x","y")
Static buf = Buffer(8) # POINT
buf.Zero()
buf.SetNum(0, "long", x, "long", y)
DllCall("ScreenToClient", "hwnd", hWnd, "ptr", buf.ptr)
x = buf.GetNum(0)
Switch Round(x/w*100,0)
Case 0 To 9
b_Shift = 1
Case 10 To 84
# Pipe = ''
# Return
Case 85 To 100
bHint = true
EndSwitch
EndIf

If b_Shift Then
DllCall(pOpt, 'Ptr', hMI, "Wstr", "Complete", "Wstr", "1", "Wstr")
Else
DllCall(pOpt, 'Ptr', hMI, "Wstr", "Complete", "Wstr", "0", "Wstr")
EndIf

If bHint Then
DllCall(pOpt, "Ptr", hMI, "Wstr", "Output", "Wstr", sHint, "Wstr")
ElseIf b_Shift Then
DllCall(pOpt, "Ptr", hMI, "Wstr", "Output", "Wstr", sSize, "Wstr")
Else
DllCall(pOpt, "Ptr", hMI, "Wstr", "Output", "Wstr", "", "Wstr")
EndIf

DllCall(pOpt, 'Ptr', hMI, "Wstr", "Language", "Wstr", (bHint ? "" : sLang), "Wstr")
Pipe = DllCall(pInfo, 'Ptr', hMI, "Uint", 0, "Wstr")
If bHint Then Pipe = StrReplace(Pipe, Chr(32), Chr(160))
DllCall(pOpt, 'Ptr', hMI, "Wstr", "Language", "Wstr", "", "Wstr")
DllCall(pDel, "Ptr", hMI)
If IsPressed(0x5B) Then Idx = 50
If gHintClipboard Then ClipPut(Pipe)
Endif
If bHint Then Return StrPart(Pipe, auCRLF, FieldIndex)
Return FixSpaces(StrPart(Pipe, auCRLF, FieldIndex + Idx))
EndFunc

Func FixSpaces(String)
Local a, b
If Not StrPos(String, ":") Then Return String
a = StrPart(String, ":", 1)
b = StrPart(String, ":", 2) & StrPart(String, ":", 3)
Return StrTrim(a) & ": " & FixCodePage(StrTrim(b))
EndFunc

Func FixCodePage(String)
Local bUsedRepl
# iso-8859-1 = 28591
DllCall("WideCharToMultiByte", _
"uint", 28591, _
"dword", 0, _
"wstr", String, _
"int", -1, _
"ptr", 0, _
"int", 0, _
"ptr", 0, _
"bool*", @bUsedRepl)
If bUsedRepl Then Return String
Local nSize = StrLen(String)
Local buf = Buffer(nSize)
buf.Zero()
DllCall("WideCharToMultiByte", _
"uint", 28591, _
"dword", 0, _
"wstr", String, _
"int", -1, _
"ptr", buf.ptr, _
"int", nSize, _
"ptr", 0, _
"ptr", 0)
Local fixed = buf.GetStr(0, nSize, "ANSI")
Free(buf)
Return fixed
EndFunc

Теперь путь к библиотеке немного проще прописать и добавил переменную gHintClipboard если нужно, чтобы информация в буфер попадала.