Repertoire du bureau [Solution]
Publié : lun. 30/avr./2007 13:13
Bonjour à tous
Juste ce petit bout de code pour connaitre le "Repertoire" du bureau en cours.
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)
