¿Cómo escribir y extraer el ícono ICO en el archivo exe en Delphi?

Para extraer el ícono ICO en el archivo exe, generalmente puede usar la función ExtractIcon de WinAPI. El siguiente es el código de muestra: procedimiento?TForm1.RzBitBtn1Click(Sender:?TObject);

var?iCount: ?Entero;

beginif?OpenDialog1.Execute?thenbegin

Editar1.Text?:=?OpenDialog1.FileName;

iCount? :=?ExtractIcon (HInstance ,?PChar(OpenDialog1.FileName),? $FFFFFFFF);

if?Caption：=?Format('El archivo ?EXE? actual **** contiene ? d? un recurso de? ICON? ', [iCount]); >

begin Label2 .Caption: =?El archivo EXE actual no contiene un recurso ICON';

end;

end;

Captura de pantalla del efecto de tiempo de ejecución:

end;