[Сrack]

Они и так выдергиваются из списка доступных иконок. Размер при создании установлен (icon := TIcon.Create; icon.SetSize(16, 16)). »

У меня в CheckDevice.exe иконка 16x16 отличается рисунком от более крупных иконок, поэтому я сразу понял, почему иконки искажаются.
На Delphi пишете?

Что бы вытащить именно маленькую иконку, я делал так:

Код:

uses ShellApi;

Var
 icon:TIcon;
 SIC, LIC  : HIcon;
 OpPatch:PChar;
begin
  OpPatch:='E:\CHDevice\CHDevice\CheckDevice.exe';

  icon := TIcon.Create;
  icon.SetSize(16, 16);

  ExtractIconEx(OpPatch,0, LIC, SIC, 1);
  // SIC - это маленькая иконка 16х16
  icon.Handle:=SIC;
  Image1.Picture.Icon:=icon;
end;