$F10::
   WinGet, PID, PID, A
   MsgBox % GetEnv(PID)
;  MsgBox % GetEnv(PID, "PATH")
   Return
   
GetEnv(PID, Var := "")  {
   Is32bitProc := true
   if A_Is64bitOS  {
      hProc := DllCall("OpenProcess", UInt, PROCESS_QUERY_INFORMATION := 0x400, Int, 0, UInt, PID, Ptr)
      DllCall("IsWow64Process", Ptr, hProc, UIntP, Is32bitProc)
      DllCall("CloseHandle", Ptr, hProc)
   }
   SplitPath, A_AhkPath,, Dir
   if !FileExist(AhkPath := Dir . "\AutoHotkeyU" . (Is32bitProc ? "32" : "64") . ".exe")  {
      MsgBox, Исполнимый файл %AhkPath% не найден!`nДля работы скрипта установите AutoHotkey!
      Return
   }
   Return ExecScript( GetScript(PID, Var), AhkPath )
}

ExecScript(script, AhkPath)  {
   shell := ComObjCreate("WScript.Shell")
   exec := shell.Exec(AhkPath . " /ErrorStdOut *")
   exec.StdIn.Write(script)
   exec.StdIn.Close()
   return exec.StdOut.ReadAll()
}

GetScript(PID, Var := "")  {
   script =
   (
      #NoTrayIcon
      PID := %PID%, Var := "%Var%"
      PROCESS_QUERY_INFORMATION := 0x400, PROCESS_VM_READ := 0x10, cbPES_max := 0x3000
      info := STATUS_SUCCESS := 0, OffsetPES := A_PtrSize = 4 ? 0x48 : 0x80, sbMBI := A_PtrSize * 5 + 4 * 2
      
      hProc := DllCall("OpenProcess", UInt, PROCESS_QUERY_INFORMATION|PROCESS_VM_READ, Int, 0, UInt, PID, Ptr)
      VarSetCapacity(PBI, szPBI := A_PtrSize * 6, 0)
      if DllCall("Ntdll\NtQueryInformationProcess", Ptr, hProc, UInt, info, Ptr, &PBI, UInt, szPBI, UIntP, bytes) != STATUS_SUCCESS  {
         DllCall("CloseHandle", Ptr, hProc)
         Return
      }
      pPEB := NumGet(&PBI + A_PtrSize, "Ptr")
      DllCall("ReadProcessMemory", Ptr, hProc, Ptr, pPEB + A_PtrSize * 4, PtrP, pRUPP, Ptr, A_PtrSize, UIntP, bytes)
      DllCall("ReadProcessMemory", Ptr, hProc, Ptr, pRUPP + OffsetPES, PtrP, pPES, Ptr, A_PtrSize, UIntP, bytes)
      
      VarSetCapacity(MBI, sbMBI, 0)
      DllCall("VirtualQueryEx", Ptr, hProc, Ptr, pPES, Ptr, &MBI, Ptr, sbMBI)
      cbRegion := NumGet(&MBI + A_PtrSize * 3)
      cbPES := (((pPES + cbRegion) >> 12) << 12) - pPES
      (cbPES > cbPES_max && cbPES := cbPES_max)
      
      VarSetCapacity(PES, cbPES, 0)
      DllCall("ReadProcessMemory", Ptr, hProc, Ptr, pPES, Ptr, &PES, Ptr, cbPES, UIntP, bytes)
      DllCall("CloseHandle", Ptr, hProc)
      
      CurrPtr := &PES, len := -1
      while len := DllCall("lstrlenW", Ptr, CurrPtr += len*2 + 2)
         env .= (A_Index = 1 ? "" : "``r``n") . StrGet(CurrPtr)

      if Var  {
         RegExMatch(env, "im``n)^" Var "=([^\n]+)$", Found)
         env := Found1
      }
      FileAppend, `% env, *
   )
   Return script
}

hModule := DllCall("GetModuleHandle", "str", "Ntdll", Ptr)
ReadProcessMemory := DllCall("GetProcAddress", Ptr, hModule, AStr, "NtWow64ReadVirtualMemory64", Ptr)

typedef struct _UNICODE_STRING {
    USHORT Length;
    USHORT MaximumLength;
    PWSTR  Buffer;
} U

  PVOID                   ConsoleHandle;
  ULONG                   ConsoleFlags;
  HANDLE                  StdInputHandle;