Total Commander (English) • Autohotkey: send internal commands with parameters (user defined commands)

Code:

GetTotalCommanderTabs(ByRef winId) {    ; Creates user command (if necessary) in usercmd.ini     ; and uses it to request the current tabs file.     ; If the second panel is enabled, file contains tabs from all panels,     ; otherwise file contains tabs from the active panel        static TABS_RESULT, CONFIG, COMMAND    static created := false    if created        return TABS_RESULT        ; Search for TC main directory    static APPDATA_PATH := A_AppData "\GHISLER\"         if !FileExist(APPDATA_PATH) {            static PATH        WinGet, PATH, ProcessPath, ahk_id %winId%                ; Remove exe name        PATH := SubStr(PATH, 1, InStr(PATH, "\",, -12))         APPDATA_PATH := PATH           }            TABS_RESULT := APPDATA_PATH "Tabs.tab"    CONFIG      := APPDATA_PATH "usercmd.ini"    COMMAND     := "EM_SaveAllTabs"           ; Check and create user command    loop, 4 {        ; Read the contents of the config until it appears or the loop ends with an error        IniRead, _section, % CONFIG, % COMMAND        if (_section && _section != "ERROR") {            created := true            return TABS_RESULT        }                            ; Set normal attributes (write access)        FileSetAttrib, n, % APPDATA_PATH        FileSetAttrib, n, % CONFIG        sleep, 20 * A_Index                ; Create new section        FileAppend,        (LTrim            # Please dont add commands with the same name            [%COMMAND%]            cmd=SaveTabs2             param=`"%TABS_RESULT%`"                    ), % CONFIG        sleep, 50 * A_Index    }    return LogError(Exception("Unable to create configuration", "Total Commander config", CONFIG " doesnt exist and cannot be created. Create it manually in the " APPDATA_PATH))}

Code:

GetTotalCommanderPaths(ByRef winId) {    ; Requests a file with current tabs and analyzes it.     ; Searches for the active tab using the "activetab" parameter    global Paths           try {         _tabs := GetTotalCommanderTabs(winId)        try FileDelete, % _tabs        TotalCommanderUserCommand(winId, "EM_SaveAllTabs")                loop, 600 {            if FileExist(_tabs) {                _paths  := []                                ; Tabs index starts with 0, array index starts with 1                _active := _last := 0                                Loop, read, % _tabs                {                    ; Omit the InStr key and SubStr from value position                    if (_pos := InStr(A_LoopReadLine, "path=")) {                                        _paths.push(SubStr(A_LoopReadLine, _pos + 5))                    }                    if (_num := InStr(A_LoopReadLine, "activetab=")) {                        ; Skip next active tab by saving last                        _active := _last                        _last   := SubStr(A_LoopReadLine, _num + 10)                                    }                }                                ; Push the active tab to the global array first                Paths.push(_paths[_active + 1])                                ; Remove duplicate and add the remaining tabs                _paths.removeAt(_active + 1)                Paths.push(_paths*)                return            }            sleep, 20        }        return LogError(Exception("Unable to access tabs", "Total Commander tabs", "Close Total Commander. The architecture of the script and Total Commander must be the same: " . (A_PtrSize * 8)))            } catch _error {        LogError(_error)    }}