AHK: Windows7 и SysHeader321

for k in ComObjGet("winmgmts:").InstancesOf("Win32_Process")
   Text .= "`r`n" k.Name A_Tab k.ProcessId A_Tab (k.WorkingSetSize//1024)

Sort, Text
Text := "Имя образа" A_Tab "ID процесса" A_Tab "Память`r`n" Text

Run, notepad.exe,,, PID
WinWait, ahk_pid %PID%
ControlSetText, Edit1, % Text

strProcrssesNames := "autohotkey.exe|explorer.exe|smss.exe"   ; список имён процессов через |, можно задавать через ini-файл
keys := 1|2|4|8|16|256|1024   ; необходимые ключи, описаны в функции. Это не строка, без кавычек!

PI := GetProcessesInfo(strProcrssesNames, keys)

for k, v in PI
{
   Text .= (A_Index = 1 ? "" : "`r`n`r`n")
   for k, v in v
      Text .= (A_Index = 1 ? "" : "`r`n") v.Description " = " v.Value
}

Run, notepad.exe,,, PID
WinWait, ahk_pid %PID%
ControlSetText, Edit1, % Text

GetProcessesInfo(StringProcesses, keys)
{
/*
Имя образа                      = 1
ИД процесса                     = 2
ЦП                              = 4
Память (частный рабочий набор)  = 8
Выделенная память               = 16
Дескрипторы                     = 32
Счетчик потоков                 = 64
Объекты USER                    = 128
Объекты GDI                     = 256
Описание                        = 512
Пользователь                    = 1024
*/
   SetBatchLines, -1
   WMI := ComObjGet("winmgmts:"), ProcessesInfo := []
   Loop, parse, StringProcesses, |
   {
      Processes := WMI.ExecQuery("Select * from Win32_Process Where Name = '" A_LoopField "'")
      if (Processes.Count = 0)
      {
         ProcessesInfo.Insert("")
         continue
      }
      
      For Process in Processes
      {
         Info := {}, PID := Process.ProcessId
         
         if (keys & 4 || keys & 8 || keys & 16)
            Collection := WMI.ExecQuery("Select * from Win32_PerfFormattedData_PerfProc_Process Where IDProcess=" PID)
         
         keys & 1 ? Info.1 := {Value: Process.Name, Description: "Имя образа"}
         
         keys & 2 ? Info.2 := {Value: PID, Description: "ИД процесса"}
         
         if keys & 4
            for k in Collection
               Info.4 := {Value: k.PercentProcessorTime, Description: "ЦП"}
         
         if keys & 8
            for k in Collection
               Info.8 := {Value: (k.WorkingSetPrivate)//1024, Description: "Память (частный рабочий набор)"}
            
         if keys & 16
            for k in Collection
               Info.16 := {Value: (k.PrivateBytes)//1024, Description: "Выделенная память"}
         
         keys & 32 ? Info.32 := {Value: Process.HandleCount, Description: "Дескрипторы"}
         
         keys & 64 ? Info.64 := {Value: Process.ThreadCount, Description: "Счетчик потоков"}
         
         keys & 128 ? Info.128 := {Value: GetGuiResources(PID, 1), Description: "Объекты USER"}
         
         keys & 256 ? Info.256 := {Value: GetGuiResources(PID, 0), Description: "Объекты GDI"}
         
         keys & 512 ? Info.512 := {Value: Process.Description, Description: "Описание"}
         
         (keys & 1024 && Process.GetOwner((Sid := ComVar()).ref) = 0) ? Info.1024 := {Value: Sid[], Description: "Пользователь"}

         ProcessesInfo.Insert(Info)
      }
   }
   return ProcessesInfo
}

GetGuiResources(PID, flag)
{
   hProcess := DllCall("OpenProcess", UInt, PROCESS_QUERY_INFORMATION := 0x400, UInt, 0, UInt, PID)
   Count := DllCall("GetGuiResources", Ptr, hProcess, UInt, flag)
   DllCall("CloseHandle", Ptr, hProcess)
   Return Count
}

ComVar(Type=0xC)   ; http://l.autohotkey.net/docs/commands/ComObjActive.htm#ByRefEx
{
    static base := { __Get: "ComVarGet", __Set: "ComVarSet", __Delete: "ComVarDel" }
    ; Create an array of 1 VARIANT.  This method allows built-in code to take
    ; care of all conversions between VARIANT and AutoHotkey internal types.
    arr := ComObjArray(Type, 1)
    ; Lock the array and retrieve a pointer to the VARIANT.
    DllCall("oleaut32\SafeArrayAccessData", "ptr", ComObjValue(arr), "ptr*", arr_data)
    ; Store the array and an object which can be used to pass the VARIANT ByRef.
    return { ref: ComObjParameter(0x4000|Type, arr_data), _: arr, base: base }
}
ComVarGet(cv, p*) { ; Called when script accesses an unknown field.
    if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]
        return cv._[0]
}
ComVarSet(cv, v, p*) { ; Called when script sets an unknown field.
    if p.MaxIndex() = "" ; No name/parameters, i.e. cv[]:=v
        return cv._[0] := v
}
ComVarDel(cv) { ; Called when the object is being freed.
    ; This must be done to allow the internal array to be freed.
    DllCall("oleaut32\SafeArrayUnaccessData", "ptr", ComObjValue(cv._))
}

#Persistent
#NoEnv
PathRoot = %A_Temp%\
    If not WinExist("Диспетчер задач Windows") {
      Run, Taskmgr.exe
      WinWait, Диспетчер задач Windows
    }
    ; Переключиться на вкладку "Процессы"
    SendMessage, 0x1330, 1,, SysTabControl321     ; 0x1330 is TCM_SETCURFOCUS.
    Sleep, 0
    SendMessage, 0x130C, 1,, SysTabControl321     ; 0x130C is TCM_SETCURSEL.
    ControlGet, hwndHeader, Hwnd,, SysHeader321   ; Хэндл заголовочного контрола.
    Headers := HeaderGetText(hwndHeader)          ; Список заголовков.

    MsgBox, % Headers

    Loop, Parse, Headers, `n ;(%A_Tab% OR %A_Space%)
      {
        FileAppend, `;%A_LoopField%`n, %PathRoot%File.csv
      }
      
HeaderGetText(hWnd)    ; ======== Функция, возвращающая список заголовков Диспетчера задач Windows=======
{
  MaxName := 100     ; Максимальная длина заголовка.
  Delimiter := "`n"  ; Разделитель заголовков в списке.
  
  PROCESS_VM_OPERATION := 0x8, PROCESS_VM_READ := 0x10
  PROCESS_VM_WRITE := 0x20,    MEM_COMMIT := 0x1000
  MEM_DECOMMIT := 0x4000,      PAGE_READWRITE := 0x4
  HDI_TEXT := 0x2,             HDM_GETITEMCOUNT := 0x1200
  HDM_GETITEMW := 0x120B,      PROCESS_QUERY_INFORMATION := 0x400
  
   ; PID процесса, создавшего заголовочный контрол.
  DllCall("GetWindowThreadProcessId", "ptr",   hWnd
                                    , "uint *", PID)

  hProcess := DllCall("OpenProcess", "uint", PROCESS_VM_READ
                                           | PROCESS_VM_WRITE
                                           | PROCESS_VM_OPERATION
                                           | PROCESS_QUERY_INFORMATION
                                   , "int", FALSE
                                   , "uint", PID
                                   , "ptr")
  If (hProcess = 0) {
    MsgBox, Не удалось открыть процесс.
    Return
  }

  StructSize := 48
  TextMaxOffset := 16

  If (A_Is64bitOS) {
     Wow64 = 0
    DllCall("IsWow64Process", "ptr", hProcess, "uint *", Wow64)
    If (!Wow64) {
        StructSize := 64
        TextMaxOffset := 24
     }
  }

  VarSetCapacity(Buf, MaxName * 2, 0) ; Буфер под заголовок.
  VarSetCapacity(hdi, StructSize, 0)  ; Структура HDITEM, её размер 48 или 64 байта.
                                      ; В неё будет скидываться информация о каждом
                                      ; заголовке в ответ на сообщение HDM_GETITEM.

  ; Выделение памяти в адресном пространстве процесса
  ; под структуру HDITEM и строку заголовка.
  phdi := DllCall("VirtualAllocEx", "ptr", hProcess
                                  , "ptr", 0
                                  , "uint", StructSize + (MaxName + 1) * 2
                                  , "uint", MEM_COMMIT
                                  , "uint", PAGE_READWRITE
                                  , "ptr")
  If (phdi = 0) {
    MsgBox, Ошибка выделения памяти в процессе.
    Goto, Close
  }

  ; Запись нужных значений в структуру.
  NumPut(HDI_TEXT, hdi, 0, "uint"), NumPut(phdi+StructSize, hdi, 8, "ptr")
  NumPut(MaxName, hdi, TextMaxOffset, "uint")

  ; Структура копируется в память процесса.
  Ret := DllCall("WriteProcessMemory", "ptr", hProcess
                                     , "ptr", phdi
                                     , "ptr", &hdi
                                     , "ptr", StructSize
                                     , "ptr", 0)
  If (Ret = 0) {
    MsgBox, Ошибка записи в память процесса.
    Goto, Free
  }

  ; Запрос количества заголовков.
  Count := DllCall("SendMessageW", "ptr", hWnd
                                 , "uint", HDM_GETITEMCOUNT
                                 , "ptr", 0
                                 , "ptr", 0)
  If (Count < 0) {
    MsgBox, Ошибка определения количества заголовков.
    Goto, Free
  }

  Loop, % Count  ; Запрос информации о каждом заголовке.
  {
    DllCall("SendMessageW", "ptr", hWnd
                          , "uint", HDM_GETITEMW
                          , "ptr", A_Index - 1
                          , "ptr", phdi)

    ; Заголовок копируется из памяти процесса в местный буфер.
    Ret := DllCall("ReadProcessMemory", "ptr", hProcess
                                      , "ptr", phdi + StructSize
                                      , "ptr", &Buf
                                      , "ptr", MaxName * 2
                                      , "ptr", 0)
    If (Ret = 0) {
      MsgBox, Ошибка чтения из памяти процесса.
      Goto, Free
    }

    VarSetCapacity(Buf, -1)  ; Обновление переменной.
    Headers .= Buf . (A_Index != Count ? Delimiter : "")
  }

  Free:  ; Освобождение памяти в процессе.
  DllCall("VirtualFreeEx", "ptr", hProcess
                         , "ptr", phdi
                         , "ptr", StructSize + (MaxName + 1) * 2
                         , "uint", MEM_DECOMMIT)

  Close:  ; Освобождение хэндла процесса.
  DllCall("CloseHandle", "ptr", hProcess)

  Return Headers
}            ; ======== End  =======