Jump to content

To change version AutoIt3

AZJIO

By AZJIO,
in AutoIt Example Scripts

 Share

Recommended Posts

AZJIO Universalist

AZJIO

Posted
Posted (edited)

portable_v1.6_AutoIt3.au3

screenshot

;  @AZJIO 19.03.2010
#NoTrayIcon
Global $AutInp0, $RedInp01, $RedInp02, $OpenCom0, $EditCom0, $CompCom0, $RunCom0, $aPathAut0, $err1, $run_m0, $OpenCom, $EditCom, $CompCom, $RunCom, $filesave1, $aRegList
$as='HKCR\AutoIt3Script'

; En
$LngAss='Assotiations'
$LngAssH='To register expansion and'&@CRLF&'the contextual menu with AutoIt3'
$LngSet='Setup (reg)'
$LngSetH='Installation AutoIt3 in the register'
$LngDel='Delete (reg)'
$LngDelH='Delete installation AutoIt3 in the register'
$LngReAU3='1 Create re_au3'
$LngReAU3H='For reassignment from the contextual menu'&@CRLF&'"Run" or "Open".'
$LngReAU3_2='2 Create re_au3'
$LngReAU3H_2='The non-standard variant, but gives the chance'&@CRLF&'to run script instead of opening in the editor.'
$LngExeRe='To execute re_au3.au3'
$LngSB='StatusBar'
$LngDaD='drag-and-drop'
$LngCM='Language'
$LngUpdL='To update lists'
$LngActM='Action'
$LngActE='Run Script'
$LngActO='Open script'
$LngActH='Changes, when it is chosen'
$LngL1='Path (AutoIt3.exe)'
$LngL2='Path (SciTE-1)'
$LngL3='Path (SciTE-2, Notepad++)'
$LngIO='Open'
$LngICh='Edit Script'
$LngICp='Compile Script'
$LngIExe='Run Script'
$LngSmO='open'
$LngSmOH='Open folder'
$LngSmR='v reg'
$LngSmRH='To read a way from the register'
$LngSmCl='To clear'
$LngSmClH='To clear all (3)'
$LngRt='v root'
$LngRtH='To copy path from root AutoIt3.exe'
$LngSH='To save path to AutoIt3,'&@CRLF&'creation of the list of versions.'
$LngLV='The list of versions'
$LngAdd='To add'
$LngAddH='To add item in the contextual menu'
$LngDI='To remove'
$LngDIH='To remove item from the contextual menu specified in the list'
$LngSR='To save options from the register in a reg-file'
$LngLCMR='The list of the contextual menu in the registere'
$LngHLP='    Here there was an help'
$LngErr='Error'
$LngSB1='It is chosen AutoIt3.exe, the version -'
$LngSB2='The file is not the *.exe.'
$LngSB3='Registration removal in the register is executed.'
$LngSB4='Registration is executed. Version AutoIt3 -'
$LngSB5='Associations are executed. Version AutoIt3 -'
$LngSB6='The file re_au3.au3 created.'
$LngSB7='This path to AutoIt3.exe already exists in the list'
$LngSB8='Path incorrectt'
$LngSB9='It is chosen'
$LngSB10='Item'
$LngSB11='It is added in the contextual menu'
$LngSB12='Version AutoIt3 from the registerte -'
$LngSB13='Specify correctly path to AutoIt3.exe'
$LngSB14='The path to the basic editor is not found'
$LngSB15='НThe path to the additional editor is not found'
$LngRsn='Reassign'
$LngSel='To specify'
$LngSel1='To specify the basic editor'
$LngSel2='To specify the additional editor'
$LngSel3='Editor'


; Ru
; если есть русский в раскладках клавиатуры, то использовать его
For $i = 1 to 5
    $LngN = RegEnumVal("HKCU\Keyboard Layout\Preload", $i)
    If @error <> 0 Then ExitLoop
     If RegRead("HKCU\Keyboard Layout\Preload", $LngN) = 00000419 Then
        $LngAss='Ассоциировать'
        $LngAssH='Зарегистрировать расширение'&@CRLF&'и контекстное меню с AutoIt3'
        $LngSet='Зарегистрировать'
        $LngSetH='Аналогично установке AutoIt3'
        $LngDel='Удалить регистрацию'
        $LngDelH='Удалить все упоминания'&@CRLF&'об AutoIt3 в реестре'
        $LngReAU3='1 Создать re_au3'
        $LngReAU3H='Для переназначения из контекстного меню'&@CRLF&'Выполнять или Открывать скрипт кликом мыши.'
        $LngReAU3_2='2 Создать re_au3'
        $LngReAU3H_2='Нестандартный вариант, но даёт возможность'&@CRLF&'в справке выполнять скрипты вместо открытия в редакторе.'
        $LngExeRe='Выполнить re_au3.au3'
        $LngSB='Строка состояния'
        $LngDaD='используйте drag-and-drop'
        $LngCM='Язык контекстного меню'
        $LngUpdL='Обновить раскрывающиеся списки'
        $LngActM='Действие кликом мыши'
        $LngActE='Выполнить скрипт'
        $LngActO='Открыть скрипт'
        $LngActH='Сохраняется при выборе'
        $LngL1='Путь к AutoIt3.exe'
        $LngL2='Путь к основному редактору'
        $LngL3='Путь к дополнительному редактору'
        $LngIO='Пункт "Открыть"'
        $LngICh='Пункт "Изменить"'
        $LngICp='Пункт "Компилировать"'
        $LngIExe='Пункт "Выполнить"'
        $LngSmO='открыть'
        $LngSmOH='Открыть каталог'
        $LngSmR='v реестр'
        $LngSmRH='Прочитать путь из реестра'
        $LngSmCl='Очистить'
        $LngSmClH='Очистить все (3) поля ввода'
        $LngRt='v корень'
        $LngRtH='Копировать путь от корня AutoIt3.exe'
        $LngSH='Сохранить путь к AutoIt3'&@CRLF&'создание списка версий.'
        $LngLV='Список версий'
        $LngAdd='Добавить'
        $LngAddH='Добавить пункт'&@CRLF&'в контекстное меню'
        $LngDI='Удалить'
        $LngDIH='Удалить пункт'&@CRLF&'из контекстного меню'&@CRLF&'указанный в списке'
        $LngSR='Сохранить настройки'&@CRLF&'из реестра в reg-файл'
        $LngLCMR='Список контекстного меню'&@CRLF&'в реестре'
        $LngHLP='    Данная утилитка поможет портабельно использовать AutoIt3, а также переключаться между версиями; удалить из реестра всю информацию об использовании AutoIt3; назначить любой редактор в качестве основного или дополнительного; переключать действие клика мыши на скрипте в контекстном меню.'&@CRLF&'     Если редактор не указан или автоматически не найден, то ассоциации не прописываются. Наличие каталога Include не проверяется.'&@CRLF&'     Кнопка Save позволяет сохранять несколько путей с указанием версии в файл и при последующем старте выбрать необходимую версию из списка. Не добавляются пути уже существующие в списке. Младшие версии AutoIt3 создают более компактные exe-файлы.'&@CRLF&'     Кнопка "1 Создать re_au3" позволяет не открывая эту программу из контекстного меню скрипта переназначить клик мыши на скрипте между вариантами "Открыть" и "Выполнить".'&@CRLF&'Кнопка "2 Создать re_au3" создаёт нестандартный переназначатель, но с преимуществом: в справке вместо открытия скрипта он будет выполнятся, побочный эффект: в переключателе на радиокнопках "Действие кликом мыши" будет противоположно. Рекомендуется: радиокнопка всегда "Открыть скрипт", и нажатие последовательно кнопок "Ассоциировать" и "s", при условии, что выполнено "2 Создать re_au3"'&@CRLF&'     Кнопками "Добавить / Удалить" можно управлять контекстным меню, пункты которого отображаются в раскрывающемся списке '
        $LngErr='Ошибка'
        $LngSB1='Выбран AutoIt3.exe, версия -'
        $LngSB2='Файл не является программой (*.exe).'
        $LngSB3='Удаление регистрации в реестре выполнено.'
        $LngSB4='Регистрация выполнена. Версия AutoIt3 -'
        $LngSB5='Ассоциации выполнены. Версия AutoIt3 -'
        $LngSB6='Файл re_au3.au3 создан.'
        $LngSB7='Этот путь к AutoIt3.exe уже существует в списке'
        $LngSB8='Путь неверный'
        $LngSB9='выбран'
        $LngSB10='Пункт'
        $LngSB11='добавлен в контекстное меню'
        $LngSB12='Версия AutoIt3 из реестра -'
        $LngSB13='Укажите правильно путь к AutoIt3.exe'
        $LngSB14='Не найден путь к основному редактору'
        $LngSB15='Не найден путь к дополнительному редактору'
        $LngRsn='Переназначить'
        $LngSel='Указать'
        $LngSel1='Указать основной редактор'
        $LngSel2='Указать дополнительный редактор'
        $LngSel3='Редактор'
        ExitLoop
    EndIf
Next

$Gui = GUICreate("Portable AutoIt3",  528, 401, -1, -1, -1, 0x00000010)
$StatusBar = GUICtrlCreateLabel($LngSB, 5,383,560,18)
GUICtrlCreateLabel ($LngDaD, 250,3,200,18)

$tab=GUICtrlCreateTab (0,2, 528,401-20) ; размер вкладки
$hTab = GUICtrlGetHandle($tab)
$tab1=GUICtrlCreateTabitem ("AutoIt3") ; имя вкладки

$assreg = GUICtrlCreateButton($LngAss, 380, 40, 122, 25)
GUICtrlSetTip(-1, $LngAssH)
$zareg = GUICtrlCreateButton($LngSet, 380, 71, 122, 25)
GUICtrlSetTip(-1, $LngSetH)
$delreg = GUICtrlCreateButton($LngDel, 380, 102, 122, 25)
GUICtrlSetTip(-1, $LngDelH)
$reau3 = GUICtrlCreateButton($LngReAU3, 380, 133, 107, 25)
GUICtrlSetTip(-1, $LngReAU3H)
$reau4 = GUICtrlCreateButton($LngReAU3_2, 380, 164, 107, 25)
GUICtrlSetTip(-1, $LngReAU3H_2)
$reaust3 = GUICtrlCreateButton("s", 487, 133, 15, 25)
GUICtrlSetTip(-1, $LngExeRe)
$reaust4 = GUICtrlCreateButton("s", 487, 164, 15, 25)
GUICtrlSetTip(-1, $LngExeRe)

$lang=GUICtrlCreateGroup ($LngCM, 345, 195, 150, 55)
GUIStartGroup()
$russet = GUICtrlCreateRadio("Russian", 350, 211, 67, 20)
GUICtrlSetTip(-1, $LngUpdL)
$enset = GUICtrlCreateRadio("English", 350, 228, 67, 20)
GUICtrlSetTip(-1, $LngUpdL)

$act=GUICtrlCreateGroup ($LngActM, 345, 255, 150, 55)
GUIStartGroup()
$run_m = GUICtrlCreateRadio($LngActE, 350, 271, 137, 20)
GUICtrlSetTip(-1, $LngActH)
$open_m = GUICtrlCreateRadio($LngActO, 350, 288, 137, 20)
GUICtrlSetTip(-1, $LngActH)
If RegRead($as&"\Shell", "") = "Run" Then
    GUICtrlSetState ($run_m,1)
Else
    GUICtrlSetState ($open_m,1)
EndIf

$AutLab = GUICtrlCreateLabel($LngL1, 24, 40, 130, 17)
$AutInp = GUICtrlCreateInput("", 24, 57, 305, 21)
GUICtrlSetState(-1,8)
$folder1 = GUICtrlCreateButton("...", 337, 56, 27, 23)
GUICtrlSetFont (-1,13)

$RedLab1 = GUICtrlCreateLabel($LngL2, 24, 90, 186, 17)
$RedInp1 = GUICtrlCreateInput("", 24, 107, 305, 21)
GUICtrlSetState(-1,8)
$folder2 = GUICtrlCreateButton("...", 337, 106, 27, 23)
GUICtrlSetFont (-1,13)

$RedLab2 = GUICtrlCreateLabel($LngL3, 24, 140, 186, 17)
$RedInp2 = GUICtrlCreateInput("", 24, 157, 305, 21)
GUICtrlSetState(-1,8)
$folder3 = GUICtrlCreateButton("...", 337, 156, 27, 23)
GUICtrlSetFont (-1,13)

$OpenLab=GUICtrlCreateLabel ($LngIO, 20,200,130,20)
$OpenCom=GUICtrlCreateCombo ("", 150,197,180,18)

$EditLab=GUICtrlCreateLabel ($LngICh, 20,230,130,20)
$EditCom=GUICtrlCreateCombo ("", 150,227,180,18)

$CompLab=GUICtrlCreateLabel ($LngICp, 20,260,130,20)
$CompCom=GUICtrlCreateCombo ("", 150,257,180,18)

$RunLab=GUICtrlCreateLabel ($LngIExe, 20,290,130,20)
$RunCom=GUICtrlCreateCombo ("", 150,287,180,18)

If RegRead($as&"\Shell\Open", "") = "Open" Then
    GUICtrlSetState ($enset,1)
    _langen()
Else
    GUICtrlSetState ($russet,1)
    _langrus()
EndIf

$auopen = GUICtrlCreateButton($LngSmO, 152, 37, 55, 20)
GUICtrlSetTip(-1, $LngSmOH)
$aureg = GUICtrlCreateButton($LngSmR, 213, 37, 55, 20)
GUICtrlSetTip(-1, $LngSmRH)
$cl = GUICtrlCreateButton($LngSmCl, 274, 37, 55, 20)
GUICtrlSetTip(-1, $LngSmClH)

$edreg1 = GUICtrlCreateButton($LngSmR, 213, 87, 55, 20)
GUICtrlSetTip(-1, $LngSmRH)
$root1 = GUICtrlCreateButton($LngRt, 274, 87, 55, 20)
GUICtrlSetTip(-1, $LngRtH)

$edreg2 = GUICtrlCreateButton($LngSmR, 213, 137, 55, 20)
GUICtrlSetTip(-1, $LngSmRH)
$root2 = GUICtrlCreateButton($LngRt, 274, 137, 55, 20)
GUICtrlSetTip(-1, $LngRtH)

$Save = GUICtrlCreateButton("Save", 344, 320, 57, 23)
GUICtrlSetTip(-1,$LngSH)

$SaveCom=GUICtrlCreateCombo ("", 24,405,305,22)
GUICtrlSetTip(-1, $LngLV)

If FileExists(@ScriptDir&"\vAutoIt3.txt") Then
    GUICtrlSetPos($SaveCom, 24,320)
    $filesave = FileOpen(@ScriptDir&"\vAutoIt3.txt", 0)
    $filesave1 = FileRead($filesave)
    GUICtrlSetData($SaveCom,$filesave1, '')
    FileClose($filesave)
EndIf

$folder4 = GUICtrlCreateButton($LngAdd, 344, 350, 57, 23)
GUICtrlSetTip(-1, $LngAddH)
$delitem = GUICtrlCreateButton($LngDI, 411, 350, 57, 23)
GUICtrlSetTip(-1, $LngDIH)
$savereg = GUICtrlCreateButton("SAVE REG", 411, 320, 57, 23)
GUICtrlSetTip(-1, $LngSR)
$genlist=GUICtrlCreateCombo ("", 24,350,305,22)
GUICtrlSetTip(-1, $LngLCMR)
_genlist()

$tab2=GUICtrlCreateTabitem ("    ?")
GUICtrlCreateLabel ($LngHLP, 20,40,488,300)
GUICtrlCreateLabel ('@AZJIO  19.03.2010, v1.6', 380,350,130,20)
GUICtrlCreateTabitem ("")

; устранение проблем интерфейса
Switch @OSVersion
    Case 'WIN_2000', 'WIN_XP', 'WIN_2003'
        $Part = 10
    Case Else
        $Part = 11
EndSwitch
$Color = _WinAPI_GetThemeColor($hTab, 'TAB', $Part, 1, 0x0EED)
If Not @error Then
    GUICtrlSetBkColor($russet, $Color)
    GUICtrlSetBkColor($enset, $Color)
    GUICtrlSetBkColor($run_m, $Color)
    GUICtrlSetBkColor($open_m, $Color)
    GUICtrlSetBkColor($lang, $Color)
    GUICtrlSetBkColor($act, $Color)
EndIf

;вызов функций автозаполнения input из реестра
_aureg()
_edreg1()
_edreg2()

GUISetState ()
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = -13
                If @GUI_DropID=$AutInp Then
                    GUICtrlSetData($AutInp, @GUI_DRAGFILE)
                    GUICtrlSetData ($StatusBar, $LngSB1&" "&FileGetVersion(@GUI_DRAGFILE))
                ;заполнение полей редакторов реестровыми путями 
                _edreg1()
                _edreg2()
                EndIf
                If @GUI_DropID=$RedInp1 Then
                    If StringRight(@GUI_DRAGFILE, 4) = ".lnk" Or StringRight(@GUI_DRAGFILE, 4) = ".exe"  Then
                        If StringRight( @GUI_DRAGFILE, 4 )  = ".lnk" Then ; принятие если lnk (ярлык) и объект (exe) в переменную
                            $aLNK = FileGetShortcut(@GUI_DRAGFILE)
                            $EXE=$aLNK[0]
                        EndIf
                        If StringRight( @GUI_DRAGFILE, 4 )  = ".exe" Then $EXE=@GUI_DRAGFILE ; принятие exe-файла
                        GUICtrlSetData($RedInp1, $EXE)
                    Else
                        MsgBox(0, $LngErr, $LngSB2)
                        GUICtrlSetData($RedInp1, '')
                    Endif
                Endif
                If @GUI_DropID=$RedInp2 Then
                    If StringRight(@GUI_DRAGFILE, 4) = ".lnk" Or StringRight(@GUI_DRAGFILE, 4) = ".exe"  Then
                        If StringRight( @GUI_DRAGFILE, 4 )  = ".lnk" Then ; принятие если lnk (ярлык) и объект (exe) в переменную
                            $aLNK = FileGetShortcut(@GUI_DRAGFILE)
                            $EXE=$aLNK[0]
                        EndIf
                        If StringRight( @GUI_DRAGFILE, 4 )  = ".exe" Then $EXE=@GUI_DRAGFILE ; принятие exe-файла
                        GUICtrlSetData($RedInp2, $EXE)
                    Else
                        MsgBox(0, $LngErr, $LngSB2)
                        GUICtrlSetData($RedInp2, '')
                    Endif
                Endif
            Case $msg = $delreg
                _split()
                For $i=1 To $aRegList[0]
                    RegDelete($aRegList[$i])
                Next
                GUICtrlSetData ($StatusBar, $LngSB3)
            Case $msg = $zareg
                _read()
                If $err1<>0 Then ContinueLoop
                RegWrite("HKCR\.au3","","REG_SZ",'AutoIt3Script')
                RegWrite($as,"","REG_SZ",'AutoIt v3 Script')
                RegWrite($as&"\Shell\Open","","REG_SZ",$OpenCom0)
                RegWrite($as&"\Shell\Open\Command","","REG_SZ",'"'&$RedInp01&'" "%1"')
                RegWrite($as&"\Shell\Run","","REG_SZ",$RunCom0)
                RegWrite($as&"\Shell\Run\Command","","REG_SZ",'"'&$AutInp0&'" "%1" %*')
                RegWrite($as&"\Shell\Compile","","REG_SZ",$CompCom0)
                RegWrite($as&"\Shell\Compile\Command","","REG_SZ",'"'&$aPathAut0[0]&'\Aut2Exe\Aut2Exe.exe" /in "%l"')
                RegWrite($as&"\Shell\Edit","","REG_SZ",$EditCom0)
                RegWrite($as&"\Shell\Edit\Command","","REG_SZ",'"'&$RedInp02&'" "%1"')
                
                RegWrite($as&"\Shell","","REG_SZ",$run_m0)
                RegWrite("HKCR\.au3\ShellNew","FileName","REG_SZ",'Template.au3')
                RegWrite("HKCR\.au3","PerceivedType","REG_SZ",'text')
                RegWrite("HKCR\.au3\PersistentHandler","","REG_SZ",'{5e941d80-bf96-11cd-b579-08002b30bfeb}')

                RegWrite("HKCR\AutoIt3XScript","","REG_SZ",'AutoIt v3 Encoded Script')
                RegWrite("HKCR\AutoIt3XScript\Shell","","REG_SZ",'Run')
                RegWrite("HKCR\AutoIt3XScript\Shell\Run","","REG_SZ",'Run Script')
                RegWrite("HKCR\AutoIt3XScript\Shell\Run\Command","","REG_SZ",'"'&$AutInp0&'" "%1" %*')

                RegWrite("HKCU\Software\AutoIt v3\Aut2Exe","LastExeDir","REG_SZ",'My Documents')
                RegWrite("HKCU\Software\AutoIt v3\Aut2Exe","LastScriptDir","REG_SZ",'My Documents')
                RegWrite("HKCU\Software\AutoIt v3\Aut2Exe","LastIconDir","REG_SZ",'"'&$aPathAut0[0]&'\Aut2Exe\Icons"')
                RegWrite("HKCU\Software\AutoIt v3\Aut2Exe","LastIcon","REG_SZ",'')
                RegWrite("HKCU\Software\AutoIt v3\Aut2Exe","LastCompression","REG_DWORD",'2')
                RegWrite("HKCU\Software\AutoIt v3\Aut2Exe","AllowDecompile","REG_DWORD",'1')

                RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir","REG_SZ",$aPathAut0[0])
                RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","Version","REG_SZ",'v'&FileGetVersion($AutInp0))
                RegWrite("HKCR\.a3x","","REG_SZ",'AutoIt3XScript')

                RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Au3Info.exe","","REG_SZ",$aPathAut0[0]&'\Au3Info.exe')
                RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Aut2Exe.exe","","REG_SZ",$aPathAut0[0]&'\Aut2Exe\Aut2Exe.exe')
                RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AutoIt3.exe","","REG_SZ",$aPathAut0[0]&'\AutoIt3.exe')
                
                $un='HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AutoItv3'
                RegWrite($un,"DisplayName","REG_SZ",'AutoIt v'&FileGetVersion($AutInp0))
                RegWrite($un,"UninstallString","REG_SZ",$aPathAut0[0]&'\Uninstall.exe')
                RegWrite($un,"DisplayIcon","REG_SZ",$aPathAut0[0]&'\AutoIt3.exe,0')
                RegWrite($un,"URLInfoAbout","REG_SZ",'http://www.autoitscript.com/autoit3')
                RegWrite($un,"Publisher","REG_SZ",'AutoIt Team')
                RegWrite($un,"NoModify","REG_DWORD",'1')
                RegWrite($un,"NoRepair","REG_DWORD",'1')

                If FileExists ($aPathAut0[0]&'\AutoItX\AutoItX3.dll') Then ShellExecute(@SystemDir&'\regsvr32.exe','/s "'&$aPathAut0[0]&'\AutoItX\AutoItX3.dll"','','', @SW_HIDE )
                If FileExists ($aPathAut0[0]&'\Icons\au3script_v10.ico') Then 
                    RegWrite($as&"\DefaultIcon","","REG_SZ",$aPathAut0[0]&'\Icons\au3script_v10.ico')
                    RegWrite("HKCR\AutoIt3XScript\DefaultIcon","","REG_SZ",$aPathAut0[0]&'\Icons\au3script_v10.ico')
                    DllCall("shell32.dll", "none", "SHChangeNotify", "long", '0x8000000', "uint", '0x1000', "ptr", '0', "ptr", '0')
                Endif
                GUICtrlSetData ($StatusBar, $LngSB4&" "&FileGetVersion($AutInp0))

            Case $msg = $assreg
                _read()
                If $err1<>0 Then ContinueLoop
                    RegWrite("HKCR\.au3","","REG_SZ",'AutoIt3Script')
                    RegWrite($as&"\Shell","","REG_SZ",$run_m0)
                    RegWrite($as,"","REG_SZ",'AutoIt v3 Script')
                    RegWrite($as&"\Shell\Open","","REG_SZ",$OpenCom0)
                    RegWrite($as&"\Shell\Open\Command","","REG_SZ",'"'&$RedInp01&'" "%1"')
                    RegWrite($as&"\Shell\Run","","REG_SZ",$RunCom0)
                    RegWrite($as&"\Shell\Run\Command","","REG_SZ",'"'&$AutInp0&'" "%1" %*')
                    RegWrite($as&"\Shell\Compile","","REG_SZ",$CompCom0)
                    RegWrite($as&"\Shell\Compile\Command","","REG_SZ",'"'&$aPathAut0[0]&'\Aut2Exe\Aut2Exe.exe" /in "%l"')
                    RegWrite($as&"\Shell\Edit","","REG_SZ",$EditCom0)
                    RegWrite($as&"\Shell\Edit\Command","","REG_SZ",'"'&$RedInp02&'" "%1"')
                If FileExists ($aPathAut0[0]&'\Icons\au3script_v10.ico') Then 
                        RegWrite($as&"\DefaultIcon","","REG_SZ",'"'&$aPathAut0[0]&'\Icons\au3script_v10.ico"')
                        RegWrite("HKCR\AutoIt3XScript\DefaultIcon","","REG_SZ",'"'&$aPathAut0[0]&'\Icons\au3script_v10.ico"')
                        DllCall("shell32.dll", "none", "SHChangeNotify", "long", '0x8000000', "uint", '0x1000', "ptr", '0', "ptr", '0')
                Endif
                    RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir","REG_SZ",$aPathAut0[0])
                    ;RegWrite($as&"\DefaultIcon","","REG_SZ",'assot.dll,20')
                GUICtrlSetData ($StatusBar, $LngSB5&" "&FileGetVersion($AutInp0))
            Case $msg = $reau3
                _read()
                If $err1<>0 Then ContinueLoop
                RegWrite($as&"\Shell\rx_re","","REG_SZ",$LngRsn&' au3')
                RegWrite($as&"\Shell\rx_re\Command","","REG_SZ",'"'&$AutInp0&'" "'&$aPathAut0[0]&'\re_au3.au3" %*')
                $file = FileOpen($aPathAut0[0]&'\re_au3.au3', 2)
                $sText = '$au3 = RegRead("HKCR\AutoIt3Script\Shell", "")' & @CRLF & 'If RegRead("HKCR\AutoIt3Script\Shell\rx_re", "") = "" Then' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\rx_re","","REG_SZ","'&$LngRsn&' au3")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\rx_re\Command","","REG_SZ","""'&$AutInp0&'"" ""'&$aPathAut0[0]&'\re_au3.au3"" %*")' & @CRLF &'EndIf'& @CRLF &'If $au3 = "Open" Then RegWrite("HKCR\AutoIt3Script\Shell","","REG_SZ","Run")'& @CRLF &'If $au3 = "Run" Then RegWrite("HKCR\AutoIt3Script\Shell","","REG_SZ","Open")'& @CRLF
                FileWrite($file, $sText)
                FileClose($file)
                GUICtrlSetData ($StatusBar, $LngSB6)
                _genlist()
                
            Case $msg = $reau4
                _read()
                If $err1<>0 Then ContinueLoop
                RegWrite($as&"\Shell\rx_re","","REG_SZ",$LngRsn&' au3')
                RegWrite($as&"\Shell\rx_re\Command","","REG_SZ",'"'&$AutInp0&'" "'&$aPathAut0[0]&'\re_au3.au3" %*')
                $file = FileOpen($aPathAut0[0]&'\re_au3.au3', 2)
                $sText = '$au3 = RegRead("HKCR\AutoIt3Script\Shell\Open", "")' & @CRLF & 'If $au3 = "'&$OpenCom0&'" Then' & @CRLF &'; Старт' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Open","","REG_SZ","'&$RunCom0&'")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Open\Command","","REG_SZ","""'&$AutInp0&'"" ""%1"" %*")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Run","","REG_SZ","'&$OpenCom0&'")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Run\Command","","REG_SZ","""'&$RedInp01&'"" ""%1""")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\rx_re","","REG_SZ","'&$LngRsn&' au3")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\rx_re\Command","","REG_SZ","""'&$AutInp0&'"" ""'&$aPathAut0[0]&'\re_au3.au3"" %*")' & @CRLF &'EndIf' & @CRLF & @CRLF &'If $au3 = "'&$RunCom0&'" Then' & @CRLF &'; Открыть' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Run","","REG_SZ","'&$RunCom0&'")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Run\Command","","REG_SZ","""'&$AutInp0&'"" ""%1"" %*")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Open","","REG_SZ","'&$OpenCom0&'")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\Open\Command","","REG_SZ","""'&$RedInp01&'"" ""%1""")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\rx_re","","REG_SZ","'&$LngRsn&' au3")' & @CRLF &'RegWrite("HKCR\AutoIt3Script\Shell\rx_re\Command","","REG_SZ","""'&$AutInp0&'"" ""'&$aPathAut0[0]&'\re_au3.au3"" %*")' & @CRLF &'EndIf' & @CRLF
                FileWrite($file, $sText)
                FileClose($file)
                GUICtrlSetData ($StatusBar, $LngSB6)
                _genlist()
                    
                    ; кнопки выбора языка
            Case $msg = $russet
                _clear()
                _langrus()
            Case $msg = $enset
                _clear()
                _langen()
                
            Case $msg = $run_m
                RegWrite($as&"\Shell","","REG_SZ",'Run')
            Case $msg = $open_m
                RegWrite($as&"\Shell","","REG_SZ",'Open')
                
                ;  мелкие кнопки
            Case $msg = $auopen
                $AutInp0=GUICtrlRead ($AutInp)
                If FileExists($AutInp0) Then
                    $aPathAut0 = StringRegExp($AutInp0, "(^.*)\\(.*){:content:}quot;, 3)
                Else
                    ContinueLoop
                EndIf
                If FileExists($aPathAut0[0]) Then Run('Explorer.exe '&$aPathAut0[0])
            Case $msg = $aureg
                _aureg()
            Case $msg = $edreg1
                _edreg1()
            Case $msg = $root1
                _read()
                If $err1<>0 Then ContinueLoop
                GUICtrlSetData($RedInp1, $aPathAut0[0]&'\SciTE\SciTE.exe')
            Case $msg = $edreg2
                _edreg2()
            Case $msg = $root2
                _read()
                If $err1<>0 Then ContinueLoop
                GUICtrlSetData($RedInp2, $aPathAut0[0]&'\SciTE\SciTE.exe')
            Case $msg = $cl
                GUICtrlSetData($AutInp, '')
                GUICtrlSetData($RedInp1, '')
                GUICtrlSetData($RedInp2, '')
                
            Case $msg = $Save
                $filesave = FileOpen(@ScriptDir&"\vAutoIt3.txt", 1)
                _read()
                ;If StringInStr($filesave1, '\Q'&$AutInp0&'\E')=0 Then
                If StringRegExp($filesave1, '\Q'&$AutInp0&'\E',0)<>0 Then
                    MsgBox(0, $LngErr, $LngSB7)
                    FileClose($filesave)
                    ContinueLoop
                EndIf
                If FileExists($AutInp0) Then
                    FileWrite($filesave, '|'&$AutInp0&' '&FileGetVersion($AutInp0))
                    FileClose($filesave)
                    ; обновление списка
                    $filesave = FileOpen(@ScriptDir&"\vAutoIt3.txt", 0)
                    $filesave1 = FileRead($filesave)
                    FileClose($filesave)
                    GUICtrlSendMsg($SaveCom, 0x14B, 0, 0)
                    GUICtrlSetData($SaveCom,$filesave1, '')
                    GUICtrlSetPos($SaveCom, 24,320)
                EndIf
            Case $msg = $SaveCom
                $SaveCom0 = GUICtrlRead ($SaveCom)
                If StringInStr($SaveCom0,'.exe')<>0 Then
                    $aSC0=StringRegExp($SaveCom0, "(^.*)exe(.*){:content:}quot;, 3)
                    If FileExists($aSC0[0]&'exe') Then
                        GUICtrlSetData ($StatusBar, $LngSB1&" "&FileGetVersion($aSC0[0]&'exe'))
                    Else
                        GUICtrlSetData ($StatusBar, $LngSB8)
                    EndIf
                    GUICtrlSetData($AutInp,$aSC0[0]&'exe')
                EndIf
                ;заполнение полей редакторов реестровыми путями при выборе из списка SAVE.
                _edreg1()
                _edreg2()
                ; выполнить re_au3.au3
            Case $msg = $reaust3 or $msg = $reaust4
                _aureg()
                _read()
                Run('"'&$AutInp0&'" "'&$aPathAut0[0]&'\re_au3.au3"', '', @SW_HIDE)
                
                ; кнопки обзор
            Case $msg = $folder1
                $folder01 = FileOpenDialog($LngSel&" AutoIt3.exe", @WorkingDir & "", "AutoIt3 (*.exe)", 1 + 4 )
                If @error Then ContinueLoop
                GUICtrlSetData($AutInp, $folder01)
                GUICtrlSetData ($StatusBar, $LngSB1&" "&FileGetVersion($folder01))
            Case $msg = $folder2
                $folder01 = FileOpenDialog($LngSel1, @WorkingDir & "", $LngSel3&"1 (*.exe)", 1 + 4 )
                If @error Then ContinueLoop
                GUICtrlSetData($RedInp1, $folder01)
                GUICtrlSetData ($StatusBar, $LngSel3&" 1 "&$LngSB9)
            Case $msg = $folder3
                $folder01 = FileOpenDialog($LngSel2, @WorkingDir & "", $LngSel3&"2 (*.exe)", 1 + 4 )
                If @error Then ContinueLoop
                GUICtrlSetData($RedInp2, $folder01)
                GUICtrlSetData ($StatusBar, $LngSel3&" 2 "&$LngSB9)
            Case $msg = $folder4
                $folder01 = FileOpenDialog($LngSel&" *.exe", @WorkingDir & "", " (*.exe)", 1 + 4 )
                If @error Then ContinueLoop
                $aFolder = StringRegExp($folder01, "(^.*)\\(.*)\.(.*){:content:}quot;, 3)
                If $aFolder[2]='exe' Then
                If $aFolder[1]='AutoIt3Wrapper' or $aFolder[1]='AutoIt3Wrapper_Gui' or $aFolder[1]='Aut2exe' or $aFolder[1]='Aut2exe_x64' Then
                    RegWrite($as&"\Shell\"&$aFolder[1]&"\command","","REG_SZ",'"'&$folder01&'" /in "%1"')
                Else
                    RegWrite($as&"\Shell\"&$aFolder[1]&"\command","","REG_SZ",'"'&$folder01&'" "%1"')
                EndIf
                EndIf
                _genlist()
                GUICtrlSetData ($StatusBar, $LngSB10&' "'&$aFolder[1]&'" '&$LngSB11)
            Case $msg = $delitem
                $genlist0=GUICtrlRead ($genlist)
                RegDelete("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\"&$genlist0)
                _genlist()
            Case $msg = $savereg
                _aureg()
                _read()
                $Aut_v=FileGetVersion($AutInp0)
                $tempfile=@TempDir&'\temp8491.reg'
                ; генерируем имя нового файла с номером копии на случай если файл существует
                $i = 1
                While FileExists(@ScriptDir&'\save'&$i&'_AutoIt3_v'&$Aut_v&'.reg')
                    $i +=1
                WEnd
                $regfile=@ScriptDir&'\save'&$i&'_AutoIt3_v'&$Aut_v&'.reg'
                $regfileF = FileOpen($regfile, 1) ; открываем бэкап-файл
                FileWrite($regfileF,"Windows Registry Editor Version 5.00"&@CRLF&@CRLF)
                ; массив данных для экспорта
                _split()
                $Data=''
                For $i=1 To $aRegList [0]
                    RunWait ( @Comspec&' /C reg export "'&$aRegList[$i]&'" "'&$tempfile&'"', '', @SW_HIDE )
                    $vr = FileOpen($tempfile, 0)
                    $vr1 = FileRead($vr)
                    $vr1 = StringReplace($vr1, "Windows Registry Editor Version 5.00"&@CRLF, '')
                    $Data &=$vr1
                    FileClose($vr)
                Next
                FileWrite($regfileF, $Data&@CRLF)
                FileClose($regfileF)
            Case $msg = -3
                ExitLoop
        EndSelect
    WEnd

; создание массива веток реестра
Func _split()
$aRegList = StringSplit( 'HKCR\.a3x|HKCR\.au3|HKCR\AutoIt3Script|HKCR\AutoIt3XScript|HKCR\AutoItX3.Control|HKCR\AutoItX3.Control.1|HKCR\AppID\AutoItX3.DLL|HKCR\AppID\{6E8109C4-F369-415D-AF9A-2AEEFF313234}|HKCR\CLSID\{1A671297-FA74-4422-80FA-6C5D8CE4DE04}|HKCR\CLSID\{3D54C6B8-D283-40E0-8FAB-C97F05947EE8}|HKCR\Interface\{3D54C6B8-D283-40E0-8FAB-C97F05947EE8}|HKCR\TypeLib\{F8937E53-D444-4E71-9275-35B64210CC3B}|HKCU\Software\AutoIt v3|HKLM\SOFTWARE\AutoIt v3\AutoIt|HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Au3Info.exe|HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Aut2Exe.exe|HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AutoIt3.exe|HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AutoItv3', "|")
EndFunc

; чтение пути к AutoIt3 из реестра
Func _aureg()
$type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Run\Command", "")
If StringInStr($type,'AutoIt3.exe')=0 Then $type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Open\Command", "")
If @error=1 Then return
$aPathexe=StringRegExp($type, "(^.*)exe(.*){:content:}quot;, 3)
If @error=1 Then return
$Pathexe1 = StringReplace($aPathexe[0], '"', '')
If FileExists($Pathexe1&'exe') Then
    GUICtrlSetData($AutInp, $Pathexe1&'exe')
    GUICtrlSetData ($StatusBar, $LngSB12&" "&FileGetVersion($Pathexe1&'exe'))
EndIf
EndFunc

; чтение пути редактора из реестра
Func _edreg1()
$type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Open\Command", "")
If StringInStr($type,'AutoIt3.exe')<>0 Then $type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Run\Command", "")
If @error=1 Then return
$aPathexe=StringRegExp($type, "(^.*)exe(.*){:content:}quot;, 3)
If @error=1 Then return
$Pathexe1 = StringReplace($aPathexe[0], '"', '')
If FileExists($Pathexe1&'exe') Then GUICtrlSetData($RedInp1, $Pathexe1&'exe')
EndFunc

; чтение пути редактора из реестра
Func _edreg2()
$type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Edit\Command", "")
If @error=1 Then return
$aPathexe=StringRegExp($type, "(^.*)exe(.*){:content:}quot;, 3)
If @error=1 Then return
$Pathexe1 = StringReplace($aPathexe[0], '"', '')
If FileExists($Pathexe1&'exe') Then GUICtrlSetData($RedInp2, $Pathexe1&'exe')
EndFunc


; заполнение комбобокса списком пунктов реестра
Func _genlist()
GUICtrlSendMsg($genlist, 0x14B, 0, 0)
$regst=''
For $i = 1 to 20
$regShell = RegEnumKey("HKEY_CLASSES_ROOT\AutoIt3Script\Shell", $i)
if @error <> 0 Then ExitLoop
$regst&='|'&$regShell
next
GUICtrlSetData($genlist,$regst, '')
EndFunc


; очистка комбобоксов
Func _clear()
GUICtrlSendMsg($OpenCom, 0x14B, 0, 0)
GUICtrlSendMsg($EditCom, 0x14B, 0, 0)
GUICtrlSendMsg($CompCom, 0x14B, 0, 0)
GUICtrlSendMsg($RunCom, 0x14B, 0, 0)
EndFunc

; установка английского языка
Func _langen()
GUICtrlSetData($OpenCom,'Открыть в редакторе|Open', 'Open')
GUICtrlSetData($EditCom,'Изменить|Edit Script', 'Edit Script')
GUICtrlSetData($CompCom,'Компилировать в EXE|Compile Script', 'Compile Script')
GUICtrlSetData($RunCom,'Выполнить скрипт|Run Script', 'Run Script')
EndFunc

; установка русского языка
Func _langrus()
GUICtrlSetData($OpenCom,'Открыть в редакторе|Open', 'Открыть в редакторе')
GUICtrlSetData($EditCom,'Изменить|Edit Script', 'Изменить')
GUICtrlSetData($CompCom,'Компилировать в EXE|Compile Script', 'Компилировать в EXE')
GUICtrlSetData($RunCom,'Выполнить скрипт|Run Script', 'Выполнить скрипт')
EndFunc

; чтение переменных, проверка валидности параметров
Func _read()
$err1=1
If GUICtrlRead ($run_m)=1 Then
    $run_m0='Run'
Else
    $run_m0='Open'
EndIf
$AutInp0=GUICtrlRead ($AutInp)
$RedInp01=GUICtrlRead ($RedInp1)
$RedInp02=GUICtrlRead ($RedInp2)
$OpenCom0=GUICtrlRead ($OpenCom)
$EditCom0=GUICtrlRead ($EditCom)
$CompCom0=GUICtrlRead ($CompCom)
$RunCom0=GUICtrlRead ($RunCom)
If $OpenCom0='' Then $OpenCom0='Open'
If $EditCom0='' Then $EditCom0='Edit Script'
If $CompCom0='' Then $CompCom0='Compile Script'
If $RunCom0='' Then $RunCom0='Run Script'

If $AutInp0='' or Not FileExists($AutInp0) Then
MsgBox(0, $LngErr, $LngSB13)
return
EndIf

$aPathAut0 = StringRegExp($AutInp0, "(^.*)\\(.*){:content:}quot;, 3)

; пробуем определить редактор1
If Not FileExists($RedInp01) Then
    If FileExists($aPathAut0[0]&'\SciTE\SciTE.exe') Then
        $RedInp01=$aPathAut0[0]&'\SciTE\SciTE.exe'
    Else
        $type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Open\Command", "")
        If StringInStr($type,'AutoIt3.exe')<>0 Then $type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Run\Command", "")
        If @error=1 Then return
        $aPathexe=StringRegExp($type, "(^.*)exe(.*){:content:}quot;, 3)
        If @error=1 Then return
        $Pathexe1 = StringReplace($aPathexe[0], '"', '')
        If FileExists($Pathexe1&'exe') Then $RedInp01=$Pathexe1&'exe'
    EndIf
EndIf
If Not FileExists($RedInp01) Then MsgBox(0, $LngErr, $LngSB14)

; пробуем определить редактор2
If Not FileExists($RedInp02) Then
    If FileExists($aPathAut0[0]&'\SciTE\SciTE.exe') Then
        $RedInp02=$aPathAut0[0]&'\SciTE\SciTE.exe'
    Else
        $type = RegRead("HKEY_CLASSES_ROOT\AutoIt3Script\Shell\Edit\Command", "")
        If @error=1 Then return
        $aPathexe=StringRegExp($type, "(^.*)exe(.*){:content:}quot;, 3)
        If @error=1 Then return
        $Pathexe1 = StringReplace($aPathexe[0], '"', '')
        If FileExists($Pathexe1&'exe') Then $RedInp02=$Pathexe1&'exe'
    EndIf
EndIf
If Not FileExists($RedInp02) Then MsgBox(0, $LngErr, $LngSB15)
If FileExists($RedInp02) and $RedInp02<>'' and FileExists($RedInp01) and $RedInp01<>'' and FileExists($AutInp0) and $AutInp0<>'' Then
$err1=0
GUICtrlSetData($RedInp2, $RedInp02)
GUICtrlSetData($RedInp1, $RedInp01)
EndIf
EndFunc

; устранение проблем интерфейса
Func _WinAPI_GetThemeColor($hWnd, $sClass, $iPart, $iState, $iProp)
    Local $hTheme = DllCall('uxtheme.dll', 'ptr', 'OpenThemeData', 'hwnd', $hWnd, 'wstr', $sClass)
    Local $Ret = DllCall('uxtheme.dll', 'lresult', 'GetThemeColor', 'ptr', $hTheme[0], 'int', $iPart, 'int', $iState, 'int', $iProp, 'dword*', 0)

    If (@error) Or ($Ret[0] < 0) Then
        $Ret = -1
    EndIf
    DllCall('uxtheme.dll', 'lresult', 'CloseThemeData', 'ptr', $hTheme[0])
    If $Ret = -1 Then
        Return SetError(1, 0, -1)
    EndIf
    Return SetError(0, 0, BitOR(BitAND($Ret[5], 0x00FF00), BitShift(BitAND($Ret[5], 0x0000FF), -16), BitShift(BitAND($Ret[5], 0xFF0000), 16)))
EndFunc   ;==>_WinAPI_GetThemeColor

contmenuAutoIt3.au3

screenshot

;  @AZJIO 5.10.2010
; скрипт позволяет для au3 файлов выбрать версию AutoIt3 из контекстного меню, для запуска. Или сменить версию в реестре для пунктов конт. меню.
; требуется в строках 9-12 указать свои пути для разных версий.

#NoTrayIcon
$PathNotepad=@ProgramFilesDir&'\Notepad++\notepad++.exe'

Dim $AutoIt3Path[5]=[4, _
@ProgramFilesDir&'\AutoIt3_v3.2.12.1\AutoIt3.exe', _
@ProgramFilesDir&'\AutoIt3_v3.3.0.0\AutoIt3.exe', _
@ProgramFilesDir&'\AutoIt3_v3.3.4.0\AutoIt3.exe', _
@ProgramFilesDir&'\AutoIt3_v3.3.6.1\AutoIt3.exe']

Global $Path, $Select_v0

; En
$LngContM='Other version'
$LngSelV='Version is chosen:'
$LngCur='To make current'
$LngCurH='In the contextual menu'&@CRLF&'the chosen version will be used'
$LngAut='Automatically'
$LngAutH='Automatically to do the version'&@CRLF&'chosen in the list current'
$LngAu3H='Use of the version specified in the list'&@CRLF&'without version preservation in the register'
$LngAuWH='Compilation with the specified version'
$LngNP='The path does not exist.'
$LngUnl='To remove registration of this menu in the register'&@CRLF&'accordingly removal from the contextual menu'


; Ru
; если есть русский в раскладках клавиатуры, то использовать его
For $i = 1 to 5
    $LngN = RegEnumVal("HKCU\Keyboard Layout\Preload", $i)
    If @error <> 0 Then ExitLoop
    If RegRead("HKCU\Keyboard Layout\Preload", $LngN) = 00000419 Then
        $LngContM='Другая версия'
        $LngSelV='выбрана версия:'
        $LngCur='Сделать текущей'
        $LngCurH='В контекстном меню будет'&@CRLF&'использоваться выбранная версия'
        $LngAut='атоматически'
        $LngAutH='Автоматически делать выбранную'&@CRLF&'в списке версию текущей'
        $LngAu3H='Использование версии указанной в списке'&@CRLF&'без сохранения версии в реестре'
        $LngAuWH='Компилирование с указанной версией'
        $LngNP='Путь не существует.'
        $LngUnl='Удалить регистрацию этого меню в реестре'&@CRLF&'соответственно удаление из контекст. меню'
        ExitLoop
    EndIf
Next

$curret = RegRead("HKLM\SOFTWARE\script_az\contmenuAutoIt3", "Default")
If @error Then _regscr()
$other = RegRead("HKCR\AutoIt3Script\Shell\other",'')
If @error Then _regscr()

If $CmdLine[0]=0 Then Exit
$filename=StringRegExpReplace($CmdLine[1], '(^.*)\\(.*)$', '\2')
$filepath=$CmdLine[1]


$Gui = GUICreate($filename,  360, 170, -1, -1, -1, 0x00000010)

$CatchDrop = GUICtrlCreateLabel("", 0, 0, 360, 170)
GUICtrlSetState(-1, 136)

$lang=GUICtrlCreateGroup ("", 10, 31, 340, 35)
$StatusBar = GUICtrlCreateLabel($LngSelV, 16,42,130,18)
$curretButt = GUICtrlCreateButton($LngCur, 140, 40, 100, 24)
GUICtrlSetTip(-1, $LngCurH)
$curretdef = GUICtrlCreateCheckbox($LngAut, 250, 42, 90, 17)
GUICtrlSetTip(-1, $LngAutH)
If $curret = '1' Then GuiCtrlSetState(-1, 1)

$Select_v=GUICtrlCreateCombo ("", 10,10,340,18, 0x3)
$curretPath = RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")&'\AutoIt3.exe'
If @error Then $curretPath=$AutoIt3Path[1]
$setcombo=''
For $i=1 To $AutoIt3Path[0]
    $setcombo&=$AutoIt3Path[$i]&'|'
Next
If StringInStr($setcombo, $curretPath)=0 Then $setcombo&=$curretPath&'|'
GUICtrlSetData ($Select_v, StringTrimRight($setcombo, 1), $curretPath)

$AutoIt3=GUICtrlCreateButton("AutoIt3", 10, 80, 122, 25)
GUICtrlSetTip(-1, $LngAu3H)
$AutoIt3Wrapper=GUICtrlCreateButton("AutoIt3Wrapper", 10, 110, 122, 25)
GUICtrlSetTip(-1, $LngAuWH)
$AutoIt3Wrapper_Gui=GUICtrlCreateButton("AutoIt3Wrapper_Gui", 10, 140, 122, 25)
GUICtrlSetTip(-1, $LngAuWH)
$SciTE=GUICtrlCreateButton("SciTE", 140, 80, 122, 25)
$Tidy=GUICtrlCreateButton("Tidy", 140, 110, 122, 25)
$Au3ToPost=GUICtrlCreateButton("Au3ToPost", 140, 140, 122, 25)
_read()
If Not @error Then GUICtrlSetData ($StatusBar, $LngSelV&' '&FileGetVersion($Select_v0))

GUICtrlCreateLabel('drag-and-drop', 265,80,88,17, 0x2)

$uninstall = GUICtrlCreateButton("unl", 337, 147, 21, 21, 0x0040)
GUICtrlSetTip(-1, $LngUnl)
GUICtrlSetImage(-1, @SystemDir & '\xpsp2res.dll', 1, 0)

GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = -13
            If StringRight(@GUI_DRAGFILE, 4)<>'.au3' Then ContinueLoop
            ; $filename0=$filename
            $filename=StringRegExpReplace(@GUI_DRAGFILE, '(^.*)\\(.*)$', '\2')
            WinSetTitle($Gui, '', $filename)
            $filepath=@GUI_DRAGFILE
        Case $msg = $uninstall
            RegDelete("HKLM\SOFTWARE\script_az\contmenuAutoIt3")
            RegDelete("HKCR\AutoIt3Script\Shell\other")
        Case $msg = $curretdef
            _curretdef()
        Case $msg = $curretButt
            _read()
            _cd()
        Case $msg = $Select_v
            _read()
            If @error Then ContinueLoop
            GUICtrlSetData ($StatusBar, $LngSelV&' '&FileGetVersion($Select_v0))
             If GUICtrlRead($curretdef) = 1 Then _cd()
        Case $msg = $AutoIt3
            _read()
            If @error Then ContinueLoop
            ShellExecute($Path&'\AutoIt3.exe', '"'&$filepath&'" %*')
        Case $msg = $AutoIt3Wrapper
            _read()
            If @error Then ContinueLoop
            If GUICtrlRead($curretdef) = 1 Then
                ShellExecute($Path&'\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe', '/in "'&$filepath&'"')
            Else
                $PathOld=RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
                RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir","REG_SZ",$Path)
                ShellExecuteWait($Path&'\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe', '/in "'&$filepath&'"')
                RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir","REG_SZ",$PathOld)
            EndIf
        Case $msg = $AutoIt3Wrapper_Gui
            _read()
            If @error Then ContinueLoop
            If GUICtrlRead($curretdef) = 1 Then
                ShellExecute($Path&'\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe', '/ShowGui /in "'&$filepath&'"')
            Else
                $PathOld=RegRead("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir")
                RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir","REG_SZ",$Path)
                ShellExecuteWait($Path&'\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe', '/ShowGui /in "'&$filepath&'"')
                RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir","REG_SZ",$PathOld)
            EndIf
        Case $msg = $SciTE
            _read()
            If @error Then ContinueLoop
            ShellExecute($Path&'\SciTE\SciTE.exe', '"'&$filepath&'"')
        Case $msg = $Tidy
            _read()
            If @error Then ContinueLoop
            ShellExecute($Path&'\SciTE\Tidy\Tidy.exe', '"'&$filepath&'"')
        Case $msg = $Au3ToPost
            _read()
            If @error Then ContinueLoop
            ShellExecute($Path&'\SciTE\Au3ToPost\Au3ToPost.exe', '/FilePath:"'&$filepath&'"')
        Case $msg = -3
            ExitLoop
    EndSelect
WEnd

Func _cd()
    If @error = 1 Then Return
    $as='HKCR\AutoIt3Script'
    
    ; проверка в реестре существование ветки и при успехе происходит изменение пути
    ; Check in the register existence of section and at success to execute change
    
    RegRead($as&"\Shell\Au3ToPost\Command", "")
    If Not @error Then RegWrite($as&"\Shell\Au3ToPost\Command","","REG_SZ",'"'&$Path&'\SciTE\Au3ToPost\Au3ToPost.exe" /FilePath:"%1"')
    
    RegRead($as&"\Shell\Tidy\Command", "")
    If Not @error Then RegWrite($as&"\Shell\Tidy\Command","","REG_SZ",'"'&$Path&'\SciTE\Tidy\Tidy.exe" "%1"')

    RegRead($as&"\Shell\AutoIt3Wrapper_Gui\Command", "")
    If Not @error Then RegWrite($as&"\Shell\AutoIt3Wrapper_Gui\Command","","REG_SZ",'"'&$Path&'\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /ShowGui /in "%l"')

    RegRead($as&"\Shell\Compile with Options\Command", "")
    If Not @error Then RegWrite($as&"\Shell\Compile with Options\Command","","REG_SZ",'"'&$Path&'\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /ShowGui /in "%l"')

    RegRead($as&"\Shell\AutoIt3Wrapper\Command", "")
    If Not @error Then RegWrite($as&"\Shell\AutoIt3Wrapper\Command","","REG_SZ",'"'&$Path&'\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /in "%l"')

    RegRead($as&"\Shell\Compile\Command", "")
    If Not @error Then RegWrite($as&"\Shell\Compile\Command","","REG_SZ",'"'&$Path&'\Aut2Exe\Aut2Exe.exe" /in "%l"')

    RegRead($as&"\Shell\rx_re\Command", "")
    If Not @error Then RegWrite($as&"\Shell\rx_re\Command","","REG_SZ",'"'&$Path&'\AutoIt3.exe" "'&$Path&'\re_au3.au3" %*"')

    $tmpreg=RegRead($as&"\Shell\Open\Command", "")
    If Not @error Then
        If StringInStr($tmpreg, "AutoIt3.exe") Then RegWrite($as&"\Shell\Open\Command","","REG_SZ",'"'&$Path&'\AutoIt3.exe" "%1" %*')
        If StringInStr($tmpreg, "SciTE.exe") Then RegWrite($as&"\Shell\Open\Command","","REG_SZ",'"'&$Path&'\SciTE\SciTE.exe" "%1"')
        If StringInStr($tmpreg, "notepad++.exe") Then RegWrite($as&"\Shell\Open\Command","","REG_SZ",'"'&$PathNotepad&'" "%1"')
    EndIf

    $tmpreg=RegRead($as&"\Shell\Run\Command", "")
    If Not @error Then
        If StringInStr($tmpreg, "AutoIt3.exe") Then RegWrite($as&"\Shell\Run\Command","","REG_SZ",'"'&$Path&'\AutoIt3.exe" "%1" %*')
        If StringInStr($tmpreg, "SciTE.exe") Then RegWrite($as&"\Shell\Run\Command","","REG_SZ",'"'&$Path&'\SciTE\SciTE.exe" "%1"')
        If StringInStr($tmpreg, "notepad++.exe") Then RegWrite($as&"\Shell\Run\Command","","REG_SZ",'"'&$PathNotepad&'" "%1"')
    EndIf

    $tmpreg=RegRead($as&"\Shell\Edit\Command", "")
    If Not @error Then
        If StringInStr($tmpreg, "SciTE.exe") Then RegWrite($as&"\Shell\Edit\Command","","REG_SZ",'"'&$Path&'\SciTE\SciTE.exe" "%1"')
        If StringInStr($tmpreg, "notepad++.exe") Then RegWrite($as&"\Shell\Edit\Command","","REG_SZ",'"'&$PathNotepad&'" "%1"')
    EndIf
    RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","InstallDir","REG_SZ",$Path)
    RegWrite("HKLM\SOFTWARE\AutoIt v3\AutoIt","Version","REG_SZ",'v'&FileGetVersion($Select_v0))
EndFunc

Func _read()
    $Select_v0=GUICtrlRead ($Select_v)
    If Not FileExists($Select_v0) Then
        GUICtrlSetState($curretButt, 128)
        GUICtrlSetState($AutoIt3, 128)
        GUICtrlSetState($AutoIt3Wrapper, 128)
        GUICtrlSetState($AutoIt3Wrapper_Gui, 128)
        GUICtrlSetState($SciTE, 128)
        GUICtrlSetState($Tidy, 128)
        GUICtrlSetData ($StatusBar, $LngNP)
        Return SetError(1)
    Else
        GUICtrlSetState($curretButt, 64)
        GUICtrlSetState($AutoIt3, 64)
        GUICtrlSetState($AutoIt3Wrapper, 64)
        GUICtrlSetState($AutoIt3Wrapper_Gui, 64)
        GUICtrlSetState($SciTE, 64)
        GUICtrlSetState($Tidy, 64)
    EndIf
    $Path=StringRegExpReplace($Select_v0, '(^.*)\\(.*)$', '\1')
EndFunc

Func _curretdef()
    If GUICtrlRead($curretdef) = 1 Then
        RegWrite("HKLM\SOFTWARE\script_az\contmenuAutoIt3", "Default", "REG_SZ", "1")
    Else
        RegWrite("HKLM\SOFTWARE\script_az\contmenuAutoIt3", "Default", "REG_SZ", "0")
    EndIf
EndFunc

Func _regscr()
    RegWrite("HKLM\SOFTWARE\script_az\contmenuAutoIt3", "Default", "REG_SZ", "0")
    $curret = '0'
    RegWrite("HKCR\AutoIt3Script\Shell\other", "", "REG_SZ", $LngContM)
    RegWrite("HKCR\AutoIt3Script\Shell\other\Command", "", "REG_SZ", @AutoItExe & ' "' & @SystemDir & '\contmenuAutoIt3.au3" "%1"')
    If Not FileExists(@SystemDir & '\contmenuAutoIt3.au3') Then FileCopy(@ScriptDir & '\' &@ScriptName, @SystemDir & '\contmenuAutoIt3.au3', 1)
EndFunc
   Edited by AZJIO

My other projects or all

Link to comment
Share on other sites
AZJIO Universalist

AZJIO

Posted
  • Author
Posted (edited)

portable_v1.6_AutoIt3.au3 - At start does nothing.

contmenuAutoIt3.au3 - It is added in the register and the contextual menu.

Add catalogs of different versions

Dim $AutoIt3Path[5]=[4, _
@ProgramFilesDir&'\AutoIt3_v3.2.12.1\AutoIt3.exe', _
@ProgramFilesDir&'\AutoIt3_v3.3.0.0\AutoIt3.exe', _
@ProgramFilesDir&'\AutoIt3_v3.3.4.0\AutoIt3.exe', _
@ProgramFilesDir&'\AutoIt3_v3.3.6.1\AutoIt3.exe']

The rest is not difficult.

I use the translator 

Edited by AZJIO

My other projects or all

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...