#pragma compile(FileVersion, 1.0.0.0)
#pragma compile(ProductVersion, 1.0.0.0)
#pragma compile(LegalCopyright, xXx)
#pragma compile(Comments, AutoIt Version: 3.3.x.x)
#RequireAdmin
$sAutoItDir = RegRead('HKLM\SOFTWARE' & (@AutoItX64 ? '\WOW6432Node' : '') & '\AutoIt v3\AutoIt', 'InstallDir')
If @error Then Exit
Switch MsgBox(262144 + 3 + 32, Default, 'ХОТИТЕ ЗАМЕНИТЬ ПУНКТЫ КОНТЕКСТНОГО МЕНЮ ПРОВОДНИКА ДЛЯ ".au3" и ".a3x" ФАЙЛОВ?')
Case 2 ; Отмена
Exit
Case 6 ; Да
RegDelete('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell', '', 'REG_SZ', 'Open')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\2_RunX86', '', 'REG_SZ', 'Run Script (x86)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\2_RunX86', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\2_RunX86\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3.exe" "%1" %*')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\3_RunX64', '', 'REG_SZ', 'Run Script (x64)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\3_RunX64', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3_x64.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\3_RunX64\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3_x64.exe" "%1" %*')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\4_CompileX86', '', 'REG_SZ', 'Compile Script (x86)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\4_CompileX86', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\4_CompileX86\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe" /in "%l"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\5_CompileX64', '', 'REG_SZ', 'Compile Script (x64)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\5_CompileX64', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe_x64.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\5_CompileX64\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe_x64.exe" /in "%l"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\Compile Options', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\Compile Options\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\Open', '', 'REG_SZ', 'Open')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\Open', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\SciTE\SciTE.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\Open\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\SciTE\SciTE.exe" "%l"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3Script\Shell\_Разделитель_', 'CommandFlags', 'REG_DWORD', 0x00000028)
RegDelete('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell', '', 'REG_SZ', '2_RunX86')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\2_RunX86', '', 'REG_SZ', 'Run file (x86)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\2_RunX86', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\2_RunX86\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3.exe" "%1" %*')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\3_RunX64', '', 'REG_SZ', 'Run file (x64)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\3_RunX64', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3_x64.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\3_RunX64\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\AutoIt3_x64.exe" "%1" %*')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\4_CompileX86', '', 'REG_SZ', 'Compile file (x86)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\4_CompileX86', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\4_CompileX86\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe" /in "%l"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\5_CompileX64', '', 'REG_SZ', 'Compile file (x64)')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\5_CompileX64', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe_x64.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\5_CompileX64\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe_x64.exe" /in "%l"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\Compile Options', 'Icon', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\Compile Options\Command', '', 'REG_SZ', '"' & $sAutoItDir & '\Aut2Exe\Aut2Exe.exe"')
RegWrite('HKLM\SOFTWARE\Classes\AutoIt3XScript\Shell\_Разделитель_', 'CommandFlags', 'REG_DWORD', 0x00000028)
;~ Case 7 ; Нет
EndSwitch
If MsgBox(262144 + 4 + 32, Default, 'ХОТИТЕ СТАЛЬ ВЛАДЕЛЬЦЕМ ПАПКИ' & @LF & '"' & $sAutoItDir & '"' & @LF & 'И ВСЕХ ЕЁ ВЛОЖЕННЫХ ФАЙЛОВ?') = 6 Then
Run(@ComSpec & ' /c takeown /f "' & $sAutoItDir & '" /R /D Y&&echo Y|cacls "' & $sAutoItDir & '" /T /E /G %USERNAME%:F')
EndIf