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 -- а иначе - просто отрабатываем команды (де)архивации |
|