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

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

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

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

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

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

User avatar
DrKnS
Posts: 4581
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 4 times
Been thanked: 115 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. 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: 1716
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: 1452
Joined: Fri 18 Mar, 2005 12:51
Location: Питер
Has thanked: 12 times
Been thanked: 23 times
Contact:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

User avatar
DrKnS
Posts: 4581
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 4 times
Been thanked: 115 times
Contact:

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

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

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

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

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

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

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

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

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

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

v. 1.04

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

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

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

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

v. 1.05

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

User avatar
DrKnS
Posts: 4581
Joined: Thu 04 Aug, 2005 06:44
Location: Kyiv
Has thanked: 4 times
Been thanked: 115 times
Contact:

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

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

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

Post Reply

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