Un saludo grande a todos ustedes...
Tengo una duda desde hace tiempo que no puedo llegar a solucionar.
¿Cómo puedo guardar correctamente un icono desde mi aplicación?
¿Parece sencillo, no ? ¿Ya estoy oyendo (SaveToFile )?
Empezaré por el principio.... Tengo una funcion para extraer el "Icono" de cualquier programa en una Timagen:
(Sacada desde el ClubDelphi)
Primero en mi formulario agrego una Timagen y luego un boton.
En el boton escribo:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
Icono: TIcon;
begin
Icono := TIcon.Create;
Icono.Handle := ExtractIcon(hInstance,'calc.exe',0);
Image1.Picture:= TPicture(Icono);
Image1.Picture.SaveToFile('boss.ico');
Icono.Free;
end;
Pero si lo prueban, verán que al guardar la imagen del icono, esta se guarda como...... En blanco y negro, casi sin color.
Así que mi pregunta es ¿cómo guardar este icono extraído en una Timagen con una buena resolución gráfica?
Gracias por su tiempo queridos amigos del ClubDelphi