hwndOwner est un entier
lpszPath est une chaîne ASCIIZ sur 256
nFolder est un entier
f_Create est un entier
nDLL est un entier
i est un entier
nDLL=ChargeDLL("shell32.dll")
SI nDLL=0 ALORS
Erreur(ErreurInfo())
RETOUR
FIN
POUR i=0 A 59
nFolder=i
AppelDLL32("shell32.dll","SHGetSpecialFolderPathA", hwndOwner, &lpszPath, nFolder, f_Create)
SI lpszPath<>"" ET Position(Majuscule(lpszPath),"ALL USERS")=0 ALORS
Trace(i+" - "+lpszPath+" - ")
FIN
FIN
DéchargeDLL(nDLL)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4970&post_id=20542