Bulat_Ziganshin
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: case args of
["--settings-dialog"] -> openSettingsDialog -- Диалог настроек
"--add-dialog":xs -> openDialog xs exec add -- Диалог упаковки
"--extract-dialog":xs -> openDialog xs exec extract -- Диалог распаковки
["--register"] -> changeRegisterShellExtensions args -- Регистрация в Explorer
["--unregister"] -> changeRegisterShellExtensions args -- Удаление регистрации в Explorer
[] -> myGUI run args -- При вызове программы без аргументов или с одним аргументом (именем каталога/архива)
[_] -> myGUI run args -- запускаем полноценный Archive Manager
_ -> startGUI >> exec args -- а иначе - просто отрабатываем команды (де)архивации |
|
