Red de conocimiento informático - Material del sitio web - Cómo escribir y extraer el logotipo de ICO en un archivo exe en Delphi

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: