Discussion :

[Lapalys]

Bonjour

Je fais un logiciel qui utilise des icônes stockés dans les exe et les dll. Je passe l'indice (positif) de l'icône et tout va bien.

Parfois, la référence de l'icône est négative. Exemple de l'icône "mes documents" : %SystemRoot%\system32\imageres.dll,-3 ou le bureau Windows : %SystemRoot%\system32\imageres.dll,-183

Si j'ai bien compris, ce chiffre négatif n'est pas l'indice de l'icône mais bien un numéro de ressource dans le fichier. Dans ce cas, il faudrait utiliser CreateIconFromResourceEx mais suis pas spécialiste et n'ai trouvé aucun code Windev utilisant cette fonction. Sauriez-vous comment faire ?

Merci d'avance pour votre aide !

[frenchsting]

Bonjour,

Lorsque je fais ce genre de trifouillage d'API, j'ai 2 sources :
- MSDN : te donne toutes les infos des paramètres ici pour CreateIconFromResourceEx
- Dans Windev, tu as le volet Outils et le bouton WDAPI. Cela va te permettre, outre d'avoir la syntaxe à utiliser pour une API, de convertir les types de C en W-langage.

Ensuite, quand je vois que je vais ramer car il y a plusieurs API à appeler avant d'exécuter mon API "principale", je cherche des exemples. Stackoverflow donne de très bonnes pistes (C++/C#) : ici

Tu te retrouves avec une variable handle sur l'icône. Tu "n'as plus" qu'à regarder DawIconEx (sans oublier un DestroyIcon pour faire le ménage) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
// Le Device Context est une image
hDC = dDébutDessin(Img_Icon)
 
// Ecriture de l'icône dans l'image
API("USER32","DrawIconEx", hDC, 0, 0, handleIcone, TailleIcone, TailleIcone, 0, 0, 3)
// Destruction de l'icône. 
API("USER32","DestroyIcon", handleIcone)

C'est un code que j'utilise pour afficher des icônes extraites de programmes (exe).

Ensuite, l'utilisation des API a quand même un côté alchimie. Il faut faire des tests en changeant des paramètres et voir ce que ça donne...

Bon courage

Note : tu regarder également sur les forums de developpez.com (C++/C#) et également du code Delphi (ou Lazarus)...

[Lapalys]

Merci Frenchsting pour ta réponse.

J'ai évidemment cette partie de sauvegarde de l'icône, dispo dans plusieurs forums. Le défi est de récupérer l'icône !
J'ai beau chercher, aucun exemple n'est dispo en Windev et WDAPI n'est plus du tout à jour. Malgré tout, je chemine ...

J'ai un bout de code qui commence à fonctionner mais, en passant le # de la ressource à FindResourceW, il se positionne sur le mauvais icône dans la dll.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

hResInfo = API("kernel32.dll", "FindResourceW", hModule, nResourceID, 3) // 3 pour RT_ICON

Selon ce que j'ai trouvé, il faudrait transformer ce nResourceID en "autre chose" et MAKEINTRESOURCE revient souvent dans les explications.
https://learn.microsoft.com/en-us/wi...keintresourcea

Par contre, c'est une macro et non une fonction d'API et donc aucune idée comment l'utiliser en WinDev. Au final, ça devrait ressembler à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

hResInfo = API("kernel32.dll", "FindResourceW", hModule, MAKEINTRESOURCE(nResourceID), 3)

J'ai donc tenté de faire une procédure globale en C# de ce nom là mais aucune idée quoi mettre dedans pour que ça renvoie le résultat attendu.

[frenchsting]

Bonjour,

Ok pour tes explications : j'ai trouvé ceci. Est-ce que ça peut t'aider ?

Si tu veux code en C#, pourquoi pas. Dans ce cas, crée un assemblage qui te renverra un buffer (ou une chaine encodée en base 64) de l'icône extraite. essaye de trouver des exemples de codage des API en C#.
Je ne pourrai pas t'aider là-dessus. Tu peux essayer de demander sur la partie dédiée au C# de ce forum.

[frenchsting]

[Erreur de mainip]

[Lapalys]

Oui j'ai trouvé aussi cet article (j'ai vraiment beaucoup cherché).

N'ayant pas la possibilité d'appeler une macro par WinDev (enfin je ne pense pas), je n'ai pas le choix que de passer sur le côté et le C# pourrait être la solution (https://doc.pcsoft.fr/?2012008).

C'est natif, donc pas besoin de créer d'assemblage. J'ai juste besoin d'un bout de code de quelques lignes qui renvoie le résultat. J'ai évidemment essayé mais ça m'affiche plein d'erreurs. Je peux voir du côté du forum C# mais ils vont me dire qu'ils ne savent pas quoi faire en WinDev (s'ils sont gentils ).

Y a-t-il donc quelqu'un qui s'est déjà amusé avec du code C# dans WinDev ?

[DevOcc]

Bonjour,
Avez-vous jeté un coup d'œil sur les possibilités en python, une recherche rapide donne ceci :

https://pypi.org/project/icoextract/

https://github.com/python-pillow/Pillow/issues/7191

Windev accepte le python en natif, donc peut-être une solution.
Cdlt

[Lapalys]

Merci DevOcc. Utiliser Python m'a aussi traversé l'esprit.

Dans ton exemple, le paramètre de la fonction est l'indice, je ne serais pas plus avancé.

Aussi, sans jamais avoir fait du Python dans Windev, il semble que ça traine l'interpréteur et d'autres fichiers alors qu'en C#, rien de plus ne devait être ajouté. Disons que Python serait mon plan C.

[frenchsting]

De mémoire, il y a effectivement un gros package à mettre avec l'appli. Il y avait des discussion sur ce forum à propos de python.

Par contre, pour le C#, à mon avis, tu vas avoir une DLL qui va faire le traitement d'extraction, non ? Et cet assemblage sera à ajouter à ton projet.

[Patrice Terrier]

Je fais un logiciel qui utilise des icônes stockés dans les exe et les dll.

Si les icônes sont stockées dans des DLL(s) et des EXE(s) standards, comment faites vous pour connaître l'ID correspondant ?

LoadLibraryEx
ExtractIcon
GetIconInfo
GetDIBits
Write the DIB bitmap to a file
DestroyIcon
FreeLibrary

[Lapalys]

Parfois ils sont dans des fichiers ini ou dans les raccourcis, parfois dans la base de registre :
valeur de Icon de HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\FolderDescriptions\{xxx}
exemple

[DevOcc]

Bonjour,
Je ne sais pas si vous pourrez trouver un script python qui corresponde à vos attentes mais je voulais vous apporter une précision sur les possibilités avec python au cas où vous auriez à passer au plan C .
Il est vrai que si on utilise Python dans Windev, il faudra que l'interpréteur Python soit présent sur le poste de Prod., ce qui n'est pas fait pour me plaire.
Mais lorsque cela est possible, on peut créer un .exe du script Python que l'on place dans le répertoire de l'application et qu'on exécute avec un "LanceAppli". Dans ce cas, inutile d'avoir python sur le poste de Prod.
C'est bon à savoir en cas de besoin.
Cdlt

[Patrice Terrier]

Prototype

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
PROCEDURE ExtractIconsFromModule(sFilePath is string)
 
    // Constants
    cLOAD_LIBRARY_AS_DATAFILE is int = 0x00000002
    cMAX_ICONS is int = 100
 
    // Load the module
    hModule is int = LoadLibraryExA(sFilePath, 0, cLOAD_LIBRARY_AS_DATAFILE)
    IF hModule = 0 THEN
        Error("Failed to load module", ErrorInfo())
        RETURN
    END
 
    // Extract icons
    i is int
    hIconArray is array of int
    FOR i = 0 TO cMAX_ICONS
        hIconArray[i] = ExtractIconExA(sFilePath, i, 0, 0, 1)
        IF hIconArray[i] = 0 THEN
            BREAK
        END
    END
 
    // Save each icon
    FOR i = 0 TO ArrayCount(hIconArray) - 1
        IF hIconArray[i] <> 0 THEN
            sIconFilePath is string = "icon_" + NumToString(i, "02d") + ".ico"
            SaveIconToFile(hIconArray[i], sIconFilePath)
            DestroyIcon(hIconArray[i])
        END
    END
 
    // Free the library
    FreeLibrary(hModule)
 
END

[Lapalys]

DevOcc : Merci pour cette piste, ça pourrait le faire en effet !

Patrice : Merci de ta réponse mais je comprends que tu sauves les icônes avec un nom dans l'ordre numérique dans lesquels ils sont lus. Les # de ressources ne se suivent malheureusement pas. Un exemple, regarde les 3 icônes de corbeille : l'icône N°63 devient la ressource 142. J'ai, pour ce fichier par exemple, des icônes qui ont des # de ressource jusqu'à 63011 (alors que ce fichier ne contient "que" 327 icônes). Aucune correspondance immédiate sauf pour les 54 premiers.


Pour en revenir à MAKEINTRESOURCE, il n'y a qu'un seul post Windev qui en parle (dont le contenu vient d'une LST!) :
https://forum.pcsoft.fr/fr-FR/pcsoft...itivo/read.awp

Patrice tu as beaucoup travaillé avec ça, aurais-tu une idée de comment traduire ça en WLangage (ou en faire une procédure C#) ?

[Patrice Terrier]

Utilisez EnumResourceNames pour énumérer les resources de type RT_GROUP_ICON dans la DLL.
Cela permet de retrouver le nom ou l'ID utilisé dans le groupe d'icones.

Pas besoin de passer par un assemblage C#, un simple appel de la flat API fait cela très bien.

Au passage il faut aussi préciser la taille des icônes que l'on souhaite extraire.


https://learn.microsoft.com/en-us/wi...resourcenamesa

Voir aussi
https://learn.microsoft.com/en-us/wi...-resource-list

[Lapalys]

Merci Patrice.

J'ai fait un petit essai et ça me donne bien une liste numérique. Je ne peux malheureusement rien en faire car, selon la doc https://learn.microsoft.com/en-us/wi...umresnameprocw , le paramètre de la fonction qui m'intéresse a besoin de MakeIntresource aussi

Type: LPTSTR
The name of a resource of the type being enumerated. Alternately, rather than a pointer, this parameter can be MAKEINTRESOURCE(ID), where ID is the integer identifier of the resource. For more information, see the Remarks section below.

[Patrice Terrier]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
LONG_PTR MakeIntResource(WORD id) {
    return (LONG_PTR)id;
}

[frenchsting]

Je plussoie Patrice: le MAKEINTRESOURCE est un pointeur. Tu peux t'aider de cette page pour t'aider .

A voir si, également, il faut tenir compte de la version de l'OS (32/64 bits)

[Lapalys]

Frenshting, Patrice,

J'ai donc essayé EnumResourceNamesW sur shell32.dll. Ce dernier contient 327 icônes, chacun déclinés en 8 tailles (ou moins).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
sModule est une chaîne = "C:\Windows\system32\shell32.dll" // Chemin de la DLL
hModule est un entier système = API("kernel32.dll", "LoadLibraryW", sModule)
SI hModule <> 0 ALORS
	SI API("kernel32.dll", "EnumResourceNamesW", hModule, 3,&EnumNamesFunc,nLParam) ALORS // 3 pour RT_ICON
		STOP
	SINON
		Erreur("Ressource non trouvée.")
	FIN
SINON
	Erreur("Impossible de charger le module " + sModule)
FIN

Procédure globale appelée par callback

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PROCÉDURE EnumNamesFunc(nHModule est un entier système,nRessourceType,nRessourceName,nLParam)
Trace(nHModule,nRessourceType,nRessourceName,nLParam)
RENVOYER Vrai

Résultat dans la trace :
140727756193792 3 1 0
...
140727756193792 3 2426 0

Je comprend que chaque icône individuel est un numéro dans cette liste (327 icônes différents x 8 tailles = 2616 auquel on enlève quelques tailles d'icônes qui n'existent pas).

Donc c'est bien un "pointeur" qui pointe vers l'icône individuel contenu dans le fichier. Je ne peux malheureusement rien en faire car le nombre que j'ai est, par exemple, 16818 (le # de ressource) qui dépasse largement 2426.


Je comprends donc que MakeIntResource transforme 16818 en 307 ... par quelle sorcellerie ? Ton code, Patrice, ne fait pas cela si je l'ai compris correctement.


Voila pourquoi je cherche à exécuter MakeIntResource pour faire cette conversion.

[Patrice Terrier]

un pointeur est une adresse mémoire, pour lire la valeur pointée à cette adresse vous pouvez utiliser la fonction WinDev transfert pour copier la valeur dans un entier (4 octets)