[Caroso]

Empezado por nlsgarcia

Caroso,

Esta es una variante basada en el código de los Msgs #3 y #4:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   Icon: TIcon;
   OpenDialog : TOpenDialog;

begin

   OpenDialog := TOpenDialog.Create(Self);
   Icon := TIcon.Create;

   if OpenDialog.Execute then
   try

      // Extrae el Primer Icon del Archivo Seleccionado
      Icon.Handle := ExtractIcon(Handle, PChar(OpenDialog.FileName), 0);
      Icon.SaveToFile(ExtractFilePath(Application.ExeName) + 'IconFile' + '.ico');

   finally

      Icon.Free;
      OpenDialog.Free;

   end;

end;

Espero sea útil

Nelson.

Muy bueno el codigo Nelson... muchas gracias me funciona de 10... y Muchas gracias a todos los demás por haber compartido sus conocimientos con los demas... un saludo y abrazo