Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, _ ByVal nIndex As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, _ ByVal hDC As Long) As LongConst LOGPIXELSX = 88Private Function IsSystemFontSmall() As Boolean Dim hWnd As Long, hDC As Long ' get the handle of the desktop window hWnd = GetDesktopWindow() ' get its device context hDC = GetDC(hWnd) ' if the number of pixels per logical inch is = 96 ' then Windows is using small system font IsSystemFontSmall = (GetDeviceCaps(hDC, LOGPIXELSX) = 96) ' release the device context ReleaseDC hWnd, hDC End Function


GM Creates Open Source uProtocol and Invites Automakers to Adopt It: Revolutionizing Automotive Software Development.
General Motors (GM) recently announced its entry into the Eclipse Foundation. The Eclipse Foundation is a prominent open-source software foundation. In addition, GMC announced its contribution of “uProtocol” to facilitate