RÉPERTOIRES DE WINDOWS

' ------------------------------------------------------------
' -                  Répertoires Spéciaux                    -
' ------------------------------------------------------------
' - Auteur : RazorBack                                       -
' - Date   : 07/01/2001                                      -
' - URL    : http://manipulator.citeweb.net                  -
' - @Email : manipulator@citeweb.net                         -
' ------------------------------------------------------------
' -    Permet  de  récupérer  les  répertoires  spéciaux  de -
' - Windows  via la  base  des registres.  D'autres chemins  -
' - peuvent être obtenus de la même façon.                   -
' ------------------------------------------------------------

Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Const HKEY_CURRENT_USER = &H80000001

' Retourne le répertoire ou se trouve le Menu Démarrer de Windows
Function GetStartMenuPath$()
 GetStartMenuPath$ = GetRegKey$("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Programs")
End Function

' Retourne le répertoire ou se trouve le Bureau de Windows
Function GetDesktopPath$()
 GetDesktopPath$ = GetRegKey$("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Desktop")
End Function

Function GetRegKey$(Path$, Key$)
 Dim Resultat As Long
 Dim Ident As Long
 Dim Donnee As String
 Dim TailleBuffer As Long
 
 Resultat = 0
 Resultat = RegCreateKey(HKEY_CURRENT_USER, Path$, Ident)
 Resultat = RegQueryValueEx(Ident, Key$, 0&, 1, 0&, TailleBuffer)
 If TailleBuffer < 2 Then
  ' Indique que la clef n'existe pas [ pas d'bol ]
  GetRegKey$ = ""
  Exit Function
 End If

 Donnee = String(TailleBuffer + 1, " ")
 Resultat = RegQueryValueEx(Ident, Key$, 0&, 1, ByVal Donnee, TailleBuffer)
 Donnee = Left(Donnee, TailleBuffer - 1)
 GetRegKey$ = Donnee
End Function