Código Delphi [-] var TheIcon: TIcon; begin TheIcon := TIcon.Create; TheIcon.Handle := ExtractIcon(hInstance,'C:\WINDOWS\NOTEPAD.EXE',0); { .... hacer algo con el Icono } TheIcon.Free; end;
var TheIcon: TIcon; begin TheIcon := TIcon.Create; TheIcon.Handle := ExtractIcon(hInstance,'C:\WINDOWS\NOTEPAD.EXE',0); { .... hacer algo con el Icono } TheIcon.Free; end;