Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Autorun 
Author Message
AkulaBig



PostPosted: Fri Apr 25, 2025 05:41    Post subject: Reply with quote

Orion9 wrote:
То теперь при включеном CapsLock будет отображаться подсказка из шаблона

Сейчас доделаю основные хинты, посмотрю и дополнительные.
Orion9 wrote:
Не парьтесь, это даже на зашквар не тянет.

Проверил, оказалось, что все правильно писал я. Видимо с CLI-версией файл языка автоматически ищется в папке с библиотекой:
Code:

%COMMANDER_PATH%\Utilities\MediaInfo\MediaInfo.exe" "--Language=file://ru.csv" "--Complete=0

Но нашел и на au3:
Code:

; Установить язык названий параметров
DllCall($hDLL, "wstr", "MediaInfo_Option", _
   "ptr", 0, _
   "wstr", "Language", _
   "wstr", "file://" & EnvGet("COMMANDER_PATH") & "\Utilities\MediaInfo\ru.csv")

Так что память подвела.
Теперь главным будет переписать вот этот код с au3 на Autorun:
Code:

$iC = 0
$Tmp = StringToBinary($aMediaInfoInform[0], 2)
$aTmp = StringRegExp(StringTrimLeft($Tmp, 2), '(?s).{4}', 3)
$Tmp = ''
For $i = 0 To UBound($aTmp) - 1
    If StringRight($aTmp[$i], 2) == '00' Then
        $Tmp &= StringLeft($aTmp[$i], 2)
    Else
        $iC = 1
        ExitLoop
    EndIf
Next
If $iC = 1 Then
   $content = $aMediaInfoInform[0]
Else
   $content = BinaryToString('0x' & $Tmp, 1)
EndIf

Этот код переводит крякозябры. Но тут функции au3 применяются, включая рэгэкспы. Не понятно, можно-ли такое на Autorun реализовать.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group