Page 1 sur 1
Voisinage réseau dans un ExplorerTreeGadget
Publié : mar. 02/août/2005 7:46
par olivier
Salut les vacanciers programmeurs.
Je suis toujours sur mon lecteur d'image. On parcours les répertoire dans un ExplorerTreeGadget, et je n'arrive pas a y voir le réseau dedans !
Si quelqu'un a la solution, je le remercie d'avance.
a+
Stef
Publié : mar. 02/août/2005 11:26
par Oliv
Fais une recherche, Regis avait essayé et je crois qu'il avait réussi
Publié : mar. 02/août/2005 18:48
par fweil
Je n'ai retrouvé que ça dans l'immédiat. Un peu exotique mais bon ...
http://forums.purebasic.com/english/vie ... highlight=
Publié : mer. 03/août/2005 20:27
par olivier
hum hum apparement rien d'interressant par là !
Ce que j'ai trouvé sur le forum anglais, c'est que c'est impossible, si j'ai bien compris ???
Je vais creusé les APIs qui je l'éspère me rendront happy
Publié : mer. 03/août/2005 21:48
par Oliv
Je crois que c'était sur le musée, donc celui-ci étant inaccessible.....
Essai d'envoyer un PM au Soldat Inconnu, je suis certain qu'il a déjà essayé
Publié : mer. 03/août/2005 22:27
par Backup
ce serai pas ça par hasard ?
regarde la valeur 61
Code : Tout sélectionner
; Auteur : Le Soldat Inconnu
; Version de PB : 3.90
;
; Explication du programme :
; Récupérer le nom, l'adresse et l'icône des dossiers spéciaux de windows
ProcedureDLL.s GetSpecialFolderLocation(Valeur.l) ; Récupère l'adresse d'un dossier spécifique de Windows
Protected SpecialFolderLocation.s, Dossier_ID.l
If SHGetSpecialFolderLocation_(0, Valeur, @Dossier_ID) = 0
SpecialFolderLocation = Space(#MAX_PATH)
SHGetPathFromIDList_(Dossier_ID, @SpecialFolderLocation)
If SpecialFolderLocation
If Right(SpecialFolderLocation, 1) <> "\"
SpecialFolderLocation + "\"
EndIf
EndIf
EndIf
ProcedureReturn SpecialFolderLocation
EndProcedure
ProcedureDLL.s GetSpecialFolderName(Valeur.l) ; Récupère le nom d'un dossier spécifique de Windows
Protected SpecialFolderName.s, Dossier_ID.l
If SHGetSpecialFolderLocation_(0, Valeur, @Dossier_ID) = 0
SpecialFolderName = Space(#MAX_PATH)
SHGetPathFromIDList_(Dossier_ID, @SpecialFolderName)
If SpecialFolderName
SpecialFolderName = GetFilePart(SpecialFolderName)
Else
Select Valeur
Case 1 : SpecialFolderName = "Internet explorer"
Case 3 : SpecialFolderName = "Panneau de configuration"
Case 4 : SpecialFolderName = "Imprimantes et télécopieurs"
Case 10 : SpecialFolderName = "Corbeille"
Case 17 : SpecialFolderName = "Poste de travail"
Case 18 : SpecialFolderName = "Favoris réseau"
Case 49 : SpecialFolderName = "Connexions réseau"
Case 61 : SpecialFolderName = "Réseau"
EndSelect
EndIf
EndIf
ProcedureReturn SpecialFolderName
EndProcedure
ProcedureDLL.l GetSpecialFolderSmallIcon(Valeur.l) ; Récupère l'icône 16*16 d'un dossier spécifique de Windows
Protected Dossier.SHFILEINFO, Dossier_ID.l, Icone
If SHGetSpecialFolderLocation_(0, Valeur, @Dossier_ID) = 0
SHGetFileInfo_(Dossier_ID, 0, @Dossier, SizeOf(SHFILEINFO), #SHGFI_ICON | #SHGFI_PIDL | #SHGFI_SMALLICON)
EndIf
ProcedureReturn Dossier\hIcon
EndProcedure
ProcedureDLL.l GetSpecialFolderLargeIcon(Valeur.l) ; Récupère l'icône 32*32 d'un dossier spécifique de Windows
Protected Dossier.SHFILEINFO, Dossier_ID.l, Icone
If SHGetSpecialFolderLocation_(0, Valeur, @Dossier_ID) = 0
SHGetFileInfo_(Dossier_ID, 0, @Dossier, SizeOf(SHFILEINFO), #SHGFI_ICON | #SHGFI_PIDL | #SHGFI_LARGEICON)
EndIf
ProcedureReturn Dossier\hIcon
EndProcedure
CallDebugger
lieu.s=GetSpecialFolderLocation(32) ;32=C:\Documents And Settings\xxxxxxxxxxx\Local Settings\Temporary Internet Files\
Debug lieu.s
;- Programme principal
; On liste tous les dossier systèmes récupérables
For n = 0 To 200
Nom.s = GetSpecialFolderName(n) ; On récupère le nom du dossier
Adresse.s = GetSpecialFolderLocation(n) ; On récupère l'adresse du dossier
If Nom
If Adresse = "" ; Affichage dans le debugger des dossiers
Debug RSet(Str(n), 2, "0") + " Pas de dossier, il s'agit de : " + Nom
Else
Debug RSet(Str(n), 2, "0") + " " + Adresse
EndIf
AddGadgetItem(1, -1, Str(n) + Chr(10) + Nom + Chr(10) + Adresse) ; On affiche
EndIf
Next
; Voici la liste des valeurs obtenues sous Windows XP (Certaines valeurs n'ont pas de dossier sous d'autres version de Windows)
; 00 C:\Documents And Settings\Le Soldat Inconnu\Bureau\
; 01 Pas de dossier, il s'agit de : Internet Explorer
; 02 C:\Documents And Settings\Le Soldat Inconnu\Menu Démarrer\Programmes\
; 03 Pas de dossier, il s'agit de : Panneau de configuration
; 04 Pas de dossier, il s'agit de : Imprimantes et télécopieurs
; 05 C:\Documents And Settings\Le Soldat Inconnu\Mes Documents\
; 06 C:\Documents And Settings\Le Soldat Inconnu\Favoris\
; 07 C:\Documents And Settings\Le Soldat Inconnu\Menu Démarrer\Programmes\Démarrage\
; 08 C:\Documents And Settings\Le Soldat Inconnu\Recent\
; 09 C:\Documents And Settings\Le Soldat Inconnu\SendTo\
; 10 Pas de dossier, il s'agit de : Corbeille
; 11 C:\Documents And Settings\Le Soldat Inconnu\Menu Démarrer\
; 13 C:\Documents And Settings\Le Soldat Inconnu\Mes Documents\Ma musique\
; 16 C:\Documents And Settings\Le Soldat Inconnu\Bureau\
; 17 Pas de dossier, il s'agit de : Poste de travail
; 18 Pas de dossier, il s'agit de : Favoris réseau
; 19 C:\Documents And Settings\Le Soldat Inconnu\Voisinage réseau\
; 20 C:\WINDOWS\Fonts\
; 21 C:\Documents And Settings\Le Soldat Inconnu\Modèles\
; 22 C:\Documents And Settings\All Users\Menu Démarrer\
; 23 C:\Documents And Settings\All Users\Menu Démarrer\Programmes\
; 24 C:\Documents And Settings\All Users\Menu Démarrer\Programmes\Démarrage\
; 25 C:\Documents And Settings\All Users\Bureau\
; 26 C:\Documents And Settings\Le Soldat Inconnu\Application Data\
; 27 C:\Documents And Settings\Le Soldat Inconnu\Voisinage D'impression\
; 28 C:\Documents And Settings\Le Soldat Inconnu\Local Settings\Application Data\
; 31 C:\Documents And Settings\All Users\Favoris\
; 32 C:\Documents And Settings\Le Soldat Inconnu\Local Settings\Temporary Internet Files\
; 33 C:\Documents And Settings\Le Soldat Inconnu\Cookies\
; 34 C:\Documents And Settings\Le Soldat Inconnu\Local Settings\Historique\
; 35 C:\Documents And Settings\All Users\Application Data\
; 36 C:\WINDOWS\
; 37 C:\WINDOWS\system32\
; 38 C:\Program Files\
; 39 C:\Documents And Settings\Le Soldat Inconnu\Mes Documents\Mes images\
; 40 C:\Documents And Settings\Le Soldat Inconnu\
; 41 C:\WINDOWS\system32\
; 43 C:\Program Files\Fichiers communs\
; 45 C:\Documents And Settings\All Users\Modèles\
; 46 C:\Documents And Settings\All Users\Documents\
; 47 C:\Documents And Settings\All Users\Menu Démarrer\Programmes\Outils D'administration\
; 49 Pas de dossier, il s'agit de : Connexions réseau
; 54 C:\Documents And Settings\All Users\Documents\Mes images\
; 56 C:\WINDOWS\Resources\
; 59 C:\Documents And Settings\Le Soldat Inconnu\Local Settings\Application Data\Microsoft\CD Burning\
; 61 Pas de dossier, il s'agit de : Réseau
; Voici la liste des valeurs obtenues sous Windows ME
; 00 C:\WINDOWS\Bureau\
; 01 Pas de dossier, il s'agit de : Internet explorer
; 02 C:\WINDOWS\Menu Démarrer\Programmes\
; 03 Pas de dossier, il s'agit de : Panneau de configuration
; 04 Pas de dossier, il s'agit de : Imprimantes et télécopieurs
; 05 C:\Mes documents\
; 06 C:\WINDOWS\Favoris\
; 07 C:\WINDOWS\Menu Démarrer\Programmes\Démarrage\
; 08 C:\WINDOWS\Recent\
; 09 C:\WINDOWS\SendTo\
; 10 Pas de dossier, il s'agit de : Corbeille
; 11 C:\WINDOWS\Menu Démarrer\
; 13 C:\Mes documents\Ma musique\
; 14 C:\Mes documents\Mes vidéos\
; 16 C:\WINDOWS\Bureau\
; 17 Pas de dossier, il s'agit de : Poste de travail
; 18 Pas de dossier, il s'agit de : Favoris réseau
; 19 C:\WINDOWS\Voisinage réseau\
; 20 C:\WINDOWS\FONTS\
; 21 C:\WINDOWS\Modèles\
; 24 C:\WINDOWS\All Users\Menu Démarrer\Programmes\Démarrage\
; 25 C:\WINDOWS\All Users\Bureau\
; 26 C:\WINDOWS\Application Data\
; 27 C:\WINDOWS\Voisinage d'impression\
; 28 C:\WINDOWS\Application Data\
; 32 C:\WINDOWS\Temporary Internet Files\
; 33 C:\WINDOWS\COOKIES\
; 34 C:\WINDOWS\Historique\
; 35 C:\WINDOWS\All Users\Application Data\
; 36 C:\WINDOWS\
; 37 C:\WINDOWS\SYSTEM\
; 38 C:\Program Files\
; 39 C:\Mes documents\Mes images\
; 41 C:\WINDOWS\SYSTEM\
; 43 C:\Program Files\Fichiers communs\
; 46 C:\WINDOWS\All Users\Documents\
; 49 Pas de dossier, il s'agit de : Connexions réseau
; Voici la liste des valeurs obtenues sous Windows 98
; 00 C:\WINDOWS\Bureau\
; 01 Pas de dossier, il s'agit de : Internet explorer
; 02 C:\WINDOWS\Menu Démarrer\Programmes\
; 03 Pas de dossier, il s'agit de : Panneau de configuration
; 04 Pas de dossier, il s'agit de : Imprimantes et télécopieurs
; 05 C:\Mes documents\
; 06 C:\WINDOWS\Favoris\
; 07 C:\WINDOWS\Menu Démarrer\Programmes\Démarrage\
; 08 C:\WINDOWS\Recent\
; 09 C:\WINDOWS\SendTo\
; 10 Pas de dossier, il s'agit de : Corbeille
; 11 Menu Démarrer C:\WINDOWS\Menu Démarrer\
; 16 C:\WINDOWS\Bureau\
; 17 Pas de dossier, il s'agit de : Poste de travail
; 18 Pas de dossier, il s'agit de : Favoris réseau
; 19 C:\WINDOWS\Voisinage réseau\
; 20 C:\WINDOWS\FONTS\
; 21 C:\WINDOWS\ShellNew\
; 26 C:\WINDOWS\Application Data\
; 27 C:\WINDOWS\PrintHood\
; 32 C:\WINDOWS\Temporary Internet Files\
; 33 C:\WINDOWS\Cookies\
; 34 C:\WINDOWS\Historique\
Publié : lun. 08/août/2005 20:03
par olivier
Merci de tant d'éffort mais je n'ai pas l'impression que c'est ce que je cherche.
Alors je vais essayer d'être plus claire.
Mon ExplorerTreeGadget m'affiche cela :
Et j'aimerais avoir acces au réseau donc avoir cela :
En ésperant être plus claire....