1 Тема от Ядрён (изменено: Ядрён, 2014-03-12 18:28:14)

  • Ядрён
  • Участник
  • Неактивен

Тема: AHK: Добавить удалить пункт в контекстном меню для Windows 7

Здравствуйте , вот написал скрипт на (добавление ,удаление) пунктов в контекстное меню правой кнопки мыши для Windows 7. Меню №1 - это пункт где присутствует слово ''создать''. Меню №2  - это пункт где присутствует слово ''копировать''. Укажите полный путь - это путь к файлу который нужно запустить путём нажатия пункта в контекстного меню.Что бы удалить пункт контекстного меню, нужно написать его имя в  ''ComboBox'' и нажать на кнопку Удалить пункт меню № .

http://s019.radikal.ru/i608/1403/d0/a0f0f89546d4.jpg



Gui, Add, Tab, +0x400 cRed HwndtabID, МЕНЮ №1| МЕНЮ №2|
Gui, Color, 9CEE90
Gui, Font, s11 Bold, Cambria
Gui, Add, Text, cBlue, Имя пункта меню №1 
Gui, Add, ComboBox, vRegWrite w150,
Gui, Add, Button, w100 gOK, Укажите полный путь №1
Gui, Add, Button, w100 gOK1, Удалить пункт меню №1
Gui, Tab, 2 
Gui, Add, Text, cBlue, Имя пункта меню №2
Gui, Add, ComboBox, vRegWrite1 w150,
Gui, Add, Button, w100 gOK3,  Укажите полный путь №2
Gui, Add, Button, w100 gOK2, Удалить пункт меню №2
Gui, Tab 
Gui, Show
Return

OK1:
Gui Submit, NoHide
VK1 = %RegWrite%
RegDelete, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK1%\
ExitApp
Return

ComboBox:
Return
OK:
Gui Submit, NoHide
FileSelectFile, SelectedFile, 24, , Укажите путь к файлу, *.exe
VK = %RegWrite%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK%\command, , %SelectedFile%
ExitApp
Return

OK2:
Gui Submit, NoHide
VK2 = %RegWrite1%
RegDelete, HKEY_CLASSES_ROOT, *\shell\%VK2%\
ExitApp
Return

DropDownList:
Return
OK3:
Gui Submit, NoHide
FileSelectFile, SelectedFile1, 24, , Укажите путь к файлу, *.exe
VK4 = %RegWrite1%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\%VK4%\command, , %SelectedFile1%
ExitApp
Return
GuiClose:
ExitApp
Post's attachments

вкладки.ahk 1.38 kb, 8 downloads since 2014-03-12 

You don't have the permssions to download the attachments of this post.
OS: Win11x64, AutoHotkey v1.1.25.01 (Unicode 64-bit).

2 Ответ от Ядрён (изменено: Ядрён, 2014-04-20 04:13:09)

  • Ядрён
  • Участник
  • Неактивен

Re: AHK: Добавить удалить пункт в контекстном меню для Windows 7

Добавил ещё иконки приложений , рядом с контекстным меню.

Gui, Add, Tab, cRed, МЕНЮ №1| МЕНЮ №2|
Gui, Color, 9CEE90
Gui, Font, s11 Bold, Cambria
Gui, Add, Text, cBlue, Имя пункта меню №1 
Gui, Add, ComboBox, vRegWrite w150,
Gui, Add, Button, w100 gOK, Укажите полный путь №1
Gui, Add, Button, w100 gOK1, Удалить пункт меню №1
Gui, Tab, 2 
Gui, Add, Text, cBlue, Имя пункта меню №2
Gui, Add, ComboBox, vRegWrite1 w150,
Gui, Add, Button, w100 gOK3,  Укажите полный путь №2
Gui, Add, Button, w100 gOK2, Удалить пункт меню №2
Gui, Tab 
Gui, Show
Return

OK1:
Gui Submit, NoHide
VK1 = %RegWrite%
RegDelete, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK1%\
MsgBox, Вы успешно удалили пункт меню
ExitApp
Return

ComboBox:
Return
OK:
Gui Submit, NoHide
FileSelectFile, SelectedFile, 24, , Укажите путь к файлу, All Files(*.*)
VK = %RegWrite%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK%\command, , %SelectedFile%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK%\ , Icon, %SelectedFile%
MsgBox, Вы успешно добавили пункт в меню
ExitApp
Return

OK2:
Gui Submit, NoHide
VK2 = %RegWrite1%
RegDelete, HKEY_CLASSES_ROOT, *\shell\%VK2%\
MsgBox, Вы успешно удалили пункт меню
ExitApp
Return

DropDownList:
Return
OK3:
Gui Submit, NoHide
FileSelectFile, SelectedFile1, 24, , Укажите путь к файлу , All Files(*.*)
VK4 = %RegWrite1%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\%VK4%\command, , %SelectedFile1%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\%VK4%\ , Icon, %SelectedFile1%
MsgBox, Вы успешно добавили пункт в меню
ExitApp
Return
GuiClose:
ExitApp
OS: Win11x64, AutoHotkey v1.1.25.01 (Unicode 64-bit).

3 Ответ от Ядрён

  • Ядрён
  • Участник
  • Неактивен

Re: AHK: Добавить удалить пункт в контекстном меню для Windows 7

Вот новая версия с иконками , с выбором пункта меню вверху внизу или показ меню при зажатой кнопке "Shift". Добавил контекстное меню папки. Подправил немного названия пунктов, кнопок.

http://s016.radikal.ru/i337/1705/68/efec7fa1a0fa.png

 Gui, Add, Tab,x+5 y+5 h270 w370 cRed, Меню Создать | Меню Файла| Меню Папки |
Gui, Color, 9CEE90
Gui, Font, s10 Bold, Cambria
Gui, Add, Text, cBlue, Название пункта контекстного меню "создать"
Gui, Add, ComboBox, vRegWrite w150,
Gui, Add, Button, w100 gOK, Путь до файла запуска
Gui, Add, Button, w100 gOK1, Удалить пункт меню"создать"
Gui, Add, Text, cBlue, Создать пункт меню: вверху внизу
Gui, Add, ComboBox, vRegW w150 ,| Top|| Bottom |Extended |
Gui, Tab, 2 
Gui, Add, Text, cBlue, Название пункта контекстного меню "файла"
Gui, Add, ComboBox, vRegWrite1 w150,
Gui, Add, Button, w100 gOK3, Путь до файла запуска
Gui, Add, Button, w100 gOK2, Удалить пункт меню"файла"
Gui, Add, Text, cBlue,Создать пункт меню: вверху внизу
Gui, Add, ComboBox, vRegW1 w150, |Top || Bottom |Extended |
Gui, Tab, 3
Gui, Add, Text, cBlue, Название пункта контекстного меню "папки"
Gui, Add, ComboBox, vRegWrite2 w150, 
Gui, Add, Button, w100 gOK5,  Путь до файла запуска
Gui, Add, Button, w100 gOK4, Удалить пункт меню"папки"
Gui, Add, Text, cBlue,Создать пункт меню: вверху внизу
Gui, Add, ComboBox, vRegW2 w150,|Top|| Bottom |Extended |
Gui, Show, h280 w400
Return

OK1:
Gui Submit, NoHide
VK1 = %RegWrite%
RegDelete, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK1%\
MsgBox, Вы успешно удалили пункт меню
ExitApp
Return

ComboBox:
Return
OK:
Gui Submit, NoHide
FileSelectFile, SelectedFile, 24, , Укажите путь к файлу, All Files(*.*)
VK = %RegWrite%
Posit = %RegW%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK%\command, , %SelectedFile%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK%\ , Icon, %SelectedFile%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Directory\Background\shell\%VK%\ , Position, %Posit%
MsgBox, Вы успешно добавили пункт в меню
ExitApp
Return



OK4:
Gui Submit, NoHide
VK6 = %RegWrite2%
RegDelete, HKEY_CLASSES_ROOT, Folder\shell\%VK6%\
MsgBox, Вы успешно удалили пункт меню
ExitApp
Return


OK5:
Gui Submit, NoHide
FileSelectFile, SelectedFile2, 24, , Укажите путь к файлу , All Files(*.*)
VK5 = %RegWrite2%
Posit2 = %RegW2%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Folder\shell\%VK5%\command, , %SelectedFile2%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Folder\shell\%VK5%\ , Icon, %SelectedFile2%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, Folder\shell\%VK5%\ , Position, %Posit2%
MsgBox, Вы успешно добавили пункт в меню
ExitApp





OK2:
Gui Submit, NoHide
VK2 = %RegWrite1%
RegDelete, HKEY_CLASSES_ROOT, *\shell\%VK2%\
MsgBox, Вы успешно удалили пункт меню
ExitApp
Return


OK3:
Gui Submit, NoHide
FileSelectFile, SelectedFile1, 24, , Укажите путь к файлу , All Files(*.*)
VK4 = %RegWrite1%
Posit1 = %RegW1%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\%VK4%\command, , %SelectedFile1%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\%VK4%\ , Icon, %SelectedFile1%
RegWrite, REG_SZ, HKEY_CLASSES_ROOT, *\shell\%VK4%\ , Position, %Posit1%
MsgBox, Вы успешно добавили пункт в меню
ExitApp
Return
GuiClose:
ExitApp
OS: Win11x64, AutoHotkey v1.1.25.01 (Unicode 64-bit).