Single Post - Autorun :: Total Commander

autorun.cfg

Code:

RegisterCommand 62005 "IconsPanel"

Global BarsPath = %COMMANDER_PATH% & "\Bars\"

Func IconsPanel(Silent = 0)
Local p, n, f, hint, icons

p = RequestCopyDataInfo("SP")
n = RequestCopyDataInfo("SN")
f = p & n

If Not FileExist(f) Then
ShowHint("Файл не существует " & f)
Return
Endif

If StrPos(FileGetAttr(f), "D") Then
ShowHint("Каталог")
Return
Endif

obj = Plugin("IconLibrary")
If ERROR = 0 then
obj.FileName = f
icons = obj.GetValue(0)
If icons > 0 then
hint = "Иконок: " & icons
CreateIconsBar(f, icons)
Else
hint = "Нет иконок"
Endif
hint &= & auCRLF & "Файл " & f
Free(obj)
Else
hint = "Plugin Error " & ERROR
Endif

If icons = 0 Then ShowHint(hint)
EndFunc

Func CreateIconsBar(FileName, Icons)
Local p = BarsPath
Local n = "Auto_icons"
Local bar = p & n & ".bar", i = 0

ShowDarkHint("Загрузка иконок", 0)

If Not CreateNewBar(p, n) Then
ShowDarkHint("Отмена операции", 0)
Return
EndIf

For i = 2 to Icons+1
IniWrite %bar% "Buttonbar" %"'Cmd' & %i%" "100000"
IniWrite %bar% "Buttonbar" %"'Menu' & %i%" %"%i%-2"
IniWrite %bar% "Buttonbar" %"'Button' & %i%" %"%FileName% & ','& %i%-2"
Next

IniWrite %bar% "Buttonbar" "Buttoncount" %"%Icons%+1"
ShowDarkHint("Панель иконок:" & auCRLF & i-1 & " кнопок создано.", 0)
CommandExec("em_open_icons_panel")
EndFunc

Func ShowDarkHint(DarkHint, HintSleep = 1000)
# формат подсказки
SetHintParam("ShowHint", "Font", 10, "Arial")
SetHintParam("ShowHint", "BackColor", 0x001C1C1C)
SetHintParam("ShowHint", "Text", 0xFFFFFF)

ShowHint(DarkHint)

If HintSleep > 0 Then
Sleep(HintSleep)
WinSetState(23)
Else
Sleep(100)
Endif
SetHintParam("ShowHint", "Reload")
EndFunc

# создание новой панели (путь, имя, кнопка возврата)
Func CreateNewBar(BarPath, BarName, BackButton = true)
Local bar, br2, def

bar = BarPath & BarName & ".bar"
br2 = BarPath & BarName & ".br2"

ShellExec /SW_HIDE /WAIT:2000 %COMSPEC% "/c del /f /q ""%bar%"""
ShellExec /SW_HIDE /WAIT:2000 %COMSPEC% "/c del /f /q ""%br2%"""

If FileExist(bar) Then
ShowDarkHint("Ошибка удаления " & bar, 0)
Return false
Endif

IniWrite %bar% "Buttonbar" "Buttoncount" "0"
If ERROR = 1 Then
ShowDarkHint("Ошибка создания " & bar, 0)
Return false
EndIf

IniRead def %COMMANDER_INI% "Buttonbar" "Buttonbar" "%COMMANDER_PATH%\DEFAULT.BAR"

If BackButton Then
IniWrite %bar% "Buttonbar" "Button1" "wcmicons.dll,15"
IniWrite %bar% "Buttonbar" "Cmd1" %def%
IniWrite %bar% "Buttonbar" "Menu1" "Вернуться"
Endif

Return true
EndFunc