AZJIO
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Сделал скрипт переназначения клика по скрипту au3. Иногда в справке удобно открывать скрипт, иногда запускать. Чтоб скрипт работал нужно подправить реестр или удалить в срипте if, чтоб прописать реестр скриптом. Код: $au3 = RegRead("HKCR\AutoIt3Script\Shell\Open", "") $notepad = 'C:\Program Files\SciTE\SciTE.exe' $AutoItExe = 'C:\Program Files\AutoIt3' ;MsgBox(0, "", $AutoItExe) If $au3 = 'Открыть в редакторе' Then ; Старт RegWrite("HKCR\AutoIt3Script\Shell\Open","","REG_SZ",'Выполнить скрипт') RegWrite("HKCR\AutoIt3Script\Shell\Open\Command","","REG_SZ",'"'&$AutoItExe&'\AutoIt3.exe" "%1" %*') RegWrite("HKCR\AutoIt3Script\Shell\Run","","REG_SZ",'Открыть в редакторе') RegWrite("HKCR\AutoIt3Script\Shell\Run\Command","","REG_SZ",'"'&$notepad&'" "%1"') RegWrite("HKCR\AutoIt3Script\Shell\rx_re","","REG_SZ",'Переназначить au3 на Открытие') RegWrite("HKCR\AutoIt3Script\Shell\rx_re\Command","","REG_SZ",'"'&$AutoItExe&'\AutoIt3.exe" "'&$AutoItExe&'\re_au3.au3" %*') EndIf If $au3 = 'Выполнить скрипт' Then ; Открыть RegWrite("HKCR\AutoIt3Script\Shell\Open","","REG_SZ",'Открыть в редакторе') RegWrite("HKCR\AutoIt3Script\Shell\Open\Command","","REG_SZ",'"'&$notepad&'" "%1"') RegWrite("HKCR\AutoIt3Script\Shell\Run","","REG_SZ",'Выполнить скрипт') RegWrite("HKCR\AutoIt3Script\Shell\Run\Command","","REG_SZ",'"'&$AutoItExe&'\AutoIt3.exe" "%1" %*') RegWrite("HKCR\AutoIt3Script\Shell\rx_re","","REG_SZ",'Переназначить au3 на Выполнение') RegWrite("HKCR\AutoIt3Script\Shell\rx_re\Command","","REG_SZ",'"'&$AutoItExe&'\AutoIt3.exe" "'&$AutoItExe&'\re_au3.au3" %*') EndIf |
|