PureBasic Forums - English

Code: Select all

Public Function GetDesktopName() As String
Dim hDesktop As Long
Dim lR As Long
Dim lSize As Long
Dim sBuff As String
Dim iPos As Long
   
   hDesktop = OpenInputDesktop(0, False, DESKTOP_READOBJECTS)
   If Not (hDesktop = 0) Then
      lSize = (Len(m_sDesktop) + 1) * 2
      ReDim bBuff(0 To lSize - 1) As Byte
      lR = GetUserObjectInformation(hDesktop, UOI_NAME, bBuff(0), lSize, lSize)
      sBuff = bBuff
      iPos = InStr(sBuff, vbNullChar)
      If (iPos > 1) Then
         sBuff = Left(sBuff, iPos - 1)
      End If
      GetDesktopName = sBuff
      CloseHandle hDesktop
   End If
End Function 

Code: Select all

#UOI_NAME = $2

Procedure.s GetDesktopName()
  Protected hDesktop, lR, lSize, sBuff.s, iPos
  hDesktop = OpenInputDesktop_(0, #False, #DESKTOP_READOBJECTS) 
  If hDesktop
    lSize = (Len(m_sDesktop) + 1) * 2 
    sBuff=Space(lSize+1)
    lR = GetUserObjectInformation_(hDesktop, #UOI_NAME, @sBuff, lSize, @lSize) 
    CloseHandle_(hDesktop)  ; Should this be CloseDesktop_() ?
   EndIf 
  ProcedureReturn sBuff
EndProcedure

Code: Select all

buffer.s = Space(255)
hDesktop = OpenInputDesktop_(0, #False, #DESKTOP_READOBJECTS)
If hDesktop
  GetUserObjectInformation_(hDesktop, 2, @buffer, 255, 0)
  CloseHandle_(hDesktop)
  Debug buffer
EndIf