AutoHotkey Community

Code: Select all

Control_GetFont(hwnd, byref FontName, byref FontSize) {
	SendMessage 0x31, 0, 0, , ahk_id %hwnd% ; WM_GETFONT
	IfEqual, ErrorLevel, FAIL, Return
	hFont := Errorlevel, VarSetCapacity(LF, szLF := 60 * (A_IsUnicode ? 2 : 1))
	DllCall("GetObject", UInt, hFont, Int, szLF, UInt, &LF)
	hDC := DllCall("GetDC", UInt,hwnd ), DPI := DllCall("GetDeviceCaps", UInt, hDC, Int, 90)
	DllCall("ReleaseDC", Int, 0, UInt, hDC), S := Round((-NumGet(LF, 0, "Int") * 72) / DPI)
	FontName := DllCall("MulDiv", Int, &LF + 28, Int, 1, Int, 1, Str)
	DllCall("SetLastError", UInt, S), FontSize := A_LastError
}

Code: Select all

#Requires AutoHotkey v2.0.2

Control_GetFont(hwnd, &FontName, &FontSize) {
	hFont := SendMessage(0x31, 0, 0, hwnd) ; WM_GETFONT
	
	LOGFONTW := Buffer(92) ; sizeof LOGFONTW
	
	if !DllCall("GetObject", 'Ptr', hFont, 'Int', LOGFONTW.Size, 'Ptr', LOGFONTW)
		throw OSError('GetObject LOGFONTW failed')

	hDC := DllCall("GetDC", 'Ptr', hwnd, 'Ptr')
	DPI := DllCall("GetDeviceCaps", 'Ptr', hDC, 'Int', 90) ; LOGPIXELSY
	DllCall("ReleaseDC", 'Ptr', hwnd, 'Ptr', hDC)
	
	lfHeight := NumGet(LOGFONTW, 0, "Int")
	FontSize := Round((-lfHeight * 72) / DPI) ; its some documented BS on MSDN: https://learn.microsoft.com/en-us/windows/win32/api/wingdi/ns-wingdi-logfontw#members
	FontName := StrGet(NumGet(LOGFONTW, 28, 'Ptr')) ; LOGFONTW.lfFaceName
}