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

Здесь выкладываются готовые к использованию макросы и скрипты.
Smitis
Posts: 1573
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 18 times
Been thanked: 32 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.10
  1. --[=[--[=[ ------------------------------------------------------------------------------------------------------------------
  2. Редактор переменных среды
  3. v. 1.10 (C) 2014-2019 Smitis
  4.  
  5. TODO:
  6.     - Восстановление фильтра после редактирования переменной
  7.  
  8. Обсуждение:
  9.     http://forum.farmanager.com/viewtopic.php?t=9982
  10.  
  11. Для работы требуется модуль DialogClass v.>=1.11
  12.     http://forum.farmanager.com/viewtopic.php?t=8523
  13.  
  14. --]=] ------------------------------------------------------------------------------------------------------------------
  15.  
  16. ------------------------------------------------------------------------------------------------------------------------
  17. -- Конфигурация
  18. -- Пользовательские настройки можно поместить в файл с именем тем же, что и у скрипта и расширением cfg.
  19. ------------------------------------------------------------------------------------------------------------------------
  20. local cfg = {}
  21. cfg.DialogWidth = 100 -- ширина диалога редактирования
  22. cfg.NameWidth = 30 -- ширина поля под имя переменной в списке
  23. cfg.ValueWidth = 80 -- ширина поля под значение переменной в списке
  24. -- общая ширина окна списка = NameWidth+ValueWidth+12
  25. -- --║--NNNNNNNNNNNNNNNNNNNNNNNNNNNNNN-│-VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV-║--
  26. cfg.MenuHeight = 40 -- максимальная высота списка, высота окна списка = MenuHeight+4
  27. cfg.MacroKey = "AltShiftE" -- клавиши для вызова макроса, если пустая строка, макрос будет отключен
  28. cfg.ModeSwitch = "AS+E" -- для быстрого переключения списков после вызова макроса "не отрываясь от клавиатуры"
  29. cfg.StartMode = 1 -- с чего начинаем: 1 - для процесса, 2 - для пользователя, 3 - для системы
  30. cfg.NameHistory = "" -- имя истории для имён переменных, если пустая строка, история отключена
  31. cfg.ValueHistory = "" -- имя истории для значения переменных, если пустая строка, история отключена
  32. cfg.PluginMenu = true -- добавлять или нет вызов из меню плагинов
  33. cfg.Favorites = {"PATH","PATHEXT","INCLUDE","LIB"} -- переменные, которые без сортировки будут показаны в начале списка
  34. ------------------------------------------------------------------------------------------------------------------------
  35. -- Загрузка персональных настроек
  36. ------------------------------------------------------------------------------------------------------------------------
  37. do local f,m=loadfile((...):gsub("[^.]+$","cfg"))
  38. if f then setfenv(f,{cfg=cfg}) if not pcall(f) then msgbox("EnvEdit","\nCONFIG ERROR\n ",1)
  39. end end end
  40. ------------------------------------------------------------------------------------------------------------------------
  41. -- Локализация
  42. ------------------------------------------------------------------------------------------------------------------------
  43. local langs = {
  44.     english = {
  45.         MenuTitle       = {"Process Environment Variables","User Environment Variables","System Environment Variables"},
  46.         MenuBottom      = "F1:Help",
  47.         DialogTitle     = {"Edit Environment Variable","Insert Environment Variable","Restore Environment Variable"},
  48.         DeleteTitle     = "DELETE",
  49.         DeleteMsg       = "Delete variable\n\n%s",
  50.         OverwriteTitle  = "OVERWRITE",
  51.         OverwriteMsg    = "Overwrite variable\n\n%s",
  52.         RenameCopyTitle = "RENAME/COPY",
  53.         RenameCopyMsg   = "Rename or copy variable\n\n%s\n\nto\n\n%s",
  54.         NamePrompt      = "&Variable:",
  55.         TypePrompt      = "&Type:",
  56.         ValuePrompt     = "&Value:",
  57.         OkButton        = "Ok",
  58.         RenameButton    = "Rename",
  59.         CopyButton      = "Copy",
  60.         CancelButton    = "Cancel",
  61.         EditButton      = "F4:Editor",
  62.         PluginMenuDesc  = "Edit Environment Variables",
  63.         NewName         = "* input new name *",
  64.         NewValue        = "* input new value *",
  65.         NoRestore       = "No data to restore",
  66.         EditorTitle     = "Edit variable: ",
  67.         MenuHelpTitle   = "HELP",
  68.         MenuHelpMsg     = [=[
  69.             Tab, ShiftTab  - Switch varialbe list (process, user, system)
  70.             Enter          - Edit variable
  71.             F4, ShiftF4    - Edit variable in editor
  72.             Ins, Num0      - Insert new variable
  73.             Del, NumDel    - Delete variable
  74.             F12, ShiftF12  - Restore last deleted variable
  75.         ]=],
  76.     },
  77.     russian = {
  78.         MenuTitle       = {"Переменые окружения процесса","Пользовательские переменные окружения","Системные переменные окружения"},
  79.         MenuBottom      = "F1:Помощь",
  80.         DialogTitle     = {"Редактирование переменной среды","Вставка переменной среды","Восстановление переменной среды"},
  81.         DeleteTitle     = "УДАЛЕНИЕ",
  82.         DeleteMsg       = "Удалить переменную\n\n%s",
  83.         OverwriteTitle  = "ПЕРЕПИСАТЬ",
  84.         OverwriteMsg    = "Переписать переменную\n\n%s",
  85.         RenameCopyTitle = "ПЕРЕИМЕНОВАТЬ/КОПИРОВАТЬ",
  86.         RenameCopyMsg   = "Переименовать или копировать переменную\n\n%s\n\nв\n\n%s",
  87.         NamePrompt      = "&Переменная:",
  88.         TypePrompt      = "&Тип:",
  89.         ValuePrompt     = "&Значение:",
  90.         OkButton        = "Подтвердить",
  91.         RenameButton    = "Переименовать",
  92.         CopyButton      = "Копировать",
  93.         CancelButton    = "Отменить",
  94.         EditButton      = "F4:Редактор",
  95.         PluginMenuDesc  = "Редактирование переменных окружения",
  96.         NewName         = "* введите новое имя *",
  97.         NewValue        = "* введите новое значение *",
  98.         NoRestore       = "Нет данных для восстановления",
  99.         EditorTitle     = "Редактирование переменной: ",
  100.         MenuHelpTitle   = "ПОМОЩЬ",
  101.         MenuHelpMsg     = [=[
  102.             Tab, ShiftTab      - Переключение списков переменных (процесса, пользователя, системы)
  103.             Enter         - Редактирование переменной
  104.             F4, ShiftF4   - Редактирование переменной в редакторе
  105.             Ins, Num0     - Добавление новой переменной
  106.             Del, NumDel   - Удаление переменной
  107.             F12, ShiftF12 - Восстановление последней удалённой переменной
  108.         ]=],
  109.     }
  110. }
  111. local lang = langs[win.GetEnv("FARLANG"):lower()] or langs.english
  112. ------------------------------------------------------------------------------------------------------------------------
  113.  
  114. local EnvEditMenuId = win.Uuid("09814E7E-CBA7-43A4-9F65-0222E72CFADA")
  115. local EnvEditHelpId = win.Uuid("F9EDF605-EC94-4216-8353-A96E8BB7F42D")
  116. local EnvEditDeleteId = win.Uuid("1AA4D9CC-3173-43C2-9FB7-57842CD93EBC")
  117. local EnvEditRestoreId = win.Uuid("634F82F7-32F5-4BF8-BF5A-9469FD9E3124")
  118. local EnvEditRenameCopyId = win.Uuid("0A0A426D-EB4F-403C-B5F1-584B4507CE2D")
  119. local EnvEditOverwriteId = win.Uuid("8E58D881-339C-4274-9CBA-58BD3CF00BA4")
  120. local EnvEditPluginMenuId = "9F0AB063-515E-4E74-8214-5B801BA4B789"
  121. local EnvEditMacroId = "9C60576F-38F0-4974-A03D-2FF851343B20"
  122. local EnvEditChangeId = "5D2D74B0-B1CC-4091-AAA2-1C5789B14E01"
  123. local EnvEditEditorId = "D5D70290-C316-45F1-9EA1-5CF4188FB2C3"
  124.  
  125. local F = far.Flags
  126. local dialog = require "DialogClass"
  127. local ffi = require "ffi"
  128. local C = ffi.C
  129. ffi.cdef [=[
  130.     wchar_t* GetEnvironmentStringsW();
  131.     void FreeEnvironmentStringsW(wchar_t*);
  132.     size_t wcslen(const wchar_t*);
  133.     int SendMessageA(HWND, UINT, WPARAM, LPARAM);
  134.     int SendMessageTimeoutA(HWND, UINT, WPARAM, LPARAM, UINT, UINT, DWORD_PTR*);
  135. ]=]
  136.  
  137. --local farbuild = select(4,far.AdvControl(F.ACTL_GETFARMANAGERVERSION,true))
  138. --local wrenable = farbuild >= 4491
  139.  
  140. local vtypes = {string="REG_SZ", expandstring="REG_EXPAND_SZ", REG_SZ="string", REG_EXPAND_SZ="expandstring"}
  141. local vtindex = {string=1, expandstring=2, REG_SZ=1, REG_EXPAND_SZ=2}
  142.  
  143. ------------------------------------------------------------------------------------------------------------------------
  144.  
  145. local mode = 1 -- что редактируем: 0:выходим, 1:для процесса, 2:для пользователя, 3:для системы
  146. local RootKey, PathKey
  147. local backup = {{Name="",Value="",Type=""},{Name="",Value="",Type=""},{Name="",Value="",Type=""}} -- сохранение предыдущего значения переменной для восстановления
  148.  
  149. ------------------------------------------------------------------------------------------------------------------------
  150. local function Message(msg,...)
  151.     return far.Message(" \n"..msg.."\n ",...)
  152. end
  153. ------------------------------------------------------------------------------------------------------------------------
  154. local environment, favorites, envmenu
  155.  
  156. local function FindVar(name) -- поиск переменной в меню для восстановления позиции
  157.     name = name:lower()
  158.     for i,var in ipairs(envmenu) do
  159.         if var.Name:lower()==name then
  160.             return i
  161.         end
  162.     end
  163.     return 0
  164. end
  165. ------------------------------------------------------------------------------------------------------------------------
  166. local HWND_BROADCAST = ffi.cast("HWND",0xffff)
  167. local WM_SETTINGCHANGE = 0x001A
  168. local SMTO_ABORTIFHUNG = 0x0002
  169. local MSG_TIMEOUT = 5000
  170.  
  171. local function SendSettingChange(mode)
  172.     if mode==nil or mode~=1 then -- для локальных переменных обновлять не надо
  173.         --C.SendMessageA(HWND_BROADCAST,WM_SETTINGCHANGE,0,ffi.cast("LPARAM","Environment"))
  174.         C.SendMessageTimeoutA(HWND_BROADCAST,WM_SETTINGCHANGE,0,ffi.cast("LPARAM","Environment"),SMTO_ABORTIFHUNG,MSG_TIMEOUT,ffi.cast("DWORD_PTR*",0))
  175.     end
  176. end
  177. ------------------------------------------------------------------------------------------------------------------------
  178. local function ModalEdit(text,title)
  179.     text = text:gsub(';','\n')
  180.     text = text:gsub('%b""',function(x) return x:gsub('\n',';') end) -- точки с запятой в кавычках
  181.     text = text:gsub('\n+','\n') -- лишние переводы строк
  182.     text = text.."\n"
  183.     local tmpfile = far.MkTemp()
  184.     local hfile = io.open(tmpfile,"w") hfile:write(text) hfile:close()
  185.     editor.Editor(tmpfile,title or " ",0,0,-1,-1,bor(F.EF_DISABLEHISTORY,F.EF_DISABLESAVEPOS),0,0,65001)
  186.     hfile = io.open(tmpfile,"r") text = hfile:read("*a") hfile:close()
  187.     win.DeleteFile(tmpfile)
  188.     return text:gsub('[\n;]+',';'):gsub('[; ]+$',''):gsub('^[; ]+','')
  189. end
  190. ------------------------------------------------------------------------------------------------------------------------
  191. local function EditVar(var,op)
  192.     op = op or 1 -- 1:edit, 2:insert, 3:restore
  193.     local prev = {Name=var.Name,Value=var.Value,Type=var.Type}
  194.     local new = {Name=var.Name,Value=var.Value,Type=var.Type}
  195.     local D,DI = dialog.New {
  196.         Guid = EnvEditChangeId,
  197.         Title = lang.DialogTitle[op],
  198.         W = cfg.DialogWidth,
  199.         H = mode==1 and 10 or 12,
  200.         DlgProc = function(hDlg,Msg,Param1,Param2,D,DI)
  201.             if Msg==F.DN_CLOSE and Param1==DI.OkButton.Id then
  202.                 new.Name = DI.Name:GetText()
  203.                 new.Value = DI.Value:GetText()
  204.                 if mode~=1 then new.Type = DI.Type:GetText() end
  205.  
  206.                 -- При пустом имени или пустом значении вернёмся к редактированию
  207.                 if new.Name=="" or new.Value=="" then
  208.                     return false
  209.                 end
  210.  
  211.                 -- Спрашиваем переименовать, копировать или отменить при изменение имени при редактированиее.
  212.                 -- При отмене вернёмся к редактированию.
  213.                 local rc = 1 -- 0:cancel, 1:change, 2:rename, 3:copy
  214.                 if op==1 and new.Name:lower()~=prev.Name:lower() then
  215.                     rc = (Message(lang.RenameCopyMsg:format(prev.Name,new.Name),lang.RenameCopyTitle,lang.RenameButton..";"..lang.CopyButton..";"..lang.CancelButton,"","",EnvEditRenameCopyId)+1)%4
  216.                     if rc==0 then return true end
  217.                 end
  218.  
  219.                 -- Спрашиваем при переименовании, копировании, вставке или восстановлении если уже существует такая переменная
  220.                 if (rc>1 or op>1) and FindVar(new.Name)>0 then
  221.                     if Message(lang.OverwriteMsg:format(new.Name),lang.OverwriteTitle,";OkCancel","","",EnvEditOverwriteId)~=1 then
  222.                         return true
  223.                     end
  224.                 end
  225.  
  226.                 -- Если дошли сюда, значит наконец можно установить переменную
  227.                 if mode==1 then
  228.                     win.SetEnv(new.Name,new.Value)
  229.                     if rc==2 then -- при переименовании удалить старую переменную
  230.                         win.SetEnv(prev.Name,nil)
  231.                     end
  232.                 else
  233.                     win.SetRegKey(RootKey,PathKey,new.Name,vtypes[new.Type],new.Value)
  234.                     if rc==2 then -- при переименовании удалить старую переменную
  235.                         win.DeleteRegValue(RootKey,PathKey,prev.Name)
  236.                     end
  237.                     SendSettingChange()
  238.                 end
  239.                 var.Name,var.Value,var.Type = new.Name,new.Value,new.Type
  240.             end
  241.  
  242.             -- Вызов модального редактора
  243.             local key = (Msg==F.DN_CONTROLINPUT and Param2.EventType==F.KEY_EVENT and Param2.KeyDown) and far.InputRecordToName(Param2) or ""
  244.             if (Msg==F.DN_BTNCLICK and Param1==DI.EditButton.Id) or key=="F4" or key=="ShiftF4" then
  245.                 DI.Value:SetText(ModalEdit(DI.Value:GetText(),lang.EditorTitle..DI.Name:GetText()))
  246.                 return true
  247.             end
  248.         end,
  249.     }
  250.     DI {"t+", Text=lang.NamePrompt}
  251.     DI {"e+", Name="Name", Text=var.Name, History=cfg.NameHistory}
  252.     if mode~=1 then
  253.         DI {"t+", Text=lang.TypePrompt}
  254.         DI {"xd+", Name="Type", W=14, LI={{Flags=0,Text="REG_SZ"},{Flags=0,Text="REG_EXPAND_SZ"},SelectIndex=vtindex[var.Type]}, Text=""}
  255.     end
  256.     DI {"t+", Text=lang.ValuePrompt}
  257.     DI {"e+", Name="Value", Text=var.Value, Flags=(op==1 and F.DIF_FOCUS or 0), History=cfg.ValueHistory}
  258.     DI {"s+"}
  259.     DI {"b=!+", Name="OkButton", Text=lang.OkButton}
  260.     DI {"b=", Name="CancelButton", Text=lang.CancelButton}
  261.     DI {"b=;", Name="EditButton", Text=lang.EditButton}
  262.     return D()==DI.OkButton.Id
  263. end
  264. ------------------------------------------------------------------------------------------------------------------------
  265. local function EditEnvironment()
  266.     lang = langs[win.GetEnv("FARLANG"):lower()] or langs.english
  267.     local items, item
  268.     local pos = {0,0,0} -- текущая позиция в меню по каждому типу переменных
  269.     local jump -- переменная, если требуется изменение текущей pos
  270.     local MenuHotKeys = {
  271.                 {BreakKey="F1"},
  272.                 {BreakKey="F4"},{BreakKey="S+F4"},
  273.                 {BreakKey="F12"},{BreakKey="S+F12"},
  274.                 {BreakKey="INSERT"},{BreakKey="NUMPAD0"},
  275.                 {BreakKey="DELETE"},{BreakKey="DECIMAL"},{BreakKey="F8"},
  276.                 {BreakKey="TAB"},{BreakKey="C+TAB"},
  277.                 {BreakKey="S+TAB"},{BreakKey="CS+TAB"},
  278.     }
  279.     if cfg.ModeSwitch and cfg.ModeSwitch~="" then
  280.         MenuHotKeys[#MenuHotKeys+1] = {BreakKey=cfg.ModeSwitch}
  281.     end
  282.     local name, value, vtype, filter
  283.     mode = cfg.StartMode
  284.     while mode>0 do -- цикл переключения списка отображаемых переменных 1/2/3 - процесс/пользователь/система
  285.         environment = {}
  286.         favorites = {}
  287.         envmenu = {}
  288.         if mode==1 then -- переменные процесса
  289.             local envstrings = C.GetEnvironmentStringsW()
  290.             local envptr = envstrings -- указатель на очередную переменную
  291.             local envlen = C.wcslen(envptr)
  292.             while envlen > 0 do
  293.                 value = win.Utf16ToUtf8(ffi.string(ffi.cast("char*",envptr),2*envlen))
  294.                 if value:sub(1,1)~="=" then -- кроме "=<диск>=<путь>"
  295.                     name,value = value:match("^(.-)=(.*)$")
  296.                     if name and value then
  297.                         environment[#environment+1] = {Name=name,Value=value}
  298.                     end
  299.                 end
  300.                 envptr = envptr+envlen+1 -- указатель на следующую строку
  301.                 envlen = C.wcslen(envptr)
  302.             end
  303.             C.FreeEnvironmentStringsW(envstrings)
  304.         else
  305.             local index = 0
  306.             if mode==2 then -- пользовательские переменные
  307.                 RootKey = "HKCU"
  308.                 PathKey = "Environment"
  309.             elseif mode==3 then -- системные переменные
  310.                 RootKey = "HKLM"
  311.                 PathKey = "SYSTEM\\CurrentControlSet\\Control\\Session Manager\\Environment"
  312.             else
  313.                 return
  314.             end
  315.             name = win.EnumRegValue(RootKey,PathKey,index)
  316.             while name do
  317.                 value,vtype = win.GetRegKey(RootKey,PathKey,name)
  318.                 if vtypes[vtype] then
  319.                     environment[#environment+1] = {Name=name,Value=value,Type=vtypes[vtype]}
  320.                 end
  321.                 index = index+1
  322.                 name = win.EnumRegValue(RootKey,PathKey,index)
  323.             end
  324.         end
  325.         table.sort(environment,function(a,b) return(a.Name:lower()<b.Name:lower()) end)
  326.         for _,f in ipairs(cfg.Favorites) do -- формируем список избраного
  327.             for _,e in ipairs(environment) do
  328.                 if f:upper()==e.Name:upper() then
  329.                     e.Fav = true -- помечаем как избранное
  330.                     envmenu[#envmenu+1] = e
  331.                     break
  332.                 end
  333.             end
  334.         end
  335.         if #envmenu>0 and #envmenu<#environment then -- Разделитель между избранным и остальным
  336.             envmenu[#envmenu+1] = {Name="",separator=true}
  337.         end
  338.         for _,e in ipairs(environment) do -- Перенос оставшегося списка
  339.             if e.Name~="" and not e.Fav then
  340.                 envmenu[#envmenu+1] = e
  341.             end
  342.         end
  343.         for _,e in ipairs(envmenu) do -- Форматируем для far.Menu
  344.             if not e.separator then
  345.                 e.text = ("%%-%is │ %%-%is"):format(cfg.NameWidth,cfg.ValueWidth):format(e.Name:sub(1,cfg.NameWidth),e.Value:sub(1,cfg.ValueWidth))
  346.             end
  347.         end
  348.         if jump then -- определяем позицию для перехода (после вставки, переименования и т.п.)
  349.             pos[mode] = FindVar(jump)
  350.             jump = nil
  351.         end
  352.         while true do -- цикл - показываем меню / обрабатываем клавиши
  353.             local res
  354.             res,pos[mode] = far.Menu(
  355.                 {
  356.                     Title=lang.MenuTitle[mode],
  357.                     Bottom=lang.MenuBottom,
  358.                     SelectIndex=pos[mode],
  359.                     Id=EnvEditMenuId,
  360.                     Flags=bor(F.FMENU_SHOWAMPERSAND,F.FMENU_WRAPMODE),
  361.                     MaxHeight=cfg.MenuHeight,
  362.                 },
  363.                 envmenu, MenuHotKeys
  364.             )
  365.             if res==nil then -- Esc
  366.                 mode = 0
  367.                 break
  368.             --elseif not res.BreakKey or (res.BreakKey and (res.BreakKey=="F4" or res.BreakKey=="S+F4")) then -- Enter, F4
  369.             elseif not res.BreakKey then -- Enter
  370.                 local var = envmenu[pos[mode]]
  371.                 if EditVar(var) then
  372.                     jump = var.Name
  373.                     break
  374.                 end
  375.             elseif res.BreakKey=="F4" or res.BreakKey=="S+F4" then -- модальный редактор
  376.                 local var = envmenu[pos[mode]]
  377.                 var.Value = ModalEdit(var.Value,lang.EditorTitle..var.Name)
  378.                 if var.Value=="" then var.Value=nil end -- пустое значение - удаляем переменую
  379.                 if mode==1 then
  380.                     win.SetEnv(var.Name,var.Value)
  381.                     jump = var.Name
  382.                     break
  383.                 elseif var.Value then
  384.                     win.SetRegKey(RootKey,PathKey,var.Name,vtypes[var.Type],var.Value)
  385.                     jump = var.Name
  386.                     SendSettingChange()
  387.                     break
  388.                 else
  389.                     backup[mode] = {Name=var.Name,Value=var.Value,Type=var.Type}
  390.                     win.DeleteRegValue(RootKey,PathKey,prev.Name)
  391.                     SendSettingChange()
  392.                     break
  393.                 end
  394.             elseif res.BreakKey=="F12" or res.BreakKey=="S+F12" then -- восстановление
  395.                 local var = {Name=backup[mode].Name,Value=backup[mode].Value,Type=backup[mode].Type}
  396.                 if var.Name=="" then
  397.                     Message(lang.NoRestore,lang.RestoreTitle,";Ok","","",EnvEditRestoreId)
  398.                 elseif EditVar(var,3) then
  399.                     jump = var.Name
  400.                     SendSettingChange(mode)
  401.                     break
  402.                 end
  403.             elseif res.BreakKey=="INSERT" or res.BreakKey=="NUMPAD0" then
  404.                 local var = {Name=lang.NewName,Value=lang.NewValue}
  405.                 if mode~=1 then var.Type="REG_SZ" end
  406.                 if EditVar(var,2) then
  407.                     jump = var.Name
  408.                     SendSettingChange(mode)
  409.                     break
  410.                 end
  411.             elseif res.BreakKey=="DELETE" or res.BreakKey=="DECIMAL" then
  412.                 local var = envmenu[pos[mode]]
  413.                 if Message(lang.DeleteMsg:format(var.Name),lang.DeleteTitle,";OkCancel","","",EnvEditDeleteId) == 1 then
  414.                     backup[mode] = {Name=var.Name,Value=var.Value,Type=var.Type}
  415.                     if mode==1 then
  416.                         win.SetEnv(var.Name,nil)
  417.                     else
  418.                         win.DeleteRegValue(RootKey,PathKey,var.Name)
  419.                         SendSettingChange()
  420.                     end
  421.                     if pos[mode]==#envmenu then pos[mode]=pos[mode]-1 end
  422.                     break
  423.                 end
  424.             elseif res.BreakKey=="TAB" or res.BreakKey=="C+TAB" or res.BreakKey==cfg.ModeSwitch then
  425.                 mode = mode + 1
  426.                 if mode>3 then mode = 1 end
  427.                 break
  428.             elseif res.BreakKey=="S+TAB" or res.BreakKey=="CS+TAB" then
  429.                 mode = mode - 1
  430.                 if mode<1 then mode = 3 end
  431.                 break
  432.             elseif res.BreakKey=="F1" then
  433.                 Message(lang.MenuHelpMsg:gsub('%s*\n%s*','\n'):gsub('^%s+',''):gsub('[%s%c]+$',''),lang.MenuHelpTitle,";Ok","l",nil,EnvEditHelpId)
  434.             end
  435.         end
  436.     end
  437. end;
  438. ------------------------------------------------------------------------------------------------------------------------
  439. if cfg.MacroKey and cfg.MacroKey~="" then
  440.     Macro {
  441.         description = "EnvEdit";
  442.         area = "Shell Search QView Info Tree Editor Viewer";
  443.         id = EnvEditMacroId;
  444.         key = "AltShiftE";
  445.         action = EditEnvironment;
  446.     }
  447. end
  448. ------------------------------------------------------------------------------------------------------------------------
  449. if cfg.PluginMenu then
  450.     MenuItem {
  451.         description = "EnvEdit";
  452.         menu = "Plugins";
  453.         area = "Shell Search QView Info Tree Editor Viewer";
  454.         guid = EnvEditPluginMenuId;
  455.         text = function(menu,area)
  456.             lang = langs[win.GetEnv("FARLANG"):lower()] or langs.english
  457.             return lang.PluginMenuDesc
  458.         end;
  459.         action = EditEnvironment;
  460.     }
  461. end
  462. ------------------------------------------------------------------------------------------------------------------------
Attachments
EnvEdit.1.10.7z
EnvEdit 1.10
(6.88 KiB) Downloaded 21 times
Last edited by Smitis on Mon 10 Jun, 2019 10:20, edited 1 time in total.

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

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

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

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

User avatar
DrKnS
Posts: 5221
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 5 times
Been thanked: 199 times

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. local HWND_BROADCAST = ffi.cast("HWND", 0xffff)
  3. local WM_SETTINGCHANGE = 0x001A
  4. local SMTO_ABORTIFHUNG = 0x0002
  5. local MSG_TIMEOUT = 5000
  6. 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: 1765
Joined: Thu 04 Aug, 2005 18:47
Has thanked: 4 times
Been thanked: 15 times

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

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

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

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

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

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

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

Smitis
Posts: 1573
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 18 times
Been thanked: 32 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: 1573
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 18 times
Been thanked: 32 times
Contact:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

User avatar
DrKnS
Posts: 5221
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 5 times
Been thanked: 199 times

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

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

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

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

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

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

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

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

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

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

v. 1.04

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

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

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

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

v. 1.05

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

User avatar
DrKnS
Posts: 5221
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 5 times
Been thanked: 199 times

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

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

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

Post Reply

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