PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → afficher les icones des fichiers et exécutables
afficher les icones des fichiers et exécutables
Started by jhd, Mar., 23 2006 5:20 PM - 2 replies
Posted on March, 23 2006 - 5:20 PM
bonjour

voila je n arrive pas a récupérer les icones des fichiers et executables pour les afficher dans une sorte d explorateur windows.

J aimerai bien recuperer les icones exactes de chaque fichiers ou executable.

Si quelqu un sait comment faire merci d avance car je plonge la dessus depuis plusieurs heures

J'utilise windev 10.
Posted on March, 24 2006 - 10:07 AM
// Extraire l'icône associé au raccourci Windev
// et l'afficher dans une fenêtre
hWnd est un entier long
hDC est un entier long
hIcon est un entier long
hInst est un entier long
lpIconPath est une chaîne Asciiz sur 255
lpIcon est un entier

hWnd = Handle()
hInst = Instance()
hDC = AppelDLL32("user32", "GetDC", hWnd)
// Insérer le nom et le chemin complet du raccourci
lpIcon = "C:\windev55\WinDev~1.lnk"

hIcon = AppelDLL32("shell32", "ExtractAssociatedIconA", ...
hInst, &lpIconPath, &lpIcon)
AppelDLL32("user32", "DrawIcon", hDC, 1, 1, hIcon)
Posted on March, 24 2006 - 11:14 AM
Merci de ta reponse

Toutefois j ai du mal a comprendre comment utiliser cette procedure pourrait tu me paste un exemple de recuperation de l icone du programme qui ouvre les fichiers .txt par exemple

Excuse moi de mes questions mais je débute sous windev