Re: AppelDLL32
Posté par veDengaG le 1/3/2007 12:52:43
Bon,
je pense que le problème vient de la dll, enfin disons qu'il doit y avoir quelque chose dedans qui ne plait pas à windev.
J'ai testé "shel32", avec la fonction "SHGetSpecialFolderPathA" pour récupérer les Répertoires Spéciaux de Windows, et ça fonctionne.
Tant qu'à faire, voici le code :)
A noter qu'ici on ne récupère que le dossier de l'utilisateur en cours, et que seules certaines valeurs comprises entre 0 et 59 retournent une information.
Voilà voilà.
Ah oui, et pour le link, ça a toujours fonctionné, mais en effet c'est une prudence que je vais ajouter :)
je pense que le problème vient de la dll, enfin disons qu'il doit y avoir quelque chose dedans qui ne plait pas à windev.
J'ai testé "shel32", avec la fonction "SHGetSpecialFolderPathA" pour récupérer les Répertoires Spéciaux de Windows, et ça fonctionne.
Tant qu'à faire, voici le code :)
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)
A noter qu'ici on ne récupère que le dossier de l'utilisateur en cours, et que seules certaines valeurs comprises entre 0 et 59 retournent une information.
Voilà voilà.
Ah oui, et pour le link, ça a toujours fonctionné, mais en effet c'est une prudence que je vais ajouter :)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4970&post_id=20542