EnvEdit — редактор переменных среды

Здесь выкладываются готовые к использованию макросы и скрипты.
Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit — редактор переменных среды

Post by Smitis » Sat 19 Dec, 2015 20:26



Скрипт показывает три списка переменных среды: для процесса, для пользователя из HKCU\Environment, для системы из HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment. Можно настроить, с чего начинать показ.
Переменные показываются as is, т.е. то, что вернула система, никакого специального раскрытия переменных среды не делается.
Поддерживаются только переменные REG_SZ и REG_EXPAND_SZ (остальные типы всё равно не используются самой системой).

Если при редактировании имя переменной будет изменено, будет задан вопрос, что подразумевается сделать - переименовать переменную или скопировать под другим именем.
Если при переименовании, копировании, вставке, восстановлении окажется, что переменная с таким же именем уже существует, будет задан вопрос с подтверждением перезаписи.

Персональные настройки могут храниться в отдельном файле, на случай обновления скрипта. Файл настроек должен иметь то же имя, что и скрипт с расширеним cfg и размещаться в той же папке, что и скрипт. Пример прилагается. Описание в примере.

Клавиши:
AltShiftE - Вызов макроса по умолчанию. Эта же комбинация по умолчанию используется для переключения списков переменных, аналогично Tab.
Tab и ShiftTab - Переключение списков переменных.
Enter - Редактирование переменной.
F4 или ShiftF4 - Редактирование переменной во встроенном редакторе.
Ins или Num0 - Добавление новой переменной.
Del или NumDel - Удаление переменной.
F12 или ShiftF12 - Восстановление последней удалённой переменной. Для каждого из трёх списков запоминается своя последняя удалённая переменная. После перезагрузки макросов эти сохранённые значения теряются.
F4 или ShiftF4 в диалоге редактирования вызывают встроенный редактор ФАРа. Предполагается, что делается это для переменных типа PATH, где несколько частей разделены точкой с запятой. Поэтому, при вызове редактора точки с запятой заменяются на переводы строк, а по окончании редактирования всё собирается обратно, лишние переводы строк и точки с запятой удаляются.

Уделение переменных из реестра и правильная запись их в реестр работает только с luafar/luamacro build >= 552 (или FAR 3.0 build 4491)
Для работы скрипта требуется модуль DialogClass ver>=1.11

EnvEdit 1.09
  1. --[=[ ------------------------------------------------------------------------------------------------------------------
  2.  
  3. Редактор переменных среды
  4.  
  5. v. 1.09 (C) 2014-2017 Smitis
  6.  
  7.  
  8.  
  9. Обсуждение:
  10.  
  11.     <a href="http://forum.farmanager.com/viewtopic.php?t=9982" class="postlink">http://forum.farmanager.com/viewtopic.php?t=9982</a>
  12.  
  13.  
  14.  
  15. Для работы требуется модуль DialogClass v.>=1.11
  16.  
  17.     <a href="http://forum.farmanager.com/viewtopic.php?t=8523" class="postlink">http://forum.farmanager.com/viewtopic.php?t=8523</a>
  18.  
  19.  
  20.  
  21. --]=] ------------------------------------------------------------------------------------------------------------------
  22.  
  23.  
  24.  
  25. ------------------------------------------------------------------------------------------------------------------------
  26.  
  27. -- Конфигурация
  28.  
  29. -- Пользовательские настройки можно поместить в файл с именем тем же, что и у скрипта и расширением cfg.
  30.  
  31. ------------------------------------------------------------------------------------------------------------------------
  32.  
  33. local cfg = {}
  34.  
  35. cfg.DialogWidth = 100 -- ширина диалога редактирования
  36.  
  37. cfg.NameWidth = 30 -- ширина поля под имя переменной в списке
  38.  
  39. cfg.ValueWidth = 80 -- ширина поля под значение переменной в списке
  40.  
  41. -- общая ширина окна списка = NameWidth+ValueWidth+12
  42.  
  43. -- --║--NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-│-VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV-║--
  44.  
  45. cfg.MenuHeight = 40 -- максимальная высота списка, высота окна списка = MenuHeight+4
  46.  
  47. cfg.MacroKey = "AltShiftE" -- клавиши для вызова макроса, если пустая строка, макрос будет отключен
  48.  
  49. cfg.ModeSwitch = "AS+E" -- для быстрого переключения списков после вызова макроса "не отрываясь от клавиатуры"
  50.  
  51. cfg.StartMode = 1 -- с чего начинаем: 1 - для процесса, 2 - для пользователя, 3 - для системы
  52.  
  53. cfg.NameHistory = "" -- имя истории для имён переменных, если пустая строка, история отключена
  54.  
  55. cfg.ValueHistory = "" -- имя истории для значения переменных, если пустая строка, история отключена
  56.  
  57. cfg.PluginMenu = true -- добавлять или нет вызов из меню плагинов
  58.  
  59. cfg.Favorites = {"PATH","PATHEXT","INCLUDE","LIB"} -- переменные, которые без сортировки будут показаны в начале списка
  60.  
  61. ------------------------------------------------------------------------------------------------------------------------
  62.  
  63. -- Загрузка персональных настроек
  64.  
  65. ------------------------------------------------------------------------------------------------------------------------
  66.  
  67. do local f,m=loadfile((...):gsub("[^.]+$","cfg"))
  68.  
  69. if f then setfenv(f,{cfg=cfg}) if not pcall(f) then msgbox("EnvEdit","\nCONFIG ERROR\n ",1)
  70.  
  71. end end end
  72.  
  73. ------------------------------------------------------------------------------------------------------------------------
  74.  
  75. -- Локализация
  76.  
  77. ------------------------------------------------------------------------------------------------------------------------
  78.  
  79. local langs = {
  80.  
  81.     english = {
  82.  
  83.         MenuTitle       = {"Process Environment Variables","User Environment Variables","System Environment Variables"},
  84.  
  85.         MenuBottom      = "F1:Help",
  86.  
  87.         DialogTitle     = {"Edit Environment Variable","Insert Environment Variable","Restore Environment Variable"},
  88.  
  89.         DeleteTitle     = "DELETE",
  90.  
  91.         DeleteMsg       = "Delete variable\n\n%s",
  92.  
  93.         OverwriteTitle  = "OVERWRITE",
  94.  
  95.         OverwriteMsg    = "Overwrite variable\n\n%s",
  96.  
  97.         RenameCopyTitle = "RENAME/COPY",
  98.  
  99.         RenameCopyMsg   = "Rename or copy variable\n\n%s\n\nto\n\n%s",
  100.  
  101.         NamePrompt      = "&Variable:",
  102.  
  103.         TypePrompt      = "&Type:",
  104.  
  105.         ValuePrompt     = "&Value:",
  106.  
  107.         OkButton        = "Ok",
  108.  
  109.         RenameButton    = "Rename",
  110.  
  111.         CopyButton      = "Copy",
  112.  
  113.         CancelButton    = "Cancel",
  114.  
  115.         EditButton      = "F4:Editor",
  116.  
  117.         PluginMenuDesc  = "Edit Environment Variables",
  118.  
  119.         NewName         = "* input new name *",
  120.  
  121.         NewValue        = "* input new value *",
  122.  
  123.         NoRestore       = "No data to restore",
  124.  
  125.         EditorTitle     = "Edit variable: ",
  126.  
  127.         MenuHelpTitle   = "HELP",
  128.  
  129.         MenuHelpMsg     = [=[
  130.  
  131.             Tab, ShiftTab      - Switch varialbe list (process, user, system)
  132.  
  133.             Enter          - Edit variable
  134.  
  135.             F4, ShiftF4    - Edit variable in editor
  136.  
  137.             Ins, Num0      - Insert new variable
  138.  
  139.             Del, NumDel    - Delete variable
  140.  
  141.             F12, ShiftF12  - Restore last deleted variable
  142.  
  143.         ]=],
  144.  
  145.     },
  146.  
  147.     russian = {
  148.  
  149.         MenuTitle       = {"Переменые окружения процесса","Пользовательские переменные окружения","Системные переменные окружения"},
  150.  
  151.         MenuBottom      = "F1:Помощь",
  152.  
  153.         DialogTitle     = {"Редактирование переменной среды","Вставка переменной среды","Восстановление переменной среды"},
  154.  
  155.         DeleteTitle     = "УДАЛЕНИЕ",
  156.  
  157.         DeleteMsg       = "Удалить переменную\n\n%s",
  158.  
  159.         OverwriteTitle  = "ПЕРЕПИСАТЬ",
  160.  
  161.         OverwriteMsg    = "Переписать переменную\n\n%s",
  162.  
  163.         RenameCopyTitle = "ПЕРЕИМЕНОВАТЬ/КОПИРОВАТЬ",
  164.  
  165.         RenameCopyMsg   = "Переименовать или копировать переменную\n\n%s\n\nв\n\n%s",
  166.  
  167.         NamePrompt      = "&Переменная:",
  168.  
  169.         TypePrompt      = "&Тип:",
  170.  
  171.         ValuePrompt     = "&Значение:",
  172.  
  173.         OkButton        = "Подтвердить",
  174.  
  175.         RenameButton    = "Переименовать",
  176.  
  177.         CopyButton      = "Копировать",
  178.  
  179.         CancelButton    = "Отменить",
  180.  
  181.         EditButton      = "F4:Редактор",
  182.  
  183.         PluginMenuDesc  = "Редактирование переменных окружения",
  184.  
  185.         NewName         = "* введите новое имя *",
  186.  
  187.         NewValue        = "* введите новое значение *",
  188.  
  189.         NoRestore       = "Нет данных для восстановления",
  190.  
  191.         EditorTitle     = "Редактирование переменной: ",
  192.  
  193.         MenuHelpTitle   = "ПОМОЩЬ",
  194.  
  195.         MenuHelpMsg     = [=[
  196.  
  197.             Tab, ShiftTab      - Переключение списков переменных (процесса, пользователя, системы)
  198.  
  199.             Enter         - Редактирование переменной
  200.  
  201.             F4, ShiftF4   - Редактирование переменной в редакторе
  202.  
  203.             Ins, Num0     - Добавление новой переменной
  204.  
  205.             Del, NumDel   - Удаление переменной
  206.  
  207.             F12, ShiftF12 - Восстановление последней удалённой переменной
  208.  
  209.         ]=],
  210.  
  211.     }
  212.  
  213. }
  214.  
  215. local lang = langs[win.GetEnv("FARLANG"):lower()] or langs.english
  216.  
  217. ------------------------------------------------------------------------------------------------------------------------
  218.  
  219.  
  220.  
  221. local EnvEditMenuId = win.Uuid("09814E7E-CBA7-43A4-9F65-0222E72CFADA")
  222.  
  223. local EnvEditHelpId = win.Uuid("F9EDF605-EC94-4216-8353-A96E8BB7F42D")
  224.  
  225. local EnvEditDeleteId = win.Uuid("1AA4D9CC-3173-43C2-9FB7-57842CD93EBC")
  226.  
  227. local EnvEditRestoreId = win.Uuid("634F82F7-32F5-4BF8-BF5A-9469FD9E3124")
  228.  
  229. local EnvEditRenameCopyId = win.Uuid("0A0A426D-EB4F-403C-B5F1-584B4507CE2D")
  230.  
  231. local EnvEditOverwriteId = win.Uuid("8E58D881-339C-4274-9CBA-58BD3CF00BA4")
  232.  
  233. local EnvEditPluginMenuId = "9F0AB063-515E-4E74-8214-5B801BA4B789"
  234.  
  235. local EnvEditMacroId = "9C60576F-38F0-4974-A03D-2FF851343B20"
  236.  
  237. local EnvEditChangeId = "5D2D74B0-B1CC-4091-AAA2-1C5789B14E01"
  238.  
  239. local EnvEditEditorId = "D5D70290-C316-45F1-9EA1-5CF4188FB2C3"
  240.  
  241.  
  242.  
  243. local F = far.Flags
  244.  
  245. local dialog = require "DialogClass"
  246.  
  247. local ffi = require "ffi"
  248.  
  249. local C = ffi.C
  250.  
  251. ffi.cdef [=[
  252.  
  253.     wchar_t* GetEnvironmentStringsW();
  254.  
  255.     void FreeEnvironmentStringsW(wchar_t*);
  256.  
  257.     size_t wcslen(const wchar_t*);
  258.  
  259.     int SendMessageA(HWND, UINT, WPARAM, LPARAM);
  260.  
  261.     int SendMessageTimeoutA(HWND, UINT, WPARAM, LPARAM, UINT, UINT, DWORD_PTR*);
  262.  
  263. ]=]
  264.  
  265.  
  266.  
  267. --local farbuild = select(4,far.AdvControl(F.ACTL_GETFARMANAGERVERSION,true))
  268.  
  269. --local wrenable = farbuild >= 4491
  270.  
  271.  
  272.  
  273. local vtypes = {string="REG_SZ", expandstring="REG_EXPAND_SZ", REG_SZ="string", REG_EXPAND_SZ="expandstring"}
  274.  
  275. local vtindex = {string=1, expandstring=2, REG_SZ=1, REG_EXPAND_SZ=2}
  276.  
  277.  
  278.  
  279. ------------------------------------------------------------------------------------------------------------------------
  280.  
  281.  
  282.  
  283. local mode = 1 -- что редактируем: 0:выходим, 1:для процесса, 2:для пользователя, 3:для системы
  284.  
  285. local RootKey, PathKey
  286.  
  287. local backup = {{Name="",Value="",Type=""},{Name="",Value="",Type=""},{Name="",Value="",Type=""}} -- сохранение предыдущего значения переменной для восстановления
  288.  
  289.  
  290.  
  291. ------------------------------------------------------------------------------------------------------------------------
  292.  
  293. local function Message(msg,...)
  294.  
  295.     return far.Message(" \n"..msg.."\n ",...)
  296.  
  297. end
  298.  
  299. ------------------------------------------------------------------------------------------------------------------------
  300.  
  301. local environment, favorites, envmenu
  302.  
  303.  
  304.  
  305. local function FindVar(name) -- поиск переменной в меню для восстановления позиции
  306.  
  307.     name = name:lower()
  308.  
  309.     for i,var in ipairs(envmenu) do
  310.  
  311.         if var.Name:lower()==name then
  312.  
  313.             return i
  314.  
  315.         end
  316.  
  317.     end
  318.  
  319.     return 0
  320.  
  321. end
  322.  
  323. ------------------------------------------------------------------------------------------------------------------------
  324.  
  325. local HWND_BROADCAST = ffi.cast("HWND",0xffff)
  326.  
  327. local WM_SETTINGCHANGE = 0x001A
  328.  
  329. local SMTO_ABORTIFHUNG = 0x0002
  330.  
  331. local MSG_TIMEOUT = 5000
  332.  
  333.  
  334.  
  335. local function SendSettingChange(mode)
  336.  
  337.     if mode==nil or mode~=1 then -- для локальных переменных обновлять не надо
  338.  
  339.         --C.SendMessageA(HWND_BROADCAST,WM_SETTINGCHANGE,0,ffi.cast("LPARAM","Environment"))
  340.  
  341.         C.SendMessageTimeoutA(HWND_BROADCAST,WM_SETTINGCHANGE,0,ffi.cast("LPARAM","Environment"),SMTO_ABORTIFHUNG,MSG_TIMEOUT,ffi.cast("DWORD_PTR*",0))
  342.  
  343.     end
  344.  
  345. end
  346.  
  347. ------------------------------------------------------------------------------------------------------------------------
  348.  
  349. local function ModalEdit(text,title)
  350.  
  351.     text = text:gsub(';','\n')
  352.  
  353.     text = text:gsub('%b""',function(x) return x:gsub('\n',';') end) -- точки с зяпятой в кавычках
  354.  
  355.     text = text:gsub('\n+','\n') -- лишние переводы строк
  356.  
  357.     text = text.."\n"
  358.  
  359.     local tmpfile = far.MkTemp()
  360.  
  361.     local hfile = io.open(tmpfile,"w") hfile:write(text) hfile:close()
  362.  
  363.     editor.Editor(tmpfile,title or " ",0,0,-1,-1,bor(F.EF_DISABLEHISTORY,F.EF_DISABLESAVEPOS),0,0,65001)
  364.  
  365.     hfile = io.open(tmpfile,"r") text = hfile:read("*a") hfile:close()
  366.  
  367.     win.DeleteFile(tmpfile)
  368.  
  369.     return text:gsub('[\n;]+',';'):gsub('[; ]+$',''):gsub('^[; ]+','')
  370.  
  371. end
  372.  
  373. ------------------------------------------------------------------------------------------------------------------------
  374.  
  375. local function EditVar(var,op)
  376.  
  377.     op = op or 1 -- 1:edit, 2:insert, 3:restore
  378.  
  379.     local prev = {Name=var.Name,Value=var.Value,Type=var.Type}
  380.  
  381.     local new = {Name=var.Name,Value=var.Value,Type=var.Type}
  382.  
  383.     local D,DI = dialog.New {
  384.  
  385.         Guid = EnvEditChangeId,
  386.  
  387.         Title = lang.DialogTitle[op],
  388.  
  389.         W = cfg.DialogWidth,
  390.  
  391.         H = mode==1 and 10 or 12,
  392.  
  393.         DlgProc = function(hDlg,Msg,Param1,Param2,D,DI)
  394.  
  395.             if Msg==F.DN_CLOSE and Param1==DI.OkButton.Id then
  396.  
  397.                 new.Name = DI.Name:GetText()
  398.  
  399.                 new.Value = DI.Value:GetText()
  400.  
  401.                 if mode~=1 then new.Type = DI.Type:GetText() end
  402.  
  403.  
  404.  
  405.                 -- При пустом имени или пустом значении вернёмся к редактированию
  406.  
  407.                 if new.Name=="" or new.Value=="" then
  408.  
  409.                     return false
  410.  
  411.                 end
  412.  
  413.  
  414.  
  415.                 -- Спрашиваем переименовать, копировать или отменить при изменение имени при редактированиее.
  416.  
  417.                 -- При отмене вернёмся к редактированию.
  418.  
  419.                 local rc = 1 -- 0:cancel, 1:change, 2:rename, 3:copy
  420.  
  421.                 if op==1 and new.Name:lower()~=prev.Name:lower() then
  422.  
  423.                     rc = (Message(lang.RenameCopyMsg:format(prev.Name,new.Name),lang.RenameCopyTitle,lang.RenameButton..";"..lang.CopyButton..";"..lang.CancelButton,"","",EnvEditRenameCopyId)+1)%4
  424.  
  425.                     if rc==0 then return true end
  426.  
  427.                 end
  428.  
  429.  
  430.  
  431.                 -- Спрашиваем при переименовании, копировании, вставке или восстановлении если уже существует такая переменная
  432.  
  433.                 if (rc>1 or op>1) and FindVar(new.Name)>0 then
  434.  
  435.                     if Message(lang.OverwriteMsg:format(new.Name),lang.OverwriteTitle,";OkCancel","","",EnvEditOverwriteId)~=1 then
  436.  
  437.                         return true
  438.  
  439.                     end
  440.  
  441.                 end
  442.  
  443.  
  444.  
  445.                 -- Если дошли сюда, значит наконец можно установить переменную
  446.  
  447.                 if mode==1 then
  448.  
  449.                     win.SetEnv(new.Name,new.Value)
  450.  
  451.                     if rc==2 then -- при переименовании удалить старую переменную
  452.  
  453.                         win.SetEnv(prev.Name,nil)
  454.  
  455.                     end
  456.  
  457.                 else
  458.  
  459.                     win.SetRegKey(RootKey,PathKey,new.Name,vtypes[new.Type],new.Value)
  460.  
  461.                     if rc==2 then -- при переименовании удалить старую переменную
  462.  
  463.                         win.DeleteRegValue(RootKey,PathKey,prev.Name)
  464.  
  465.                     end
  466.  
  467.                     SendSettingChange()
  468.  
  469.                 end
  470.  
  471.                 var.Name,var.Value,var.Type = new.Name,new.Value,new.Type
  472.  
  473.             end
  474.  
  475.  
  476.  
  477.             -- Вызов модального редактора
  478.  
  479.             local key = (Msg==F.DN_CONTROLINPUT and Param2.EventType==F.KEY_EVENT and Param2.KeyDown) and far.InputRecordToName(Param2) or ""
  480.  
  481.             if (Msg==F.DN_BTNCLICK and Param1==DI.EditButton.Id) or key=="F4" or key=="ShiftF4" then
  482.  
  483.                 DI.Value:SetText(ModalEdit(DI.Value:GetText(),lang.EditorTitle..DI.Name:GetText()))
  484.  
  485.                 return true
  486.  
  487.             end
  488.  
  489.         end,
  490.  
  491.     }
  492.  
  493.     DI {"t+", Text=lang.NamePrompt}
  494.  
  495.     DI {"e+", Name="Name", Text=var.Name, History=cfg.NameHistory}
  496.  
  497.     if mode~=1 then
  498.  
  499.         DI {"t+", Text=lang.TypePrompt}
  500.  
  501.         DI {"xd+", Name="Type", W=14, LI={{Flags=0,Text="REG_SZ"},{Flags=0,Text="REG_EXPAND_SZ"},SelectIndex=vtindex[var.Type]}, Text=""}
  502.  
  503.     end
  504.  
  505.     DI {"t+", Text=lang.ValuePrompt}
  506.  
  507.     DI {"e+", Name="Value", Text=var.Value, Flags=(op==1 and F.DIF_FOCUS or 0), History=cfg.ValueHistory}
  508.  
  509.     DI {"s+"}
  510.  
  511.     DI {"b=!+", Name="OkButton", Text=lang.OkButton}
  512.  
  513.     DI {"b=", Name="CancelButton", Text=lang.CancelButton}
  514.  
  515.     DI {"b=;", Name="EditButton", Text=lang.EditButton}
  516.  
  517.     return D()==DI.OkButton.Id
  518.  
  519. end
  520.  
  521. ------------------------------------------------------------------------------------------------------------------------
  522.  
  523. local function EditEnvironment()
  524.  
  525.     lang = langs[win.GetEnv("FARLANG"):lower()] or langs.english
  526.  
  527.     local items, item
  528.  
  529.     local pos = {0,0,0} -- текущая позиция в меню по каждому типу переменных
  530.  
  531.     local jump -- переменная, если требуется изменение текущей pos
  532.  
  533.     local MenuHotKeys = {
  534.  
  535.                 {BreakKey="F1"},
  536.  
  537.                 {BreakKey="F4"},{BreakKey="S+F4"},
  538.  
  539.                 {BreakKey="F12"},{BreakKey="S+F12"},
  540.  
  541.                 {BreakKey="INSERT"},{BreakKey="NUMPAD0"},
  542.  
  543.                 {BreakKey="DELETE"},{BreakKey="DECIMAL"},{BreakKey="F8"},
  544.  
  545.                 {BreakKey="TAB"},{BreakKey="C+TAB"},
  546.  
  547.                 {BreakKey="S+TAB"},{BreakKey="CS+TAB"},
  548.  
  549.     }
  550.  
  551.     if cfg.ModeSwitch and cfg.ModeSwitch~="" then
  552.  
  553.         MenuHotKeys[#MenuHotKeys+1] = {BreakKey=cfg.ModeSwitch}
  554.  
  555.     end
  556.  
  557.     local name, value, vtype
  558.  
  559.     mode = cfg.StartMode
  560.  
  561.     while mode>0 do -- цикл переключения списка отображаемых переменных 1/2/3 - процесс/пользователь/система
  562.  
  563.         environment = {}
  564.  
  565.         favorites = {}
  566.  
  567.         envmenu = {}
  568.  
  569.         if mode==1 then -- переменные процесса
  570.  
  571.             local envstrings = C.GetEnvironmentStringsW()
  572.  
  573.             local envptr = envstrings -- указатель на очередную переменную
  574.  
  575.             local envlen = C.wcslen(envptr)
  576.  
  577.             while envlen > 0 do
  578.  
  579.                 value = win.Utf16ToUtf8(ffi.string(ffi.cast("char*",envptr),2*(envlen+1)))
  580.  
  581.                 if value:sub(1,1)~="=" then -- кроме "=<диск>=<путь>"
  582.  
  583.                     name,value = value:match("^(.-)=(.*)$")
  584.  
  585.                     if name and value then
  586.  
  587.                         environment[#environment+1] = {Name=name,Value=value}
  588.  
  589.                     end
  590.  
  591.                 end
  592.  
  593.                 envptr = envptr+envlen+1 -- указатель на следующую строку
  594.  
  595.                 envlen = C.wcslen(envptr)
  596.  
  597.             end
  598.  
  599.             C.FreeEnvironmentStringsW(envstrings)
  600.  
  601.         else
  602.  
  603.             local index = 0
  604.  
  605.             if mode==2 then -- пользовательские переменные
  606.  
  607.                 RootKey = "HKCU"
  608.  
  609.                 PathKey = "Environment"
  610.  
  611.             elseif mode==3 then -- системные переменные
  612.  
  613.                 RootKey = "HKLM"
  614.  
  615.                 PathKey = "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment"
  616.  
  617.             else
  618.  
  619.                 return
  620.  
  621.             end
  622.  
  623.             name = win.EnumRegValue(RootKey,PathKey,index)
  624.  
  625.             while name do
  626.  
  627.                 value,vtype = win.GetRegKey(RootKey,PathKey,name)
  628.  
  629.                 if vtypes[vtype] then
  630.  
  631.                     environment[#environment+1] = {Name=name,Value=value,Type=vtypes[vtype]}
  632.  
  633.                 end
  634.  
  635.                 index = index+1
  636.  
  637.                 name = win.EnumRegValue(RootKey,PathKey,index)
  638.  
  639.             end
  640.  
  641.         end
  642.  
  643.         table.sort(environment,function(a,b) return(a.Name:lower()<b.Name:lower()) end)
  644.  
  645.         for _,f in ipairs(cfg.Favorites) do -- формируем список избраного
  646.  
  647.             for _,e in ipairs(environment) do
  648.  
  649.                 if f:upper()==e.Name:upper() then
  650.  
  651.                     e.Fav = true -- помечаем как избранное
  652.  
  653.                     envmenu[#envmenu+1] = e
  654.  
  655.                     break
  656.  
  657.                 end
  658.  
  659.             end
  660.  
  661.         end
  662.  
  663.         if #envmenu>0 and #envmenu<#environment then -- Разделитель между избранным и остальным
  664.  
  665.             envmenu[#envmenu+1] = {Name="",separator=true}
  666.  
  667.         end
  668.  
  669.         for _,e in ipairs(environment) do -- Перенос оставшегося списка
  670.  
  671.             if e.Name~="" and not e.Fav then
  672.  
  673.                 envmenu[#envmenu+1] = e
  674.  
  675.             end
  676.  
  677.         end
  678.  
  679.         for _,e in ipairs(envmenu) do -- Форматируем для far.Menu
  680.  
  681.             if not e.separator then
  682.  
  683.                 e.text = ("%%-%is │ %%-%is"):format(cfg.NameWidth,cfg.ValueWidth):format(e.Name:sub(1,cfg.NameWidth),e.Value:sub(1,cfg.ValueWidth))
  684.  
  685.             end
  686.  
  687.         end
  688.  
  689.         if jump then -- определяем позицию для перехода (после вставки, переименования и т.п.)
  690.  
  691.             pos[mode] = FindVar(jump)
  692.  
  693.             jump = nil
  694.  
  695.         end
  696.  
  697.         while true do -- цикл - показываем меню / обрабатываем клавиши
  698.  
  699.             local res
  700.  
  701.             res,pos[mode] = far.Menu(
  702.  
  703.                 {
  704.  
  705.                     Title=lang.MenuTitle[mode],
  706.  
  707.                     Bottom=lang.MenuBottom,
  708.  
  709.                     SelectIndex=pos[mode],
  710.  
  711.                     Id=EnvEditMenuId,
  712.  
  713.                     Flags=bor(F.FMENU_SHOWAMPERSAND,F.FMENU_WRAPMODE),
  714.  
  715.                     MaxHeight=cfg.MenuHeight,
  716.  
  717.                 },
  718.  
  719.                 envmenu, MenuHotKeys
  720.  
  721.             )
  722.  
  723.             if res==nil then -- Esc
  724.  
  725.                 mode = 0
  726.  
  727.                 break
  728.  
  729.             --elseif not res.BreakKey or (res.BreakKey and (res.BreakKey=="F4" or res.BreakKey=="S+F4")) then -- Enter, F4
  730.  
  731.             elseif not res.BreakKey then -- Enter
  732.  
  733.                 local var = envmenu[pos[mode]]
  734.  
  735.                 if EditVar(var) then
  736.  
  737.                     jump = var.Name
  738.  
  739.                     break
  740.  
  741.                 end
  742.  
  743.             elseif res.BreakKey=="F4" or res.BreakKey=="S+F4" then -- модальный редактор
  744.  
  745.                 local var = envmenu[pos[mode]]
  746.  
  747.                 var.Value = ModalEdit(var.Value,lang.EditorTitle..var.Name)
  748.  
  749.                 if var.Value=="" then var.Value=nil end -- пустое значение - удаляем переменую
  750.  
  751.                 if mode==1 then
  752.  
  753.                     win.SetEnv(var.Name,var.Value)
  754.  
  755.                     jump = var.Name
  756.  
  757.                     break
  758.  
  759.                 elseif var.Value then
  760.  
  761.                     win.SetRegKey(RootKey,PathKey,var.Name,vtypes[var.Type],var.Value)
  762.  
  763.                     jump = var.Name
  764.  
  765.                     SendSettingChange()
  766.  
  767.                     break
  768.  
  769.                 else
  770.  
  771.                     backup[mode] = {Name=var.Name,Value=var.Value,Type=var.Type}
  772.  
  773.                     win.DeleteRegValue(RootKey,PathKey,prev.Name)
  774.  
  775.                     SendSettingChange()
  776.  
  777.                     break
  778.  
  779.                 end
  780.  
  781.             elseif res.BreakKey=="F12" or res.BreakKey=="S+F12" then -- восстановление
  782.  
  783.                 local var = {Name=backup[mode].Name,Value=backup[mode].Value,Type=backup[mode].Type}
  784.  
  785.                 if var.Name=="" then
  786.  
  787.                     Message(lang.NoRestore,lang.RestoreTitle,";Ok","","",EnvEditRestoreId)
  788.  
  789.                 elseif EditVar(var,3) then
  790.  
  791.                     jump = var.Name
  792.  
  793.                     SendSettingChange(mode)
  794.  
  795.                     break
  796.  
  797.                 end
  798.  
  799.             elseif res.BreakKey=="INSERT" or res.BreakKey=="NUMPAD0" then
  800.  
  801.                 local var = {Name=lang.NewName,Value=lang.NewValue}
  802.  
  803.                 if mode~=1 then var.Type="REG_SZ" end
  804.  
  805.                 if EditVar(var,2) then
  806.  
  807.                     jump = var.Name
  808.  
  809.                     SendSettingChange(mode)
  810.  
  811.                     break
  812.  
  813.                 end
  814.  
  815.             elseif res.BreakKey=="DELETE" or res.BreakKey=="DECIMAL" then
  816.  
  817.                 local var = envmenu[pos[mode]]
  818.  
  819.                 if Message(lang.DeleteMsg:format(var.Name),lang.DeleteTitle,";OkCancel","","",EnvEditDeleteId) == 1 then
  820.  
  821.                     backup[mode] = {Name=var.Name,Value=var.Value,Type=var.Type}
  822.  
  823.                     if mode==1 then
  824.  
  825.                         win.SetEnv(var.Name,nil)
  826.  
  827.                     else
  828.  
  829.                         win.DeleteRegValue(RootKey,PathKey,var.Name)
  830.  
  831.                         SendSettingChange()
  832.  
  833.                     end
  834.  
  835.                     if pos[mode]==#envmenu then pos[mode]=pos[mode]-1 end
  836.  
  837.                     break
  838.  
  839.                 end
  840.  
  841.             elseif res.BreakKey=="TAB" or res.BreakKey=="C+TAB" or res.BreakKey==cfg.ModeSwitch then
  842.  
  843.                 mode = mode + 1
  844.  
  845.                 if mode>3 then mode = 1 end
  846.  
  847.                 break
  848.  
  849.             elseif res.BreakKey=="S+TAB" or res.BreakKey=="CS+TAB" then
  850.  
  851.                 mode = mode - 1
  852.  
  853.                 if mode<1 then mode = 3 end
  854.  
  855.                 break
  856.  
  857.             elseif res.BreakKey=="F1" then
  858.  
  859.                 Message(lang.MenuHelpMsg:gsub('%s*\n%s*','\n'):gsub('^%s+',''):gsub('[%s%c]+$',''),lang.MenuHelpTitle,";Ok","l",nil,EnvEditHelpId)
  860.  
  861.             end
  862.  
  863.         end
  864.  
  865.     end
  866.  
  867. end;
  868.  
  869. ------------------------------------------------------------------------------------------------------------------------
  870.  
  871. if cfg.MacroKey and cfg.MacroKey~="" then
  872.  
  873.     Macro {
  874.  
  875.         description = "EnvEdit";
  876.  
  877.         area = "Shell Search QView Info Tree Editor Viewer";
  878.  
  879.         id = EnvEditMacroId;
  880.  
  881.         key = "AltShiftE";
  882.  
  883.         action = EditEnvironment;
  884.  
  885.     }
  886.  
  887. end
  888.  
  889. ------------------------------------------------------------------------------------------------------------------------
  890.  
  891. if cfg.PluginMenu then
  892.  
  893.     MenuItem {
  894.  
  895.         description = "EnvEdit";
  896.  
  897.         menu = "Plugins";
  898.  
  899.         area = "Shell Search QView Info Tree Editor Viewer";
  900.  
  901.         guid = EnvEditPluginMenuId;
  902.  
  903.         text = function(menu,area)
  904.  
  905.             lang = langs[win.GetEnv("FARLANG"):lower()] or langs.english
  906.  
  907.             return lang.PluginMenuDesc
  908.  
  909.         end;
  910.  
  911.         action = EditEnvironment;
  912.  
  913.     }
  914.  
  915. end
  916.  
  917. ------------------------------------------------------------------------------------------------------------------------
Пример файла настроек
  1. ------------------------------------------------------------------------------------------------------------------------
  2.  
  3. -- Конфигурация
  4.  
  5. ------------------------------------------------------------------------------------------------------------------------
  6.  
  7. cfg.DialogWidth = 100 -- ширина диалога редактирования
  8.  
  9. cfg.NameWidth = 30 -- ширина поля под имя переменной в списке
  10.  
  11. cfg.ValueWidth = 80 -- ширина поля под значение переменной в списке
  12.  
  13. cfg.MenuHeight = 40 -- максимальная высота списка, высота окна списка = MenuHeight+4
  14.  
  15. cfg.MacroKey = "AltShiftE" -- клавиши для вызова макроса, если пустая строка, макрос будет отключен
  16.  
  17. cfg.ModeSwitch = "AS+E" -- для быстрого переключения списков после вызова макроса "не отрываясь от клавиатуры"
  18.  
  19. cfg.StartMode = 1 -- с чего начинаем: 1 - для процесса, 2 - для пользователя, 3 - для системы
  20.  
  21. cfg.NameHistory = "" -- имя истории для имён переменных, если пустая строка, история отключена
  22.  
  23. cfg.ValueHistory = "" -- имя истории для значения переменных, если пустая строка, история отключена
  24.  
  25. cfg.PluginMenu = true -- добавлять или нет вызов из меню плагинов
  26.  
  27. cfg.Favorites = {"PATH","PATHEXT","PSModulePath"} -- переменные, которые без сортировки будут показаны в начале списка
  28.  
  29. ------------------------------------------------------------------------------------------------------------------------
Attachments
EnvEdit.1.09.7z
EnvEdit 1.09
(6.31 KiB) Downloaded 16 times

User avatar
HaRT
Moderator
Posts: 7979
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 66 times
Been thanked: 97 times

EnvEdit - редактор переменных среды

Post by HaRT » Sat 19 Dec, 2015 23:35

Скрипт не пробовал, но интересно, правильно ли будут разбиваться пути, некоторые из которых закавычены из-за наличия в них точки с запятой.
Фар есть инструмент, а не нянька. © 2009 DrKnS

User avatar
DrKnS
Posts: 4533
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 2 times
Been thanked: 113 times
Contact:

EnvEdit - редактор переменных среды

Post by DrKnS » Sun 20 Dec, 2015 02:45

Smitis wrote: - При изменении переменных через реестр, надо бы послать HWND_BROADCAST с WM_SETTINGCHANGE как минимум. Но что-то не заладилось, посмотрите, кто в теме, плиз. (Раньше делал через вызов setx.exe, там сообщение посылалось автоматически).
Как-то так:
  1. ffi.cdef[[int SendMessageTimeoutA(HWND, UINT, WPARAM, LPARAM, UINT, UINT, DWORD_PTR*);]]
  2.  
  3. local HWND_BROADCAST = ffi.cast("HWND", 0xffff)
  4.  
  5. local WM_SETTINGCHANGE = 0x001A
  6.  
  7. local SMTO_ABORTIFHUNG = 0x0002
  8.  
  9. local MSG_TIMEOUT = 5000
  10.  
  11. ffi.C.SendMessageTimeoutA(HWND_BROADCAST, WM_SETTINGCHANGE, 0, ffi.cast("LPARAM", "Environment"), SMTO_ABORTIFHUNG, MSG_TIMEOUT, ffi.cast("DWORD_PTR*", 0))
С setx лучше не связываться, оно тупое и больше 1024 символов не умеет.

User avatar
Wave
Posts: 1706
Joined: Thu 04 Aug, 2005 18:47
Location: Харьков, Украина
Has thanked: 2 times
Been thanked: 9 times
Contact:

EnvEdit - редактор переменных среды

Post by Wave » Sun 20 Dec, 2015 10:29

А мне интересен аналог плагина EnvMan. Т.е. который может группировать переменные окружения в пакеты и в любой момент разворачивать их в пользовательскую среду. Нужно это для работы с серверами, т.е. чтобы мог быстро развернуть кучу переменных с путями php и т.п., а в плагине не устраивает его привязанность к реестру — свои настройки он в реестре хранит (не до конца портирован на FAR3).
Пользуюсь ФАРом больше 15 лет © собирательный.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Sun 20 Dec, 2015 12:23

HaRT wrote:Скрипт не пробовал, но интересно, правильно ли будут разбиваться пути, некоторые из которых закавычены из-за наличия в них точки с запятой.
Не правильно будут - кавычки не проверяются. Но в принципе, можно сделать.
Разум когда-нибудь победит.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Mon 21 Dec, 2015 09:05

v. 1.01
- Сделал восстановление удаленной переменной по F12 (хранится до перезагрузки макросов).
- HWND_BROADCAST посылается, но не знаю, правильно ли.
Правильная работа гарантируется только в luafar/luamacro >= build 552 (ночная сборка 4488).
Разум когда-нибудь победит.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Mon 21 Dec, 2015 10:22

v. 1.02
- По многочисленным просьбам :) при вызове встроенного редактора точки с запятой в кавычках в разбивке на строки не участвуют.
- Тип переменной сделан списком.
Разум когда-нибудь победит.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Tue 22 Dec, 2015 08:40

Wave wrote:А мне интересен аналог плагина EnvMan. Т.е. который может группировать переменные окружения в пакеты и в любой момент разворачивать их в пользовательскую среду. Нужно это для работы с серверами, т.е. чтобы мог быстро развернуть кучу переменных с путями php и т.п., а в плагине не устраивает его привязанность к реестру — свои настройки он в реестре хранит (не до конца портирован на FAR3).
Посмотрел, может быть слишком поверхостно, но как-то не проникся. Тоже самое я делаю командными файлами (или PowerShell), более гибко получается.
Разум когда-нибудь победит.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Tue 22 Dec, 2015 15:00

v. 1.03
- Исправлена отправка HWND_BROADCAST (LPARAM передавался не тем параметром). Но всё равно не знаю, правильно отправляется или нет.
- Вернул возможность редактировать имя и тип.
Копирование и переименование решил не делать. Копирование и сейчас получается,как побочный эффект, если изменить имя.

П.С.
Вот сейчас подумалось, по сравнению с тем что было до публикации здесь, из функционала реально добавилось восстановление удалённой переменной и не очень нужные мне переменные процесса. Да, я привёл скрипт более или менее в порядок, переделал без вызова внешней утилиты, добавил конфигурацию, изменение языка, но времени на это потратилось даже больше, чем на редактирование этих переменных за последний год (один раз при переустановке винды, два-три раза правил path). :)
Разум когда-нибудь победит.

User avatar
HaRT
Moderator
Posts: 7979
Joined: Tue 30 Aug, 2005 17:21
Location: Санкт-Петербург
Has thanked: 66 times
Been thanked: 97 times

EnvEdit - редактор переменных среды

Post by HaRT » Tue 22 Dec, 2015 16:12

Smitis wrote: Исправлена отправка HWND_BROADCAST (LPARAM передавался не тем параметром). Но всё равно не знаю, правильно отправляется или нет.
Думаю, можно частично проверить другим экземпляром Фара: если он не подхватывает изменения, то отправляется точно неправильно. ;)
Фар есть инструмент, а не нянька. © 2009 DrKnS

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Tue 22 Dec, 2015 22:22

Забыл про эту фичу. Попробовал. Не приходит. Через setx приходит, а так нет.
Разум когда-нибудь победит.

User avatar
DrKnS
Posts: 4533
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 2 times
Been thanked: 113 times
Contact:

EnvEdit - редактор переменных среды

Post by DrKnS » Tue 22 Dec, 2015 22:46

Smitis wrote: Не приходит.
Я ж вроде выше уже написал, как правильно посылать.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Wed 23 Dec, 2015 07:58

DrKnS
Что-то у меня вчера переклинило. Ни в каком виде не хотело работать.
А сейчас с утра Ваш вариант заработал.
Разум когда-нибудь победит.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Wed 23 Dec, 2015 09:16

v. 1.04

- Отправка HWND_BROADCAST.
Разум когда-нибудь победит.

Smitis
Posts: 1440
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 22 times
Contact:

EnvEdit - редактор переменных среды

Post by Smitis » Fri 25 Dec, 2015 14:51

v. 1.05

- Проверка на пустое имя делается не при выходе из диалога в DlgProc, а уже после закрытия. Иначе нельзя выйти по ESC при пустом имени.
- Добавлена проверка на пустое значение.
- При изменении в диалоге имени спрашиваем что делать - переименовать или копировать. При отказе возвращаемся к редактированию.
- При переименовании, копировании, вставке, восстановлении если уже существует переменная с таким именем, запрашиваем подтверждение на перезапись. При отказе возвращаемся к редактированию.
Разум когда-нибудь победит.

User avatar
DrKnS
Posts: 4533
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 2 times
Been thanked: 113 times
Contact:

EnvEdit - редактор переменных среды

Post by DrKnS » Fri 25 Dec, 2015 15:04

Smitis wrote:Иначе нельзя выйти по ESC при пустом имени
Так Param1 надо проверять.

Post Reply

Return to “Полезные макросы и скрипты”

Who is online

Users browsing this forum: No registered users and 2 guests