معرفه ال DeskTop

إليكم داله لمعرفه الـــDeskTop الخاص بالمستخدم الحالى بإستخدام الــ API

  
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" ( _
	ByVal hKey As Long, _
	ByVal lpSubKey As String, _
	ByVal ulOptions As Long, _
	ByVal samDesired As Long, _
	phkResult As Long _
) As Long

Function SayDesktop() As String
  Const nLG As Long = 256
  Dim sValue As String * nLG
  Dim hKey As Long,  nType As Long,  nCR As Long
	If (RegOpenKeyExA(HKEY_CURRENT_USER, _
	  "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", 0, _
	   KEY_READ, hKey) = ERROR_SUCCESS) Then
			If (RegQueryValueExA(hKey, "Desktop", 0, nType, ByVal sValue, nLG) _
			  = ERROR_SUCCESS) Then
				  If (nType = REG_SZ) Then
						SayDesktop = Left(sValue, InStr(sValue, vbNullChar) - 1)
				  End If
			End If
	   nCR = RegCloseKey(hKey)
	End If
End Function