cacher/afficher une icone ds le bureau

Question

salut tt l monde
je vx savoir comment faire pour cacher / afficher une icone ds le bureau et aussi comment récuperé l'adresse des icones (ttes les icones) ds le bureau.
et merci
Je suis né intelligent ... L'éducation me détruit ;)

cs_rene38 · Answer

Bonjour
Les icones du bureau sont des fichiers et/ou des dossiers.

Pour "cacher" l'icone : déplacer le fichier/dossier ailleurs sur le disque.

Pour afficher : replacer le fichier/dossier sur le bureau.

Adresse du bureau :
C:\Windows\Bureau  (Win 9x)
C:\Documents and settings\Bureau (Win XP)
Sous tous les OS, utilise la fonction API SHGetSpecialFolderPath 

Toutes les icones du bureau = Tous les fichiers/dossiers du bureau.

CrazyMan19 · Answer

merci
mais pour l API que t as dit qu il recupere le nom du bureau ss tt les OS j l as trouvé peut tu me poster toute la declaration
SHGetSpecialFolderPath 
et merci
Je suis né intelligent ... L'éducation me détruit ;)

cs_EBArtSoft · Answer

Oui enfin les icones du bureau sont avant tout des ListItem d'un listview je me souvient plus du n° de la source mais il existe un code pour modifier les icones du bureau sans toucher au fichier (et c'est quand meme mieu)  ;) 

@+

E.B.

CrazyMan19 · Answer

oui c ce que je cherche mais pour le moument é ce qu il est un API qui recupere le chemin du bureau ds tt les OS
Je suis né intelligent ... L'éducation me détruit ;)

cs_rene38 · Answer

'Dans la section Général - Déclarations
Private Declare Function SHGetSpecialFolderPath Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" (ByVal hWnd As Long, ByVal lpszPath As String, ByVal nFolder As Integer, ByVal fCreate As Boolean) As Long

'Dans un sub, Command1_Click() par exemple
Const CSIDL_DESKTOPDIRECTORY = &H10
Dim Bureau As String, Retour As Long
Bureau = Space$(255)
Retour = SHGetSpecialFolderPath(Me.hWnd, Bureau, CSIDL_DESKTOPDIRECTORY, False)
Bureau = Left(Bureau, InStr(Bureau, Chr$(0)) - 1)

cs_EBArtSoft · Answer

Ah ok désolé j'avais mal compris  :-p 

@+

E.B.

CrazyMan19 · Answer

merci pour toi rene38
et pas de prob EbartSoft :)
Je suis né intelligent ... L'éducation me détruit ;)

cs_paul_w · Answer

tu pourai me suc&#233; je suis en manque jte le jure sa race la oui

jihednond · Answer

@§§§FearME§§§@

en peut faire des super blague merci

Cacher/afficher une icone ds le bureau

9 réponses

Discussions similaires