Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, _ lpRect As RECT) As LongPrivate Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function PathCompactPath Lib "shlwapi.dll" Alias _ "PathCompactPathA" (ByVal hDC As Long, ByVal lpszPath As String, _ ByVal dx As Long) As Boolean' shorten a path by using ellipses, if necessary,' so that it fits inside a window' if maxWidth=-1 or omitted, it uses the entire window's widthFunction CompactPathToWindow(ByVal sPath As String, ByVal hWnd As Long, _ Optional ByVal maxWidth As Long = -1) As String Dim rc As RECT ' Illegal function call if hWnd isn't a valid window handle If IsWindow(hWnd) = 0 Then Err.Raise 5 ' if 3rd argument is omitted, use windows' width If maxWidth < 0 Then 'get the rect of the target window GetClientRect hWnd, rc maxWidth = rc.Right - rc.Left End If ' compact the path PathCompactPath GetWindowDC(hWnd), sPath, maxWidth ' get the path by extracting it from the returned buffer CompactPathToWindow = Left$(sPath, InStr(sPath & vbNullChar, _ vbNullChar) - 1) 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