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;