drawicon

Имея некий перечень исполняемых файлов, можно получить их иконки ,непример, так:(Form1.AutoRedraw = True и PictureEskiz(i).AutoRedraw = True)For i=1 to Fajlov PictureEskiz(i).Cls PictureEskiz(i).Visible = CBool(DrawIcon(PictureEskiz(i).hDC, 0, 0, ExtractIcon(App.hInstance, AdresFajla(i), 0))...