AutoHotkey Community

VarSetCapacity( rect, 16, 0 )

; Test on Windows Explorer detailed file list mode
; In the end, this should bring out the height of a row

#y::
WINGETCLASS, windowType, A
IF (windowType = "CabinetWClass" OR windowType = "ExploreWClass")
{
   ; LVM_GETITEMRECT
   ;   LVIR_BOUNDS
   VarSetCapacity( rect, 16, 0 )
   SendMessage, 0x1000+14, 0, &rect, SysListView321, A
   y1 := 0
   y2 := 0
   loop, 4
   {
      y1 += *( &rect+3+A_Index )
      y2 += *( &rect+11+A_Index )
      MsgBox, Loop: %A_Index% rect: %rect%
   }
   lv_row_h := y2-y1
      MsgBox, lv_row_h: %lv_row_h% y1: %y1% y2: %y2%
}
RETURN

!y::
WinGet, hw_target, ID, A
WINGETCLASS, windowType, ahk_id %hw_target%
IF (windowType = "CabinetWClass" OR windowType = "ExploreWClass")
{
   WinGet, pid_target, PID, ahk_id %hw_target%
   
   hp_explorer := DllCall( "OpenProcess"
                        , "uint", 0x18                           ; PROCESS_VM_OPERATION|PROCESS_VM_READ
                        , "int", false
                        , "uint", pid_target )
   
   remote_buffer := DllCall( "VirtualAllocEx"
                        , "uint", hp_explorer
                        , "uint", 0
                        , "uint", 0x1000
                        , "uint", 0x1000                        ; MEM_COMMIT
                        , "uint", 0x4 )                           ; PAGE_READWRITE

   ; LVM_GETITEMRECT
   ;   LVIR_BOUNDS
   SendMessage, 0x1000+14, 0, remote_buffer, SysListView321, ahk_id %hw_target%

   VarSetCapacity( rect, 16, 0 )
   result := DllCall( "ReadProcessMemory"
                  , "uint", hp_explorer
                  , "uint", remote_buffer
                  , "uint", &rect
                  , "uint", 16
                  , "uint", 0 )

   result := DllCall( "VirtualFreeEx"
                     , "uint", hp_explorer
                     , "uint", remote_buffer
                     , "uint", 0
                     , "uint", 0x8000 )                           ; MEM_RELEASE
   
   result := DllCall( "CloseHandle", "uint", hp_explorer )

   y1 := DecodeInteger( "int4", &rect, 4 )
   y2 := DecodeInteger( "int4", &rect, 12 )

   lv_row_h := y2-y1
      MsgBox, lv_row_h: %lv_row_h% y1: %y1% y2: %y2%
}
RETURN

DecodeInteger( p_type, p_address, p_offset, p_hex=true )
{
   old_FormatInteger := A_FormatInteger

   if ( p_hex )
      SetFormat, Integer, hex
   else
      SetFormat, Integer, dec
      
   sign := InStr( p_type, "u", false )^1
   
   StringRight, size, p_type, 1
   
   loop, %size%
      value += ( *( ( p_address+p_offset )+( A_Index-1 ) ) << ( 8*( A_Index-1 ) ) )
      
   if ( sign and size <= 4 and *( p_address+p_offset+( size-1 ) ) & 0x80 )
      value := -( ( ~value+1 ) & ( ( 2**( 8*size ) )-1 ) )
      
   SetFormat, Integer, %old_FormatInteger%

   return, value
}

 
...
...
  ; LVM_GETVIEWRECT
   ;   LVIR_BOUNDS
   SendMessage, 0x1000+34, 0, remote_buffer, SysListView321, ahk_id %explorer_ID%

   VarSetCapacity( rect, 16, 0 )
   result := DllCall( "ReadProcessMemory"
                  , "uint", hp_explorer
                  , "uint", remote_buffer
                  , "uint", &rect
                  , "uint", 16
                  , "uint", 0 )

   result := DllCall( "VirtualFreeEx"
                     , "uint", hp_explorer
                     , "uint", remote_buffer
                     , "uint", 0
                     , "uint", 0x8000 )                           ; MEM_RELEASE

   result := DllCall( "CloseHandle", "uint", hp_explorer )

   x1 := 0
   x2 := 0
   y1 := 0
   y2 := 0
   loop, 4
   {
      x1 += *( &rect+0+A_Index-1 )
      x2 += *( &rect+8+A_Index-1 )
      y1 += *( &rect+4+A_Index-1 )
      y2 += *( &rect+12+A_Index-1 )
   }