Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal _ hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _ ByVal lpsz2 As String) As Long' return True if ActiveDesktop is activeFunction ActiveDesktop() As Boolean Dim hWindow As Long ' get the handle of Program Manager window hWindow = FindWindowEx(0, 0, "Progman", vbNullString) ' search for its child SHELLDLL_DefView window If hWindow Then hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", vbNullString) ' finally, search for the Internet Explorer_Server grandchild window If hWindow Then ' if this call returns a non-zero handle, the computer ' is using ActiveDesktop If FindWindowEx(hWindow, 0, "Internet Explorer_Server", _ vbNullString) Then ActiveDesktop = True End If End If End If End Function


GPU-Accelerated 5G in Japan
NTT DOCOMO, a global telecommunications giant, is set to break new ground in the industry as it prepares to launch a GPU-accelerated 5G network in