Single Post - Autorun :: Total Commander

Hidden text

Code:

#NoTrayIcon

If StringInStr(FileGetAttrib($filename), "D") Then Exit

Local $sExifPath = EnvGet("util_ET") ; Путь к exiftool
Global $sArgFile = @TempDir & "\exiftool_args.txt"
Global $sOutFile = @TempDir & "\exiftool_out.txt"

; Подготовка файла аргументов
FileDelete($sArgFile)
FileWrite($sArgFile, "")

; Запуск процесса ExifTool (один раз)
If Not ProcessExists("exiftool.exe") Then
   ; Используем $STDIN_CHILD + $STDOUT_CHILD для взаимодействия
   Global $iPID = Run($sExifPath & ' -stay_open True -@ "' & $sArgFile & '"', "", @SW_HIDE, 0x3)
EndIf

$content = GetTag($filename, "Title")
; MsgBox(64, "Результат", $content)

; Закрываем ExifTool
; Quit()

ConsoleWrite($content)

; --- Функция получения данных ---
Func GetTag($sFile, $sTag)
If FileExists($sOutFile) Then FileDelete($sOutFile)

; Формируем команду
; -s3: только значение, -S: краткий формат, -echo4: выводит маркер в StdOut после завершения
Local $sCmd = "-s3" & @LF & "-" & $sTag & @LF & "-W+!" & @LF & $sOutFile & @LF & $sFile & @LF & "-execute" & @LF

; Записываем команду в файл аргументов
Local $hFile = FileOpen($sArgFile, 1) ; 1 = Write mode (append)
FileWrite($hFile, $sCmd)
FileClose($hFile)

Local $hFile
Local $sOut = ""

While 1
   $hFile = FileOpen($sOutFile)
   If $hFile <> -1 Then
      $sOut = FileRead($hFile)
      FileClose($hFile)
      FileDelete($sOutFile)
      ExitLoop
   EndIf
WEnd

Return $sOut
EndFunc

; --- Функция закрытия ---
Func Quit()
Local $hFile = FileOpen($sArgFile, 1)
FileWrite($hFile, "-stay_open" & @LF & "False" & @LF)
FileClose($hFile)
ProcessWaitClose("exiftool.exe")
FileDelete($sArgFile)
EndFunc