PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

|
|
|
FR
Accueil → WINDEV 2025 → Comment remplacer l'icone d'un répertoire Windows par programmation
Comment remplacer l'icone d'un répertoire Windows par programmation
Débuté par Jean Turcotte, 29 avr. 2025 14:44 - 6 réponses
#1
Membre enregistré
1 282 messages
Posté le 29 avril 2025 - 14:44
Bonjour, remplacer l'icone d'un répertoire Windows, c'est facile avec Propriété du repertoire mais peut-on le faire par programmation?

J'ai fouillé sur le Net mais il semble que ce soit impossible. Pourtant même les répertoires de Windev ont leur propre icone.

--
Jean Turcotte
WX 2025
Signaler
0
0
#2
Membre enregistré
871 messages
Posté le 29 avril 2025 - 15:42
Bonjour,
Avez-vous ceci ?

https://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev/79407-changer-icone-repertoire/read.awp

PS : je n'ai pas essayé.
Cdlt
Signaler
0
0
#3
Membre enregistré
1 282 messages
Posté le 30 avril 2025 - 14:08
Cédric_34 a écrit :
Bonjour,
Avez-vous ceci ?

https://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev/79407-changer-icone-repertoire/read.awp

PS : je n'ai pas essayé.
Cdlt


Bonjour Cedric, j'ai essayé mais sans succes!

--
Jean Turcotte
WX 2025
Signaler
0
0
#4
Membre enregistré
871 messages
Posté le 30 avril 2025 - 14:39
Juste au cas où, avez-vous appliqué la dernière recommandation (#4) ?
Signaler
0
0
#5
Membre enregistré
248 messages
Posté le 30 avril 2025 - 14:53
Bonjour,

Voici un exemple de code que j'utilise et qui fonctionne

Cela suppose que le dossier "C:\ProgramData\Clients\" existe et que l’icône "client.ico" est inclu dans la bibliothèque de l'exécutable

CustomizeFolderIcon("C:\ProgramData\Clients\",Vrai,"client.ico","Dossiers clients")

PROCEDURE INTERNE CustomizeFolderIcon(sFolder, bConfirmFileOp, sIconeFile, sInfoType)
SI PAS fRépertoireExiste(sFolder) ALORS RENVOYER Faux
fAttribut(sFolder,"DS") // Dossier système
fExtraitRessource(sIconeFile,sFolder+sIconeFile)
INIEcrit(".ShellClassInfo","ConfirmFileOp",NumériqueVersChaîne(bConfirmFileOp),ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","NoSharing","0",ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","IconFile",AnsiVersUnicode(sIconeFile),ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","IconIndex","0",ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","InfoTip",AnsiVersUnicode(sInfoType),ComplèteRep(sFolder)+"Desktop.ini")
fAttribut(sFolder+"Desktop.ini","HS") // Fichier Desktop.ini --> Caché + Système
RENVOYER Vrai
FIN


Fabrice
Signaler
1
0
#6
Membre enregistré
871 messages
Posté le 30 avril 2025 - 21:56
Le code converti par Fabrice N pourrait bien confirmer que Attrib (le #4) n'a pas été appliqué.
Cdlt
Signaler
0
0
#7
Membre enregistré
1 282 messages
Posté le 01 mai 2025 - 14:27
Fabrice N a écrit :
Bonjour,

Voici un exemple de code que j'utilise et qui fonctionne

Cela suppose que le dossier "C:\ProgramData\Clients\" existe et que l’icône "client.ico" est inclu dans la bibliothèque de l'exécutable

CustomizeFolderIcon("C:\ProgramData\Clients\",Vrai,"client.ico","Dossiers clients")

PROCEDURE INTERNE CustomizeFolderIcon(sFolder, bConfirmFileOp, sIconeFile, sInfoType)
SI PAS fRépertoireExiste(sFolder) ALORS RENVOYER Faux
fAttribut(sFolder,"DS") // Dossier système
fExtraitRessource(sIconeFile,sFolder+sIconeFile)
INIEcrit(".ShellClassInfo","ConfirmFileOp",NumériqueVersChaîne(bConfirmFileOp),ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","NoSharing","0",ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","IconFile",AnsiVersUnicode(sIconeFile),ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","IconIndex","0",ComplèteRep(sFolder)+"Desktop.ini")
INIEcrit(".ShellClassInfo","InfoTip",AnsiVersUnicode(sInfoType),ComplèteRep(sFolder)+"Desktop.ini")
fAttribut(sFolder+"Desktop.ini","HS") // Fichier Desktop.ini --> Caché + Système
RENVOYER Vrai
FIN


Fabrice


Merci à vous, ça fonctionne très bien.

--
Jean Turcotte
WX 2025
Signaler
0
0
→ Revenir à WINDEV 2025