Discussion :

[Pedro]

Salut
je voudrais pouvoir récupérer, d'après une extension de fichier, l'icone associé et aussi le nom que lui donne windows (Ex: pour .mp3 c'est "Winamp Media File") sans passser par la base de registre parce que c'est un peu lourd... Est-ce qu'il existe des fonctions API ou autres qui permettent de faire ça?

Autre question : Une fois que j'ai récupéré le fichier dans lequel se trouve l'icone, si le fichier est du type "Bidule.dll,%1" (Le premier icone dans la librairie Bidule.dll), comment faut-il s'y prendre pour extraire cet icone et le stocker dans un TBitmap par exemple?

Merci d'avance

[Reisubar]

Sans passer par la base de registre ça me paraît impossible !

Il y a un article complet ici à ce sujet :
http://www.latiumsoftware.com/en/pascal/0006.php
(regarde en particulier la fonction GetAssociatedSmallIcon)

[Pedro]

OK merci

Et pour l'autre question?
Est-ce que dans la DLL, directement se trouve un fonction qui renvoie un HBITMAP ou il y a une fonction toute prête qui fait ça?

Merci d'avance

[cpdump]

Moi j'utilise un méthode différente (récupérée sur Internet) : Dans un premier temps, je crée une imagelist contenant les icones systèmes, et grâce à la fonction GetExtIconIndex je récupere l'index de l'icone associée à l'extension dans l'imagelist ainsi que le type de fichier.

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
 
// Partie Création de l'image liste
    // Créer une image list avec les icones correspondant aux extensions de fichiers
    Self.SysImage := TImageList.Create(nil);	// Quel AOwner ???
    Self.SysImage.ShareImages := true;
    Self.SysImage.Handle := SHGetFileInfo('', 0, SHFileInfo, SizeOF(SHFileInfo), SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
 
 
//
// Récupère l'index de l'icone associée à l'extension ainsi que son type
//
// Parametres:
//
//
function GetExtIconIndex(Ext: String; Attributs: DWORD; var TypeFichier :string): Integer;
var
	SHFileInfo: TSHFileInfo;
begin
	//Il faut le "." avant
   	if Ext[1] <> '.' then
    	Ext := '.' + Ext;
 
	// En cas d'erreur
    Result := -1;
    TypeFichier := '';
 
    // On récolte les info pour l'extension
	//http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shgetfileinfo.asp
    if SHGetFileInfo(PChar(Ext), Attributs, SHFileInfo, SizeOf(TSHFileInfo),
             SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_TYPENAME) <> 0 then
    begin
        TypeFichier := SHFileInfo.szTypeName; //Quel est le type de fichier
        Result := SHFileInfo.iIcon; //index de l'icone dans l'image list du systeme
	end;
end;

[Pedro]

OK merci!!
la méthode de cpdump fonctionne à merveille