Делаю на Delphi:

ExtractIconEx(cFile, IconIndex, pTheLargeIcon, pTheSmallIcon, 1);
TheLargeIcon.Handle := pTheLargeIcon^;
TheSmallIcon.Handle := pTheSmallIcon^;
TheSmallIcon.SaveToFile('c:\small.ico');
TheLargeIcon.SaveToFile('c:\large.ico');

при этом 256-цветные иконки становятся 16-цветными
Кто подскажет, где собака порылась