Autorun :: Total Commander

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

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Autorun
Goto page Previous 1, 2, 3 ... 241, 242, 243

Total Commander Forum Index -> Плагины Total Commander

View previous topic :: View next topic

Author

Message

AkulaBig

Joined: 03 Dec 2008
Posts: 638

(Separately) Posted: Thu Oct 08, 2026 16:48 Post subject:

Orion9 Прописал If StrPos(u[i], wrong) Then u[i] = FixFFFD(u[i], a[i]). Сразу посыпалась ошибки: Не на всех файлах. Возможно где были крякозябры. Надо тестить. Но есть еще очень неприятный момент, который только сейчас увидел. Для MI функцию конвертации делал сансей. А сегодня увидел, как наша отображает тот тестовый файл: MI с преобразованием от сансея ET с нашим преобразованием С тайм-аутом колонки не работают. Может сейчас у вас изменения. Потестю еще, но пока надо с крякозябрами разобраться. А, посмотрел внимательно. Вы тайм-аут все с временными файлами используете. Это не рабочий вариант, с колонками не будет работать. Так что не буду тестить. Подсказка обязательно должна быть через потоки. Конечно я имею ввиду рабочий вариант совместной работы подсказки и колонок в сборке. Естественно ваши тестовые функции можно основывать хоть на чем.

Orion9

Joined: 01 Jan 2024
Posts: 1283

(Separately) Posted: Thu Oct 08, 2026 19:16 Post subject:

AkulaBig wrote:

Сразу посыпалась ошибки:

У себя такого не наблюдаю, скиньте файл, на котором возникает эта ошибка.

С кракозябрами тоже проблем не вижу, скрин с Таней Булановой выше как раз это показывает.

AkulaBig

Joined: 03 Dec 2008
Posts: 638

(Separately) Posted: Thu Oct 08, 2026 19:59 Post subject:

Orion9 Файл с крякозябрами я выложил в том-же архиве, на который выше ссылку дал. А файлы с ошибкой не вижу смысла выкладывать. Посмотрел сейчас, не нашел где у вас начало кода, на который вы ссылаетесь. Можете выложить полный код, который вы используете? Пусть он даже с временными файлами, но полностью рабочий. А то вы пишите заменил то, заменил се. Смотри функции выше. Но я не смог найти начала.

Orion9

Joined: 01 Jan 2024
Posts: 1283

(Separately) Posted: Fri Oct 09, 2026 13:03 Post subject:

AkulaBig wrote:

Можете выложить полный код, который вы используете?

Полный код MediaInfo.aucfg

Hidden text

Code:

Pragma IncludeOnce

# 71000-71099

RegisterCommand 71000 "Duration"
RegisterCommand 71010 "MediaInfoTest"

# Alt+F12
SetHotkeyAction /K:A /H:F12 SetHintFields

# Alt+1(..5)
SetHotkeyAction /K:A /H:1 /DM /S ShowPipeEx 0 1
SetHotkeyAction /K:A /H:2 /DM /S ShowPipeEx 0 2
SetHotkeyAction /K:A /H:3 /DM /S ShowPipeEx 0 3
SetHotkeyAction /K:A /H:4 /DM /S ShowPipeEx 0 4
SetHotkeyAction /K:A /H:5 /DM /S LeftsideHintType

# Win+CapsLock
SetHotkeyAction /V:20 /K:W MediaHintType

# путь к библиотеке MediaInfo и утилите ExifTool
Global gMediaInfoX32 = COMMANDER_PATH & "\Ini\Tools\Libs\MediaInfo_i386.dll"
Global gMediaInfoX64 = COMMANDER_PATH & "\Ini\Tools\Libs\MediaInfo.dll"
Global gMediaExifX32 = COMMANDER_PATH & "\Tools\ExifTool\exiftool.exe"

# флаги запущенной операции, тип подсказки, лог операции
Global gDurationInfo = 0, gDurationBreak = false, gDurationBaloon = 1, gDurationLog = ""

# фильтр расширений для аудио файлов
Global gFilterAudio = ".aac .ac3 .aif .aiff .aifc .afc .ape .au .snd .cda .dsf .dts .dtswav .dtshd .dtsma .eac3 .flac .fla .m1a .m2a .mka .mpa .mp1 .mp2 .mp3 .mp4 .m4a .m4b .m4r .mod .mpc .mp+ .mpp .oga .ogx .ogg .ra .spx .opus .qoa .svx .8svx .tak .tta .wav .wave .w64 .bwf .rf64 .wma .wv"

# фильтр расширений для видео файлов
Global gFilterVideo = ".avi .wmv .wmp .wm .asf .mpg .mpeg .mpe .m1v .m2v .mpv2 .mp2v .ts .tp .tpr .trp .vob .ifo .ogm .ogv .mp4 .m4v .m4p .m4b .3gp .3gpp .3g2 .3gp2 .mkv .rm .ram .rmvb .rpm .flv .swf .mov .qt .amr .nsv .dpg .m2ts .m2t .mts .dvr-ms .k3g .skm .evo .nsr .amv .divx .webm .wtv .f4v .mxf"

# внутренние переменные для подсказки
Global gBTipWndProc, gBTipWnd = Map(), gBTip = 0
Global gBText = Buffer(1024*4), gBTool = Buffer(auX64 ? 56 : 40)
Global gBTipX, gBTipY
Global gBTipWP = Callback("BTipWndProc", "hwnd;uint;wparam;lparam")

# запуск операции
Func Duration(lParam)
# операция уже запущена
# прервать и выйти при повторном вызове
If gDurationInfo > 0 Then
gDurationBreak = true
Sleep(250)
Return
EndIf
# создание окна подсказки
If gDurationBaloon Then
gBTip = CreateBaloonTip("MediaInfo", 1, 200)
If gBTip = 0 Then Return MsgBox("Не удалось создать окно подсказки BaloonTip")
EndIf
# запуск подсчета в отдельном потоке
RunThread DurationInfo
EndFunc

Func DurationInfo()
# запоминание времени старта
Local T1 = GetUptime(), T2 = T1

# состояние клавиш модификаторов
Local bCaps = BitAND(DllCall("GetKeyState", "int", 0x14, "short"), 1)
Local bCtrl = IsPressed(0x11), bShift = IsPressed(0x10), bAlt = IsPressed(0x12)

# загрузка библиотеки MediaInfo в зависимости от рязрядности ТС
Static sLib = auX64 ? gMediaInfoX64 : gMediaInfoX32
Static hLib = DllCall("LoadLibrary", "wstr", sLib, "ptr")

# общий фильтр для медиа файлов
Static sExt = gFilterAudio & " " & gFilterVideo

# модификатор Alt
# выбор "движка" операции
If Not bAlt Then
If hLib = 0 Then
ShowMediaHint("Error LoadLibrary " & sLib)
Return
EndIf
Static pNew = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_New", "Ptr")
Static pOpen = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Open", "Ptr")
Static pGet = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Get", "Ptr")
Static pDel = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Delete", "Ptr")
Local hMI = DllCall(pNew, "Ptr")
If hMI = 0 Then
ShowMediaHint("MediaInfo.dll couldn't create new object")
Return
Endif
Else
Local obj = Plugin("TCMediaInfo")
If ERROR <> 0 Then
ShowMediaHint("TCMediaInfo.wdx plugin error " & ERROR)
Return
Endif
EndIf

# продолжительность
Local sDuration

# выделение на панели
Local aSel = List()
aSel.Text = GetSelectedItems(3, 0)

# текущий файл на панели
Local sPath = RequestCopyDataInfo("SP")
Local sName = RequestCopyDataInfo("SN")
Local sFile = sPath & sName

# проверка существования файла
If aSel.Count = 0 Then
If Not FileExist(sFile) Then
ShowMediaHint("Файл не существует " & sFile)
Free(aSel)
If bAlt Then Free(obj)
Return
Endif
EndIf

# вывод результата для одиночного файла
If aSel.Count = 0 And Not StrPos(FileGetAttr(sFile), "D") Then
Free(aSel)
If bAlt Then
obj.FileName = sFile
sDuration = obj.GetValue(0) # duration
Free(obj)
Else
If DllCall(pOpen, "Ptr", hMI, "Wstr", sFile, "Uint") <> 1 Then
Return ShowMediaHint("MediaInfo.dll coudn't open file " & sFile)
EndIf
sDuration = DllCall(pGet, "Ptr", hMI, "Int", 0, "Int", 0, _
"Wstr", "Duration/String3", "Int", 1, "Int", 0, "Wstr")
EndIf
Return ShowMediaHint("Файл: " & sName & auCRLF & "Длительность: " & sDuration, 1)
Endif

gDurationInfo = 1
gDurationBreak = false
ShowMediaHint("Загрузка", 1)

Local i, j, valid = 0, extlog = false
Local dirs = 0, files = 0, errs = 0, item = 0, aFiles = List()
Local depth = (bCtrl ? 1 : 0), ms = 0, vc = "", ac = "", seconds = 0

# загрузка файлов в массив
If aSel.Count > 0 Then
For j = 0 To aSel.Count - 1
sFile = sPath & aSel[j]
If FileExist(sFile) Then
valid += 1
aFiles.Add(sFile)
If StrPos(FileGetAttr(sFile), "D") Then
If ListMediaFiles(sFile, aFiles, depth) > 0 Then aFiles.Count = 0
EndIf
EndIf
Next
sName = aSel.Count & "/" & valid
Else
aFiles.Add(sFile)
ListMediaFiles(sFile, aFiles, depth)
EndIf

Free(aSel)

# файлов в массиве больше одного
If aFiles.Count > 1 Then
ShowMediaHint("Depth: " & depth & auCRLF & _
"Filter: " & (Not bShift ? "Yes" : "No") & auCRLF & _
(bAlt ? "TCMediaInfo.wdx" : "MediaInfo.dll") & auCRLF & _
"Элементов: " & aFiles.Count & auCRLF & _
"Подсчёт времени...", 1)
EndIf

T2 = GetUptime()
DurationLogString("Duration.Name:" & sName)
DurationLogString("Duration.Items:" & aFiles.Count)

# обработка массива
For i = 0 To aFiles.Count - 1

# расширенный лог
If extlog Then DurationLogString("Duration.File:" & aFiles[i])

# количество каталогов
If StrPos(FileGetAttr(aFiles[i]), "D") Then
dirs += 1
# расширенный лог
If extlog Then DurationLogString("Duration.Directory:" & aFiles[i])
Continue
EndIf

item += 1

If bAlt Then
# поле плагина TCMediaInfo
obj.FileName = aFiles[i]
ms = obj.GetValue(0,3) # duration -> milliseconds
Else
# расширение текущего файла
ext = FileGetExt(aFiles[i])

# фильтр расширений включен
If Not bShift Then
# проверка текущего расширения
If Not StrPos(sExt, '.' & ext) Then
DurationLogString("Duration.Filter:" & aFiles[i])
Continue
EndIf
EndIf

# ошибка библиотеки при открытии файла
If DllCall(pOpen, "Ptr", hMI, "Wstr", aFiles[i], "Uint") <> 1 Then
errs += 1
DurationLogString("Duration.Error:" & aFiles[i])
Continue
EndIf

# количество миллисекунд
ms = DllCall(pGet, "Ptr", hMI, "Int", 0, "Int", 0, _
"Wstr", "Duration", "Int", 1, "Int", 0, "Wstr")
# количество видео дорожек
vc = DllCall(pGet, "Ptr", hMI, "Int", 0, "Int", 0, _
"Wstr", "VideoCount", "Int", 1, "Int", 0, "Wstr")
# количество аудио дорожек
ac = DllCall(pGet, "Ptr", hMI, "Int", 0, "Int", 0, _
"Wstr", "AudioCount", "Int", 1, "Int", 0, "Wstr")
# возможный файл субтитров
If ms > 0 And vc = "" And ac = "" Then
DurationLogString("Duration.Warning:" & aFiles[i])
Continue
EndIf
EndIf

# суммирование миллисекунд и количества файлов
If ms > 0 Then
seconds += ms
files += 1
Else
DurationLogString("Duration.Empty:" & aFiles[i])
EndIf

# случилось прерывание операции
If gDurationBreak = true Or (IsPressed (0x11) And IsPressed (0x1B)) Then
ShowMediaHint("Операция прервана", 1)
Sleep(500)
If gDurationBaloon Then
Static buf = Buffer(160),
buf.Zero()
buf.SetStr("Прервано" & Chr(0))
SendMessage(gBTip, 1057, 3, buf.ptr)
EndIf
Break
EndIf

# обновление статуса каждые полсекунды
If Round(GetUptime() - T2, 0) > 500 Then
ShowMediaHint("Depth: " & depth & auCRLF & _
"Filter: " & (Not bShift ? "Yes" : "No") & auCRLF & _
(bAlt ? "TCMediaInfo.wdx" : "MediaInfo.dll") & auCRLF & _
"Элементов: " & aFiles.Count & auCRLF & _
"Обработка: " & i & " из " & aFiles.Count, 1)
T2 = GetUptime()
EndIf
Next

If bAlt Then Free(obj)
If Not bAlt And hMI <> 0 Then DllCall(pDel, "Ptr", hMI)
gDurationInfo = 0
gDurationBreak = false

# перевод в секунды
seconds = Floor(seconds / 1000)

# вычисление прочих состовляющих
Local day = Floor(seconds / 86400)
Local hour = Floor((seconds - (day * 86400)) / 3600)
Local min = Floor(((seconds - (day * 86400)) - (hour * 3600)) / 60)
Local sec = seconds - (day * 86400 + hour * 3600 + min * 60)
Local total = StrFormat("%02d:%02d:%02d:%02d",day,hour,min,sec)
Local tl = Round(GetUptime() - T1, 0) / 1000

# отчет текущей операции
Local txt = "Имя: " & sName & auCRLF & _
"Каталогов: " & dirs & auCRLF & _
"Элементов: " & aFiles.Count & auCRLF & _
"Обработано: " & files & " из " & item & auCRLF & _
"Ошибки DLL: " & errs & auCRLF & _
"Секунды: " & seconds & auCRLF & _
"Минуты: " & Round(seconds / 60, 2) & auCRLF & _
"Часы: " & Round(seconds / 3600, 2) & auCRLF & _
"Сутки: " & Round(seconds / 86400, 2) & auCRLF & _
"Время: " & Chr(0x2211) & " "& total & auCRLF & _
"Powered by " & (bAlt ? "TCMediaInfo.wdx" : "MediaInfo.dll") & auCRLF & _
"Время операции: " & StrFormat("%.3f", tl) & " sec"
Free(aFiles)

# запись в лог
DurationLogString(txt & auCRLF & auCRLF)

# копирование в буфер
ClipPut(txt)

# отображение отчета
ShowMediaHint(txt, 1)
EndFunc

Func ListMediaFiles(sPath, ByRef aList, nDepth = 1)
Local sFile, nAttr
Local ffd = Buffer(604), bEsc = false
Local hf = DllCall("FindFirstFileW", "wstr", sPath & "\*.*", "ptr", ffd.Ptr)
If hf <> 0 then
While True
sFile = ffd.GetStr(44) # cFileName
nAttr = ffd.GetNum(0, "dword") # dwFileAttributes
If BitAND(nAttr, 16) Then
If Not ((sFile = ".") Or (sFile = "..")) Then
aList.Add(sPath & "\" & sFile)
If nDepth <> 1 Then
ListMediaFiles(sPath & "\" & sFile, aList, nDepth - 1)
EndIf
EndIf
Else
aList.Add(sPath & "\" & sFile)
Endif
If DllCall("FindNextFileW", "handle", hf, "ptr", ffd.Ptr) = 0 Then Break
If IsPressed (0x1B) Then
bEsc = true
Break
EndIf
Wend
DllCall("FindClose", "handle", hf)
Endif
Free(ffd)
Return bEsc
EndFunc

Func DurationLogString(LogString)
gDurationLog &= LogString & auCRLF
EndFunc

Func ShowMediaHint(MediaHint, Persist = false)
# удаление подсказки тотала
If gDurationBaloon And gBTip > 0 Then
Local hTip = WinFind(0, "TToolTip")
If hTip > 0 Then SendMessage(hTip, 0x0010, 0, 0)
UpdateBaloonTip(gBTip, MediaHint)
Return
EndIf
# при неиспользовании BaloonTip
# используется подсказка Autorun
SetHintParam("ShowHint", "Font", 11, "Arial")
#SetHintParam("ShowHint", "BackColor", 0x000000)
#SetHintParam("ShowHint", "Text", 0xFFFFFF)
SetHintParam("ShowHint", "DarkBackColor", 0xFF0000)
SetHintParam("ShowHint", "DarkText", 0xFFFFFF)
If Persist Then
ShowHint(MediaHint)
Else
ShowHint(MediaHint, "", "", 3000, 1)
EndIf
Sleep(10)
SetHintParam("ShowHint", "Reload")
EndFunc

Func MediaInfoTest(lParam)
Local sFile = RequestCopyDataInfo("SP") & RequestCopyDataInfo("SN")
If Not FileExist(sFile) Then
ShowHint("Файл не существует " & sFile)
Return
Endif
If StrPos(FileGetAttr(sFile), "D") Then
ShowHint("Каталог " & sFile)
Return
Endif
Static sLib = auX64 ? gMediaInfoX64 : gMediaInfoX32
Static hLib = DllCall("LoadLibrary", "wstr", sLib, "ptr")
If hLib = 0 Then
ShowHint("Error LoadLibrary " & sLib)
Return
EndIf
Static sPath = FileGetDir(sLib)
Static sLang ="file://" & sPath & "\ru.csv"
Static pNew = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_New", "Ptr")
Static pOpen = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Open", "Ptr")
Static pGet = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Get", "Ptr")
Static pDel = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Delete", "Ptr")
Static pOpt = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Option", "Ptr")
Static pInfo = DllCall("GetProcAddress", "Ptr", hLib, "Str", "MediaInfo_Inform", "Ptr")
Local hMI = DllCall(pNew, "Ptr")
If hMI = 0 Then
ShowHint("MediaInfo.dll couldn't create new object")
Return
Endif
If DllCall(pOpen, 'ptr', hMI, "wstr", sFile, "uint") <> 1 Then
DllCall(pDel, "Ptr", hMI)
Return ShowHint("MediaInfo.dll couldn't open file " & sFile)
EndIf
Local sMI
sMI &= "Duration: "
sMI &= DllCall(pGet, 'ptr', hMI, "int", 0, "int", 0, "wstr", "Duration", "int", 1, "int", 0, "wstr") & auCRLF
sMI &= "Video: "
sMI &= DllCall(pGet, 'ptr', hMI, "int", 0, "int", 0, "wstr", "VideoCount", "int", 1, "int", 0, "wstr") & auCRLF
sMI &= "Audio: "
sMI &= DllCall(pGet, 'ptr', hMI, "int", 0, "int", 0, "wstr", "AudioCount", "int", 1, "int", 0, "wstr") & auCRLF
sMI &= "Recorded: "
sMI &= DllCall(pGet, 'ptr', hMI, "int", 0, "int", 0, "wstr", "Recorded_Date", "int", 1, "int", 0, "wstr") & auCRLF
sMI &= "Cover: "
sMI &= DllCall(pGet, 'ptr', hMI, "int", 0, "int", 0, "wstr", "Cover", "int", 1, "int", 0, "wstr") & auCRLF
sMI &= "Cover Mime: "
sMI &= DllCall(pGet, 'ptr', hMI, "int", 0, "int", 0, "wstr", "Cover_Mime", "int", 1, "int", 0, "wstr") & auCRLF
sMI &= "Track/Position: "
sMI &= DllCall(pGet, 'ptr', hMI, "int", 0, "int", 0, "wstr", "Track/Position", "int", 1, "int", 0, "wstr")
If IsPressed(0x11) Then
sMI = ""
DllCall(pOpt, "Ptr", hMI, "Wstr", "Complete", "Wstr", "0", "Wstr")
DllCall(pOpt, 'Ptr', hMI, "Wstr", "Language", "Wstr", sLang, "Wstr")
DllCall(pOpt, "Ptr", hMI, "Wstr", "Output", "Wstr", "Inform", "Wstr")
Local lst = List()
lst.Text = DllCall(pInfo, "Ptr", hMI, "Uint", 0, "Wstr")
For line in lst
sMI &= FixSpaces(line) & auCRLF
Next
Free(lst)
EndIf
DllCall(pDel, "Ptr", hMI)
If gDurationBaloon Then
gBTip = CreateBaloonTip("MediaInfo", 1, 300)
If gBTip = 0 Then Return MsgBox("Не удалось создать окно подсказки BaloonTip")
EndIf
If StrTrim(sMI) = "" Then sMI = "нет данных"
ShowMediaHint(sMI)
EndFunc

Func CreateBaloonTip(TipTitle, TipIcon, TipWidth)
Static TTM_TRACKACTIVATE = 1041, _
TTM_TRACKPOSITION = 1042, _
TTM_SETMAXTIPWIDTH = 1048, _
TTM_SETTITLE = 1057, _
TTM_ADDTOOL = 1074
Local hTip
hTip = DllCall("CreateWindowExW", _
"dword", 8, _
"wstr", "tooltips_class32", _
"wstr", "", _
"dword", 0x00000c0, _
"int", 0, "int", 0, "int", 0, "int", 0, _
"handle", AUTORUN_TCHANDLE, _
"handle", 0, "handle", 0, "ptr", 0, "handle")
If hTip = 0 Then Return 0
MouseGetPos("gBTipX","gBTipY")
#gBTipWnd.Set(hTip, MakeInt(gBTipX, gBTipY, 2))
gBTipWndProc = DllCall("SetWindowLong" & (auX64 ? "PtrW" : "W"), _
"hwnd", hTip, "int", -4, "long_ptr", gBTipWP.Ptr, "ptr")
Local buf = Buffer(160)
buf.Zero()
buf.SetStr(TipTitle & Chr(0))
SendMessage(hTip, TTM_SETTITLE, TipIcon, buf.ptr)
gBText.Zero()
gBText.SetStr("Инициализация" & Chr(0))
gBTool.Zero() # TTTOOLINFO
If auX64 Then
gBTool.SetNum(0, "uint", gBTool.size, _
"uint", 0x00a0, _
"hwnd", AUTORUN_TCHANDLE, _
"uint_ptr", 0)
gBTool.SetNum(48, "ptr", gBText.ptr)
Else
gBTool.SetNum(0, "uint", gBTool.size, _
"uint", 0x00a0, _
"hwnd", AUTORUN_TCHANDLE, _
"uint_ptr", 0, _
"long", 0, _
"long", 0, _
"long", 0, _
"long", 0, _
"ptr", 0, _
"ptr", gBText.ptr)
EndIf
SendMessage(hTip, TTM_SETMAXTIPWIDTH, 0, TipWidth)
SendMessage(hTip, TTM_ADDTOOL, 0, gBTool.ptr)
SendMessage(hTip, TTM_TRACKACTIVATE, 1, gBTool.ptr)
SendMessage(hTip, TTM_TRACKPOSITION, 0, MakeInt(gBTipX, gBTipY, 0))
Free(buf)
Return hTip
EndFunc

Func UpdateBaloonTip(hTip, TipText)
Static TTM_UPDATETIPTEXT = 1081
gBText.Zero()
gBText.SetStr(TipText & Chr(0))
SendMessage(gBTip, TTM_UPDATETIPTEXT, 0, gBTool.ptr)
EndFunc

Func BTipWndProcTest(hWnd, uMsg, wParam, lParam)
Static IsDrag = 0, _
MK_LBUTTON = 0x0001, _
WM_MOUSEMOVE = 0x0200, _
WM_LBUTTONDOWN = 0x0201, _
WM_LBUTTONUP = 0x0202, _
TTM_TRACKPOSITION = 1042
Static tx, ty
Switch uMsg
Case WM_LBUTTONDOWN
If IsDrag = 0 Then
MouseGetPos("tx","ty")
If DllCall("DragDetect", "hwnd", hWnd, "int64", MakeInt(ty, tx, 2)) Then
IsDrag = 1
DllCall("SetCapture", "hwnd", hWnd, "hwnd")
EndIf
EndIf
Case WM_LBUTTONUP
If IsDrag = 1 Then
WinGetPos("gBTipX", "gBTipY", "", "", hWnd)
IsDrag = 0
DllCall("ReleaseCapture")
Else
DllCall("DestroyWindow", "handle", hWnd)
EndIf
Case WM_MOUSEMOVE
If IsDrag = 1 And BitAND(wParam, MK_LBUTTON) Then
MouseGetPos("x","y")
SendMessage(hWnd, TTM_TRACKPOSITION, 0, MakeInt(gBTipX+(x-tx), gBTipY+(y-ty), 0))
EndIf
EndSwitch
Return DllCall("CallWindowProcW", _
"ptr", gBTipWndProc, "hwnd", hWnd, "uint", uMsg, "wparam", wParam, "lparam", lParam)
EndFunc

Func BTipWndProc(hWnd, uMsg, wParam, lParam)
Static IsDrag = 0, _
WM_CREATE = 0x0001, _
WM_DESTROY = 0x0002, _
WM_SHOWWINDOW = 0x0018, _
MK_LBUTTON = 0x0001, _
WM_MOUSEMOVE = 0x0200, _
WM_LBUTTONDOWN = 0x0201, _
WM_LBUTTONUP = 0x0202, _
WM_RBUTTONUP = 0x0205, _
TTM_TRACKACTIVATE = 1041, _
TTM_TRACKPOSITION = 1042
Static SM_CXDRAG = 68, _
SM_CYDRAG = 69, _
DragWidth = GetSystemMetrics(SM_CXDRAG), _
DragHeight = GetSystemMetrics(SM_CYDRAG), _
StartX = 0, _
StartY = 0
Local x, y
Static tx, ty, buf = Buffer(8)
Switch uMsg
Case WM_SHOWWINDOW
If wParam = 0 Then DllCall("DestroyWindow", "handle", hWnd)
Case WM_DESTROY
If gDurationInfo Then
gDurationBreak = true
MsgBox("Операция отменена")
Return 0
EndIf
Case WM_LBUTTONDOWN
If IsDrag = 0 Then
buf.Zero()
x = BitAND(lParam, 0xFFFF)
y = BitAND(BitShift(lParam,16), 0xFFFF)
StartX = x
StartY = y
buf.SetNum(0, "int", x, "int", y)
DllCall("ClientToScreen", "hwnd", hWnd, "ptr", buf.ptr)
tx = buf.GetNum(0)
ty = buf.GetNum(4)
WinGetPos("gBTipX", "gBTipY", "", "", hWnd)
IsDrag = 1
DllCall("SetCapture", "hwnd", hWnd, "hwnd")
EndIf
Case WM_LBUTTONUP
If IsDrag = 1 Then
WinGetPos("gBTipX", "gBTipY", "", "", hWnd)
IsDrag = 0
DllCall("ReleaseCapture")
Else
DllCall("DestroyWindow", "handle", hWnd)
EndIf
Case WM_MOUSEMOVE
If IsDrag = 1 And BitAND(wParam, MK_LBUTTON) Then
x = BitAND(lParam, 0xFFFF)
y = BitAND(BitShift(lParam,16), 0xFFFF)
If Abs(x - startX) > DragWidth Or Abs(y - startY) > DragHeight Then
buf.Zero()
buf.SetNum(0, "int", x, "int", y)
DllCall("ClientToScreen", "hwnd", hWnd, "ptr", buf.ptr)
x = buf.GetNum(0)
y = buf.GetNum(4)
SendMessage(hWnd, TTM_TRACKPOSITION, 0, MakeInt(gBTipX+(x-tx), gBTipY+(y-ty), 0))
EndIf
EndIf
Case WM_RBUTTONUP
BTipShowMenu(hWnd)
EndSwitch
Return DllCall("CallWindowProcW", _
"ptr", gBTipWndProc, "hwnd", hWnd, "uint", uMsg, "wparam", wParam, "lparam", lParam)
EndFunc

Func BTipShowMenu(hWnd)
ShowPopupMenu /D /F /I:0 "BTipCreateMenu"
EndFunc

Func BTipCreateMenu()
Local txt
txt &= 'MENUITEM "Лог операций", em_aucmd ' & (gDurationLog <> "" ? "" : "/D") & ' -1 DurationText' & auCRLF
Return txt
EndFunc

Func DurationText()
Local sLogFile = TEMP & "\duration.txt"
FileWrite(sLogFile, gDurationLog)
ShellExec(sLogFile)
EndFunc

Func MediaHint(FileName, FieldIndex, UnitIndex)
If FieldIndex > gHintLines Then Return
If StrPos(FileGetAttr(FileName), "D") Then Return ""
Local bCaps = DllCall("GetKeyState", "int", 0x14, "short")
Local bCtrl = BitAND(bCaps, 1), bShift = IsPressed(0x10)

If gHintWdx Then bShift = true
If Not bCtrl then bCtrl = IsPressed (0x11)
If gHintCaps And Not bCtrl Then Return

Static sLib = auX64 ? gMediaInfoX64 : gMediaInfoX32
Static hLib = DllCall("LoadLibrary", "Wstr", sLib, "Ptr")

Static sPath = FileGetDir(sLib) & "\"
Static sLang ="file://" & sPath & "ru.csv", _
sHint ="file://" & sPath & "hint.txt", _
sSize ="file://" & sPath & "size.txt"

Static bLang = true, nWait = 0, _
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")
nWait = 0
bLang = true
sMode = "Inform"
If gHintWait > 0 Then Sleep(gHintWait)

Local x, y, w, nCase = 0
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 gHintLayout[0]-1
nCase = 0
Case gHintLayout[0] To gHintLayout[0]+gHintLayout[1]-1
nCase = 1
Case 100-gHintLayout[2] To 100
nCase = 2
EndSwitch
nWait = gHintSleep[nCase]
sMode = gHintContent[nCase]
EndIf

If bShift Then
If gHintWdxList.Count <= nCase Then
gHintPipe = "" & auCRLF & "Autorun: No data in " & gHintWdxCfg
Return
EndIf
gHintPipe = ""
Static aWdx = List()
aWdx.Count = 0
aWdx.Split(gHintWdxList[nCase], ";")
For i = 0 To aWdx.Count - 1
gHintPipe &= MediaHintWDX(aWdx[i], FileName)
Next
gHintPipe = StrTrim(gHintPipe)
If gHintPipe = "" Then
gHintPipe = "" & auCRLF & "Autorun: No data in " & gHintWdxCfg
Return
EndIf
gHintPipe = "" & auCRLF & gHintPipe
Return
EndIf

If nWait > 0 Then Sleep(nWait)
If sMode = "" Then
gHintPipe = ""
Return
ElseIf sMode <> "Inform" Then
bLang = false
sMode ="file://" & sPath & sMode
EndIf

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

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

DllCall(pOpt, "Ptr", hMI, "Wstr", "Output", "Wstr", sMode, "Wstr")
DllCall(pOpt, 'Ptr', hMI, "Wstr", "Language", "Wstr", (Not bLang ? "" : sLang), "Wstr")

gHintPipe = DllCall(pInfo, 'Ptr', hMI, "Uint", 0, "Wstr")
#{
If StrPos(sMode, "hint.txt") Then
gHintPipe = StrReplace(gHintPipe, "DTS HD Master Audio", "DTS-HD MA")
gHintPipe = StrReplace(gHintPipe, "Dolby Digital", "DD")
EndIf
#}
If Not bLang Then gHintPipe = StrReplace(gHintPipe, Chr(32), Chr(160))

DllCall(pOpt, 'Ptr', hMI, "Wstr", "Language", "Wstr", "", "Wstr")
DllCall(pDel, "Ptr", hMI)
Endif
If Not bLang Then Return StrPart(gHintPipe, auCRLF, FieldIndex)
Return FixSpaces(StrPart(gHintPipe, auCRLF, FieldIndex))
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

Func FixCodePageEx(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()
buf.SetStr(String, 0, nSize, "CP:28591")
Local fixed = buf.GetStr(0, nSize, "ANSI")
Free(buf)
Return fixed
EndFunc

Func ShowPipeEx(lParam, nPage)
Local sPipe, nLines = gHintLines
Local aPipe = List(), j, nSect = 0
Local nEnd = nPage*nLines, nStart = nEnd - nLines
If gHintClipb Then ClipPut(gHintPipe)
aPipe.Text = gHintPipe
For j = 0 To aPipe.Count - 1
If aPipe[j] = "" Then nSect += 1
If (j + 1) >= nStart And (j + 1) <= nEnd Then
sPipe &= StrLeft(FixSpaces(aPipe[j]),84) & auCRLF
EndIf
Next
Free(aPipe)
If sPipe = "" Then sPipe = "Out of range"
ShowHint(StrTrim(sPipe))
#Return -1
EndFunc

Func LeftsideHintType()
Static init = gHintContent[0]
If gHintContent[0] = init Then
gHintContent[0] = gHintShift
Else
gHintContent[0] = init
EndIf
ShowRedInfoHint("Left side is " & gHintContent[0])
EndFunc

Global gExifPID = 0, gExifStay = 1, gExifOut = TEMP & "\exiftool_out.txt", gExifArgs = TEMP & "\exiftool_args.txt"

Func SetHintFields()
Local i, sHint
Static c = 0, aHints = List("MediaHint", "ExifHint", "JoinHint")
c += 1
If c > 2 Then c = 0
sHint = aHints[c]
For i = 1 to 60
SetFieldsParam("Func", "C" & i, sHint)
Next
ShowRedInfoHint("Поля подсказки " & sHint)
If c = 1 Then
If gExifStay Then
FileWrite(gExifArgs, "", "UTF-8 NOBOM")
ShellExec /TT /SW_HIDE %gMediaExifX32% "-stay_open True -@ ""%gExifArgs%"""
gExifPID = ProcessGetId("exiftool.exe")
If gExifPID = 0 Then MsgBox("Процесс ExifTool не запущен")
EndIf
Else
If gExifPID > 0 Then ProcessTerminate("~/TT", gExifPID)
EndIf
EndFunc

Func ShowRedInfoHint(HintText)
SetHintParam("ShowHint", "Font", 15, "Arial")
SetHintParam("ShowHint", "BackColor", 0xFF0000)
SetHintParam("ShowHint", "Text", 0xFFFFFF)
ShowHint(HintText, 0, 0, 1000, 1)
WinAlign(LAST_HINT_WINDOW)
Sleep(100)
SetHintParam("ShowHint", "Reload")
EndFunc

Func ExifHint(FileName, FieldIndex, UnitIndex)
If FieldIndex > gHintLines Then Return
If StrPos(FileGetAttr(FileName), "D") Then Return

Local bCtrl = BitAND(DllCall("GetKeyState", "int", 0x14, "short"), 1)
If Not bCtrl then bCtrl = IsPressed (0x11)
If gHintCaps And Not bCtrl Then Return

If FieldIndex = 1 Then
#ProcessExecGetOutput /C:65001 gHintPipe %gMediaExifX32% ' -G -S -lang ru "%FileName%"'
gHintPipe = GetExifInfo(FileName)
Endif
Return FixSpaces(StrPart(gHintPipe, auLF, FieldIndex))
Return StrPart(gHintPipe, auLF, FieldIndex)
EndFunc

Func GetExifInfo(FileName)
Static a = List(), u = List()
Local ansi, utf8, wrong = Chr(0xFFFD)
If Not gExifStay Then
ProcessExecGetOutput ansi %gMediaExifX32% ' -charset filename=Russian -G -S -lang ru "%FileName%"'
Else
Local gExifOut = GetTempFileName()
Local gExifBusy = true

Local sArgs = "-G0" & auCRLF & _
"-lang" & auCRLF & _
"ru" & auCRLF & _
"-W+!" & auCRLF & gExifOut & auCRLF & FileName & auCRLF & "-execute" & auCRLF

Static obj = BinaryFile(gExifArgs, "a")
obj.WriteStr(sArgs, "", "UTF-8")

ansi = "Exiftool <time-out>"
For i = 1 To 10
Sleep(50)
If i = 10 And gExifBusy Then
ExiftoolBusyHint("Exiftool <time-out>")
i = 1
Continue
EndIf
If FileExist(gExifOut) Then
ansi = FileRead(gExifOut, 0, "ANSI")
If ERROR = 1 Then Continue
DllCall("kernel32.dll\DeleteFileW", "Wstr", gExifOut)
Break
EndIf
Next
EndIf
Local nSize = StrLen(ansi)
Local buf = Buffer(nSize)
buf.Zero()
buf.SetStr(ansi, 0, nSize, "ANSI")
utf8 = buf.GetStr(0, nSize, "CP:65001")
Free(buf)
a.Count = 0
u.Count = 0
a.Text = ansi
u.Text = utf8
For i = 0 to u.Count - 1
If StrPos(u[i], wrong) Then u[i] = FixFFFD(u[i], a[i]) & " " & wrong
Next
Return u.text
EndFunc

Func GetTempFileName()
Local tmpfile
Do
tmpfile = TEMP & "\exif_" & Hex(Random(1, 0xFFFFFF, 1), 6) & ".tmp"
Until Not FileExist(tmpfile)
Return tmpfile
EndFunc

Func FixFFFD(uStr, aStr)
Static FFFD = Chr(0xFFFD)

Local uLen = StrLen(uStr), aPos = 1, outStr = "", uChar, byte

For i = 1 To uLen
uChar = StrMid(uStr, i, 1)
code = Asc(uChar)
If code < 0x80 Then
byte = 1
ElseIf code < 0x800 Then
byte = 2
ElseIf code < 0xFFFF Then
byte = 3
# High Surrogate (0xD800 - 0xDBFF)
If code >= 0xD800 And code <= 0xDBFF And i < uLen Then
# Low Surrogate (0xDC00 - 0xDFFF)
low = Asc(StrMid(uStr, i+1, 1))
If low >= 0xDC00 And low <= 0xDFFF Then
# Истинный код = ((High - 0xD800) * 0x400) + (Low - 0xDC00) + 0x10000
code = ((code - 0xD800) * 0x400) + (low - 0xDC00) + 0x10000
byte = 4
i += 1
uChar &= Chr(low)
EndIf
EndIf
EndIf
If uChar = FFFD Then
byte = 1
uChar = StrMid(aStr, aPos, 1)
EndIf
#OutputDebugString('char=' & uChar & ' asc=' & code & ' pos=' & aPos & ' byte=' & byte)
aPos += byte
outStr &= uChar
Next

Return outStr
EndFunc

Func ExiftoolBusyHint(HintText)
#SetHintParam("ShowHint", "Font", 11, "Arial")
SetHintParam("ShowHint", "BackColor", 0xFF0000)
SetHintParam("ShowHint", "Text", 0xFFFFFF)
ShowHint(HintText, "", "", 500, 1)
Sleep(50)
SetHintParam("ShowHint", "Reload")
EndFunc

ReadWdxHintCfg()

Func ReadWdxHintCfg()
gHintWdxList.Count = 0
gHintWdxList.LoadFromFile(gHintWdxCfg)
EndFunc

Func MediaHintWDX(WdxName, Filename)
If Not FileExist(Filename) Then
Return auCRLF & auCRLF & "Файл не существует " & Filename
Endif
Local obj = Plugin(WdxName)
If ERROR <> 0 Then
Return auCRLF & auCRLF & "Autorun: " & WdxName & " plugin error " & ERROR
EndIf
Local i, txt, data
obj.FileName = Filename
For i = 0 To obj.FieldCount -1
data = obj.GetValue(i)
If data = "" Then Continue
txt &= obj.FieldName(i) & ": " & data & auCRLF
Next
Free(obj)
txt = StrTrim(txt)
If StrLen(txt) > 0 Then txt = auCRLF & auCRLF & txt
Return txt
EndFunc

Func MediaHintType()
# переключение переменной
gHintWdx = Not gHintWdx
ShowRedInfoHint("WdxHint.cfg " & (gHintWdx ? "включен" : "выключен"))
EndFunc

Замените этот модуль в последней сборке.

Всё работает

Hidden text

AkulaBig

Joined: 03 Dec 2008
Posts: 638

(Separately) Posted: Fri Oct 09, 2026 14:30 Post subject:

Orion9 wrote:

Полный код MediaInfo.aucfg

Теперь хоть понятно, на чем ваш код основан. Вообще я тоже из него тестировал изначально. Но в какой-то момент запутался.
А посмотрите, какая конфетка получилась на основе кода перекодировки сансея:

Обратите внимание, показывает даже лучше, чем в MI. Для которой этот код писался. Ни одного крякозябра.
Но вот обычные крякозябры увы, не перекодирует:

FallenAngel

Joined: 30 Dec 2025
Posts: 47

(Separately) Posted: Fri Oct 09, 2026 15:09 Post subject:

Orion9 wrote:

Полный код MediaInfo.aucfg

А можно в шапку пару предложений что это и зачем?
И как пользоваться...

Orion9

Joined: 01 Jan 2024
Posts: 1283

(Separately) Posted: Sat Oct 10, 2026 14:07 Post subject:

AkulaBig wrote:

Но вот обычные крякозябры увы, не перекодирует:

Для этого я и сбросил модуль, чтобы найти, где несостыковка.

FallenAngel wrote:

И как пользоваться...

Да, по сути, никак. Все полезное я уже вытащил и оформил в отдельные модули:
https://forum.wincmd.ru/viewtopic.php?t=17741
https://forum.wincmd.ru/viewtopic.php?t=17748

Подсчетом времени воспроисведения часто приходится пользоваться, т.к. слушаю много подкастов и нужно правильно организовывать время. Над подсказкой MediaInfo можно еще работать и работать, но в целом это удобный функционал.

AkulaBig
Всё, цугундер. Жена не разрешает мне бухать, т.ч. сообразить с болваном на троих больше не получится. Очень жаль. Душа рвется в оперу по ночам.

AkulaBig

Joined: 03 Dec 2008
Posts: 638

(Separately) Posted: Sat Oct 10, 2026 17:00 Post subject:

Orion9 wrote:

Всё работает

Даже на вашей гифке видно, что в Test.doc показывает крякозябры.

Orion9 wrote:

Замените этот модуль в последней сборке.

Да-а-а, вытащить нужные функции из этого файла мне практически нереально. Уж очень сильно код стал отличаться. У вас-же выше код был с функциями WriteLine(text), ReadResponse(), ... У меня на этих функциях код основан. Ладно, попробую все-же разобраться с перекодировкой.

FallenAngel

Joined: 30 Dec 2025
Posts: 47

(Separately) Posted: Sat Oct 10, 2026 20:40 Post subject:

Orion9 wrote:

Подсчетом времени воспроисведения часто приходится пользоваться, т.к. слушаю много подкастов и нужно правильно организовывать время. Над подсказкой MediaInfo можно еще работать и работать, но в целом это удобный функционал.

так а почему просто F3 не нажать? Если установлен TCMediaInfo.wdx...

AkulaBig

Joined: 03 Dec 2008
Posts: 638

(Separately) Posted: Sat Oct 10, 2026 22:50 Post subject:

Orion9 wrote:

Всё, цугундер.

Ну если и вы исчезнете, теме каюк придет Sad

Я все понимаю, жизнь есть жизнь, но все-же хоть иногда появляйтесь.
Я вот наконец-то смог переписать вашу функцию перекодировки в более традиционный вид. Теперь все работает как часики. Хотелось бы чтобы вы посмотрели, нормально ли все?

Hidden text

Теперь буду разбираться, как вы подключили код от сансея к ET.
Разобрался. Достаточно было прописать Return FixCPMI(outStr) и все заработало.
Хотелось бы понять, почему в MI не получается перекодировать вот эти крякозябры?

Ведь в ET все правильно отображается:

Orion9

Joined: 01 Jan 2024
Posts: 1283

(Separately) Posted: Sun Oct 11, 2026 14:04 Post subject:

FallenAngel wrote:

так а почему просто F3 не нажать? Если установлен TCMediaInfo.wdx...

Можно. Но подсказка это другой уровень использования. Один раз попробовал - другого не хочется.

AkulaBig wrote:

Даже на вашей гифке видно, что в Test.doc показывает крякозябры.

Один FFFD специально оставлен, чтобы было видно преобразование (об этом писалось выше). Но я согласен, что так не смотрится, можно звездочку попробовать или вообще ничего не добавлять.

AkulaBig wrote:

У вас-же выше код был с функциями WriteLine(text), ReadResponse()

Вы же сами написали, что можно и с файлами, вот я и сделал то, что было быстрее и проще.

Вот обновленный модуль MediaInfo.aucfg, совместимый со сборкой по ссылке выше.

Hidden text

Добавлены глобальные переменные для управления параметрами конвертации gExifFixAnsi = 1, gExifFixFFFD = 1 и режима подсказки gExifBusy = 1, gExifTimeout = 0.

gExifStay = 1 для взаимодействия через файлы, gExifStay = 2 для взаимодействия через устройство вывода. Если оставить 0, то exiftool.exe будет запускаться без режима -StayOpen.

В режиме с файлами добавлен PID для более уникальных имен, чтобы каждая копия ТС работала со своими файлами. Stdout включен по умолчанию. На выходе из Autorun нужно поставить

Code:

ExifClose()
ExifArgsClose()

AkulaBig
Надеюсь, это поможет вам разобраться. У меня просто времени сейчас практически нет. Расчитывал, что будет больше, но увы.

AkulaBig

Joined: 03 Dec 2008
Posts: 638

(Separately) Posted: Sun Oct 11, 2026 14:45 Post subject:

Orion9 wrote:

Один FFFD специально оставлен

Я позже вспомнил, что читал про это. Вопрос снят.

Orion9 wrote:

Вы же сами написали, что можно и с файлами

Я уже со всем разобрался. Выше выложил. А тайм-аут не работает с открытыми колонками. Но все равно спасибо, в копилку закину.

Display posts from previous:

	Total Commander Forum Index -> Плагины Total Commander	All times are GMT + 4 Hours Goto page Previous 1, 2, 3 ... 241, 242, 243
Page 243 of 243

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum