Trabajando con TImageList

[SaraTorres]

Hola, buenas noches
Me gustaría que por favor me compartieran el código de lo siguiente.
Me he vuelto loca y no encuentro algo que funcione, llevo todo un día en eso :/



- Cargar un archivo .ico dentro de un TImageList
- Extraer el ícono asociado de archivos .txt PERO luego guardar ese ícono en archivo .ico


Muchísimas gracias, por favor.

[Casimiro Noteví]

Los .txt no tienen ningún icono, por lo que no se les puede extraer nada.

[SaraTorres]

Empezado por Casimiro Notevi

Los .txt no tienen ningún icono, por lo que no se les puede extraer nada.

No importa, con cualquier otro archivo, lo que quiero es que el código funcione :/

[ecfisa]

Hola.

- Cargar un archivo .ico dentro de un TImageList

Código Delphi [-]
procedure AddIconToImageList(aImageList: TImageList; const IconFileName: string);
var
  ico: TIcon;
  bmp: TBitmap;
begin
  if not FileExists(IconFileName) then
    raise Exception.Create('Archivo inexistente');

  if UpperCase(ExtractFileExt(IconFilename)) <> '.ICO' then
    raise Exception.Create('Tipo incorrecto de archivo');

  ico := TIcon.Create;
  try
    ico.LoadFromFile(IconFileName);
    bmp := TBitmap.Create;
    try
      bmp.PixelFormat := pf32bit;
      bmp.Height      := ico.Height;
      bmp.Width       := ico.Width;
      bmp.Canvas.Draw(0, 0, ico);
      aImageList.Add(bmp, nil);
    finally
      bmp.Free;
    end;
  finally
    ico.Free;
  end;
end;

- Extraer el ícono asociado de archivos .txt PERO luego guardar ese ícono en archivo .ico

Revisa este hilo: Extraer icono de archivo .exe


Saludos

[[ElDioni]]

No se si será esto lo que quieres pero echa un vistazo por si acaso.


https://www.clubdelphi.com/foros/showthread.php?t=83915


Saludos.