Orion9
|
 Posted: Thu May 23, 2024 19:06 Post subject: |
 |
|
Loopback
Беты бывают опасны, это да. Особенно когда в них меняют внутренний механизм уже более-менее рабочих функций. Недавний пример с ShowPopupMenu это показывает. Но выпускать их все же стоит, иначе вам одному будет гораздо сложнее все протестировать. Это я к тому, что нет необходимости 1,5-2 года доводить до ума очередную версию готового релиза, все-равно до конца безупречной она не будет. Если в проекте теплится жизнь, можно раз в несколько месяцев или раз в полгода радовать нас бетой 
А тем временем, довёл до ума функцию показа только тех переменных окружения, которые создаются во время работы/старта ТС плагином Autorun.
 Hidden text | Code: | ControlSetMouseAction /L /K:C /B:1 17 ShowSetEnviroments
Global Envrs
ProcessExecGetOutput /OEM Envrs %COMSPEC% "/c SET"
If Not StrPos(Envrs, "COMMANDER_HANDLE") > 0 Then
SetEnv SET_SNAPSHOT %Envrs%
Endif
SetEnv COMMANDER_PID %AUTORUN_TCPID%
SetEnv COMMANDER_HANDLE %AUTORUN_TCHANDLE%
Func ShowSetEnviroments()
EnvrsHint(SET_SNAPSHOT, 60)
Sleep(500)
If IsPressed (0x10) Then EnvrsHint(Envrs, 60)
If IsPressed (0x11) Then EnvrsHint(SET_SNAPSHOT, 90)
EndFunc
Func EnvrsHint(SetVar, Length)
Local out, hint, line, i
ProcessExecGetOutput /OEM out %COMSPEC% "/c SET"
i=1
while i < 200
line=StrPart(out, auCRLF, i)
If ERROR = 1 Then Break
If StrPos(line, "SET_SNAPSHOT") > 0 Or StrPos(SetVar, line) > 0 Then
i = i + 1
Continue
Endif
If StrLen(line) > Length Then
line = StrLeft(line, Length)
Endif
hint = hint & line & auLF
i = i + 1
Wend
i = StrLen(hint) - 1
ShowHint(StrMid(hint, 1, i))
EndFunc |
Теперь еще и с зажимом Shift, Ctrl есть опции. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
