Iconos de archivos conocidos

[dec]

Hola,

Genial Domingo. Había leído lo que dices en la ayuda, pero, no lo comprendí bien, claro está. Se toma nota. Apúntate otro 10.

Por cierto, me he permitido añadir al apartado de trucos el código fuente que has expuesto.

[roman]

Según se indica en el truco citado de trucomanía, ExtractAssociatedIcon tendrá la desventaja de que debe aplicarse sobre un archivo existente.

Partiendo de ahí, me he tomado la libertad de hacer otra función, basada sólo en la extensión del archivo:

Código Delphi [-]
procedure ExtractIcon(FileExt: String; Icon: TIcon; SmallIcon: Boolean = false);
var
  il: TImageList;
  fi: TShFileInfo;
  flags: Cardinal;
  idx: Integer;

begin
  ShGetFileInfo(
    PChar('.' + FileExt), 0, fi, SizeOf(fi),
    SHGFI_SYSICONINDEX or SHGFI_USEFILEATTRIBUTES
  );
  idx := fi.iIcon;

  il := TImageList.Create(nil);

  try
    if SmallIcon then flags := SHGFI_SMALLICON else flags := SHGFI_LARGEICON;
    il.Handle := ShGetFileInfo('', 0, fi, SizeOf(fi), SHGFI_SYSICONINDEX or flags);
    il.GetIcon(idx, Icon);
  finally
    il.Free;
  end;
end;

La usaríamos, por ejemplo, así:

Código Delphi [-]
ExtractIcon('jpg', Image1.Picture.Icon);

o bien

Código Delphi [-]
ExtractIcon('jpg', Image1.Picture.Icon, true);

si queremos el icono pequeño.

// Saludos

[[maeyanes]]

Eh... Roman, viendo la cabecera de tu función:

Código Delphi [-]
procedure ExtractIcon(FileExt: String; Icon: TIcon; SmallIcon: Boolean = false);

Si haces la llamada:

Código Delphi [-]
ExtractIcon('jpg', Image1.Picture.Icon, false);

Te va a devolver un icono grande, me imagino que para el pequeño tendría que ser:

Código Delphi [-]
ExtractIcon('jpg', Image1.Picture.Icon, True);

Saludos...

P.D. Edité mi mensaje por que tuve un pequeño error de apreciación del cual me di cuenta después de enviado el mensaje...

[roman]

Je, je, claro que sí. Ya lo he corregido en el original.

// Saludos

[ElDuc]

Gracias a todos por vuetra ayuda.

Hepodido solucionar el problema.

Saludos.