[assch]

Большое всем спасибо, жалко только что функция _FileExtractIcon делает это хорошо, и код довольно компактный ,только иконки на выходе получаются на чёрном фоне .
Всё равно всем большое спасибо за информацию .
Старожилу beve особенно за подарок.
Уважаемому Creat0R за интересный код , попробую понять почему получаются такие иконки.