Repertoire du bureau [Solution]

[brossden]

Bonjour à tous

Juste ce petit bout de code pour connaitre le "Repertoire" du bureau en cours.

Code : Tout sélectionner

Procedure.s   ReadRegKey(OpenKey.l,SubKey.s,ValueName.s)  ; ====================================== ReadRegKey
  hKey.l=0
  keyvalue.s= Space (255)
  DataSize.l=255
  If RegOpenKeyEx_ (OpenKey,SubKey,0, #KEY_READ ,@hKey)
    keyvalue= ""
  Else
    If RegQueryValueEx_ (hKey,ValueName,0,0,@keyvalue,@DataSize)
      keyvalue= ""
    Else
      keyvalue= Left (keyvalue,DataSize-1)
    EndIf
    RegCloseKey_ (hKey)
  EndIf
  ProcedureReturn keyvalue
EndProcedure 

Desktop.s=ReadRegKey(#HKEY_CURRENT_USER,"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders","desktop")
MessageRequester("Repertoire du bureau", Desktop)

[Kwai chang caine]

Bonjour denis

J'aime bien les gens qui "posent des solutions", ça change de moi

Merci, je le met dans ma hotte.
Bonne journée à toi