Имея некий перечень исполняемых файлов, можно получить их иконки ,непример, так:
(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))...