Iconos de archivos conocidos

[[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...