Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
а какие там возможности? В "Создать" тоже нельзя добавлять группу, только пункты (XP)?ммм а что думаешь пунктом создать обойтись?
Да, достаточно там просто создать папку.группа "Отправить" поддерживает создание подгруппы?
@echo off
title Установка меню...
:: список goto
:: Menu - основное меню твика
:: install - инсталляция твика
:: reinstall - перезапись раздела или запись при создании пункта
:: Dubl - переименование раздела если обнаружен дубль,который не надо перезаписать
::setting - нстройки меню
::New2Menu - добавление двойного каскадного меню
::reinstall2 - перезапись раздела или запись при создании пункта двойного каскадного меню
:: остальные пока в процессе
::Блок заданных переменных
set name=KZNZDR
set name2=2menu
set n=0
set key1=HKCR\DesktopBackground\Shell
set key2=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\Shell
:: Основное меню твика
:Menu
echo.
echo Установить или удалить пункт меню?
echo (Введите цифру и нажмите клавишу Enter)
echo.
echo 1. Установить пункт
echo 2. Настроить меню
echo 3. Удалить пункт
echo.
set /p "ch=Ваш выбор: "
if "%ch%"=="1" (goto install || (
echo Ошибка установки.
echo Обратитесь за поддержкой на форум.
pause
exit /b))
if "%ch%"=="2" (goto setting)
if "%ch%"=="2" (goto DelMenu)
if not Defined VerbName (cls
echo Вы выбрали неверное значение.
echo Попробуйте еще раз^:^)
goto Menu)
:: Инсталляция твика
:install
reg query "%key1%" /s /f %name% /k /e
if NOT ERRORLEVEL 1 goto Dubl else call :reinstall
:reinstall
set /p NameMenu="Ведите имя пункта меню: "
echo Введено "%NameMenu%"
copy "%~dp0ttools\ishodnik\reg.reg" "%~dp0ttools\UserReg\%name%.reg"
echo Windows Registry Editor Version 5.00 >"%~dp0ttools\UserReg\%name%.reg"
echo.>>"%~dp0ttools\UserReg\%name%.reg"
echo ^[^HKEY_CLASSES_ROOT\DesktopBackground\Shell\%name%]>>"%~dp0ttools\UserReg\%name%.reg"
reg import "%~dp0ttools\UserReg\%name%.reg"
reg add "%key1%\%name%" /v MUIVerb /d %NameMenu% /f
reg add "%key1%\%name%" /v "SubCommands" /d "redmi;AddLog;prochee" /f
reg add "%key1%\%name%" /v "Icon" /d "imageres.dll,104" /f
pause
exit /b
:: Если при создании меню обнаружилось что такой раздел уже существует
:: Тут требуется доработка в плане рекурсии проверки и выводить в экхо
:: значение параметра /v MUIVerb /d %NameMenu%
:: не получается у меня сделать так что бы проверка была рекурсивной и юыла возможность неоднократно изменять имя раздела
:Dubl
echo Раздел %name% уже существует,перезаписать его или создать новый?
echo.
echo (Введите цифру и нажмите клавишу Enter)
echo.
echo 1. Перезаписать
echo 2. Создать новый
set /p "ch=Ваш выбор: "
if "%ch%"=="1" (
reg delete "%key1%\%name%" /f
call :reinstall
exit /b)
if "%ch%"=="2"(
set /a n+=1
set NewName=%name%_%n&
echo %NewName%
copy "%~dp0ttools\ishodnik\reg.reg" "%~dp0ttools\UserReg\%NewName%.reg"
echo Windows Registry Editor Version 5.00 >"%~dp0ttools\UserReg\%NewName%.reg"
echo.>>"%~dp0ttools\UserReg\%NewName%.reg"
echo ^[^HKEY_CLASSES_ROOT\DesktopBackground\Shell\%NewName%]>>"%~dp0ttools\UserReg\%NewName%.reg"
reg import "%~dp0ttools\ishodnik\%NewName%.reg"
pause
exit /b)
if not Defined VerbName (cls
echo Вы выбрали неверное значение.
echo Попробуйте еще раз^:^)
goto Dubl)
::Настройки меню
:setting
echo.
echo 1. Добавить двойные раскрывающиеся меню? (Не более трех)
echo 2. Добавить объект меню
echo 3. Выполнить настройку объктов меню
echo 4. Удалить объект меню
set /p "ch=Ваш выбор: "
if "%ch%"=="1" (goto New2Menu)
if "%ch%"=="2" (goto NewObject)
if "%ch%"=="3" (goto SettingObject)
if "%ch%"=="4" (goto DelObject)
if not Defined VerbName (cls
echo Вы выбрали неверное значение.
echo Попробуйте еще раз^:^)
goto setting)
:: Добавление двойного раскрывающегося меню
:: Здесь такая же ситуация с дублями разделов,надо научится их переименовывать при необходимости
:New2Menu
pause
reg query "%key2%" /s /f %2menu% /k /e
pause
if NOT ERRORLEVEL 1 goto Dubl else goto reinstall2
:reinstall2
set /p NameMenu="Ведите имя пункта меню: "
echo Введено "%NameMenu2%"
reg add "%key2%\%2menu%" /f
reg add "%key2%\%2menu%" /v "MUIVerb" /t REG_SZ /d %NameMenu% /f
reg add "%key2%\%2menu%" /v "SubCommands" /d "redmi;AddLog;prochee" /f
reg add "%key2%\%2menu%" /v "Icon" /d "imageres.dll,104" /f && cls
goto setting
pause
exit /b
::::::::::::: остальное пока не писал,так как пытаюсь имеющееся до ума довести.
:New2Menu
pause
reg query "%key2%" /s /f %2menu% /k /e
pause
if NOT ERRORLEVEL 1 goto Dubl else goto reinstall2
:reinstall2
set /p NameMenu="Ведите имя пункта меню: "
echo Введено "%NameMenu2%"
reg add "%key2%\%2menu%" /f
reg add "%key2%\%2menu%" /v "MUIVerb" /t REG_SZ /d %NameMenu% /f
reg add "%key2%\%2menu%" /v "SubCommands" /d "redmi;AddLog;prochee" /f
reg add "%key2%\%2menu%" /v "Icon" /d "imageres.dll,104" /f && cls
goto setting
pause
exit /b
echo Windows Registry Editor Version 5.00 >"%~dp0ttools\ishodnik\reg.reg"
echo.>>"%~dp0ttools\ishodnik\reg.reg"
echo ^[^HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\%2menu%]>>"%~dp0ttools\ishodnik\reg.reg"
reg import "%~dp0ttools\ishodnik\reg.reg"
reg query "%key2%\%onepunkt1%"
if NOT ERRORLEVEL 1 (call :Dublonepunkt1 ) else (
echo Пункт №1
set /p name_onepunkt1="Ведите имя пункта меню и нажмите клавишу Enter: "
echo Введено "%name_onepunkt1%"
pause
copy "%~dp0ttools\ishodnik\reg.reg" "%~dp0ttools\UserReg\%onepunkt1%.reg"
echo Windows Registry Editor Version 5.00 >"%~dp0ttools\UserReg\%onepunkt1%.reg"
echo.>>"%~dp0ttools\UserReg\%onepunkt1%.reg"
echo ^[^HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\%onepunkt1%]>>"%~dp0ttools\UserReg\%onepunkt1%.reg"
reg import "%~dp0ttools\UserReg\%onepunkt1%.reg"
reg add "%key2%\%onepunkt1%" /ve /d "%name_onepunkt1%" /f
reg add "%key2%\%onepunkt1%" /v "Icon" /t REG_SZ /d "imageres.dll,104" /f
reg add "%key1%\%name%" /v "SubCommands" /d "%onepunkt1%;AddLog;prochee" /f )