icone associée a un fichier

**Shredder** · 26/06/2007, 12h18

bonjour,

j'ai suivi cette source pour récuperer les icones associées a un 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
function GetIcon(const FileName: string; const Large: Boolean): TIcon;
var
  sfi: TSHFILEINFO;
  i: Integer;
begin
  Result := nil;
  try
    Result := TIcon.Create;
    if Large then
      i := SHGFI_LARGEICON
    else
      i := SHGFI_SMALLICON;
    SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, sfi, SizeOf(sfi), SHGFI_ICON or SHGFI_USEFILEATTRIBUTES or i);
    Result.Handle := sfi.hIcon;
  except
    if Result <> nil then
      FreeAndNil(Result);
  end;
end;

ce que je cherche a faire, c'est ajouter les icones associées aux extensions de certains fichiers dans une imagelist, et ensuite les insérer dans un listview

seulement j'ai deux problèmes

:

- le premier est que certaines icones (celles de mozilla pour les fichier html) n'appraissent pas (j'ai l'icone qui apparait quand windows ne sait pas avec quel programme ouvrir le fichier)

- le deuxieme est que certaines icones ou il y a une sorte d'ombre, apparaissent très mal, et la qualité est très mauvaise

avez-vous une idée, ou une solution plus pratique que la mienne ?

merci

**anapurna** · 26/06/2007, 16h22

salut

essai avec ce code la

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
Function GetIcon(edFileName : string) : TIcon;
var
  shInfo : TSHFileInfo;
  sFileType : string;
begin
  Result := Nil;
  { recuper les infos sur le type de fichier provenant de SHGetFileInfo }
  SHGetFileInfo(PChar(edFileName), 0, shInfo, SizeOf(shInfo), SHGFI_TYPENAME);
  sFileType := shInfo.szTypeName;
 { est un racourci? }
  if sFileType = 'Shortcut' then
    SHGetFileInfo(PChar(edFileName), 0, shInfo, SizeOf(shInfo),SHGFI_LINKOVERLAY or SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX)
  else      { ...les autres sont traiter comme des fichiers normaux }
    SHGetFileInfo(PChar(edFileName), 0, shInfo, SizeOf(shInfo), SHGFI_ICON or SHGFI_SMALLICON or SHGFI_SYSICONINDEX);
 
  if shInfo <> 0 Then
  begin
    Result := TIcon.Create;
    try
      Result.Handle := shInfo.hIcon;
    except
      Result.free;
    end;
  end;
end;

**Shredder** · 26/06/2007, 17h36

non, ça ne marche pas

j'ai toujours l'icone indiquant que windows ne sait pas avec quel programme ouvrir le fichier pour les documents HTML

**anapurna** · 26/06/2007, 19h07

salut

Code :

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

1
2
 
 ExtractAssociatedIcon(HInstance,filename,IconIndex);

@+ Phil

**Shredder** · 26/06/2007, 19h18

j'obtiens la même chose

mais je verrais ça plus tard.

maintenant est-ce que vous sauriez comment faire exactement la même chose, de manière à ce que ce soit avec le type de fichier ?

par exemple si je met .doc, le programme devrait me répondre "Microsoft Word Document"

merci

**anapurna** · 26/06/2007, 19h37

salut

regarde la a priori leur code fonctionne
le seul truc que j'ai observer comme difference c'est que l'on as pas
initialisé la variable par un zeromemori
regarde ici

tu cherche le type de fichier associer ?

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
 
 
function GetTypefichierAssoc(FileNane: String; Attribus: DWORD):string;
var SHFileInfo: TSHFileInfo;
  begin
   Extension := GetFileExt(String(FileNane));
   SHGetFileInfo(PChar(Extension), Attribus, SHFileInfo, SizeOf(TSHFileInfo),
                 SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_TYPENAME);
 
   Result := SHFileInfo.szTypeName; //Quel est le type de fichier
end;
 
Function GetIconIndex(FileNane: String; Attribus: DWORD):Integer;
var SHFileInfo: TSHFileInfo;
  begin
     Extension := GetFileExt(String(FileNane));
 
   SHGetFileInfo(PChar(Extension), Attribus, SHFileInfo, SizeOf(TSHFileInfo),
             SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES or SHGFI_TYPENAME);
     Result := SHFileInfo.iIcon; //index de l'icone dans l'image list du systeme
  end;