Cómo escribir y extraer el logotipo de ICO en un archivo exe en Delphi
Para extraer el ícono ICO de un archivo exe, generalmente puede usar la función ExtractIcon de WinAPI. El siguiente es un código de muestra:
¿Programa? TForm1. RzBitBtn1Click(remitente:?al objeto);
var? iCount:? Entero;
Inicio
¿Si? Abrir Diálogo1. ¿implementar? Luego
Iniciar
Editar1. ¿Palabra? :=?OpenDialog1. Nombre del archivo;
iCount? :=?ExtractIcon(HInstance,PChar(OpenDialog1.FileName),?$FFFFFFFF);
¿Si? ¿iCount y gt0? Luego
Iniciar
Etiqueta 2. ¿título? :=?Format('Current?EXE?* * *El archivo contiene?%d?Answer?Icon?Resource.,[iCount]);
Imagen1. imagen. icono. ¿Manejar? :=?ExtractIcon(HInstance, PChar(OpenDialog1.Filename), 0);
¿Fin? Otro
Inicio
Etiqueta 2. ¿título? :=?¿Actualmente? ¿EXE? ¿No está incluido en el archivo? ¿icono? recurso. ;
Fin;
Fin;
Fin; Captura de pantalla del efecto de ejecución: