Estrarre l'icona di un programma associato ad un file

Per estrarre l'icona associata ad una applicazione associata ad un tipo di file, si potranno utilizzare le Classi DesktopMime e DesktopFile del componente gb.desktop .

Nel semplice esempio seguente attiviamo il componente gb.desktop e poniamo sul Form dell'applicazione una PictureBox, nella quale sarà mostrata l'icona dell'applicazione associata al tipo di file individuato:

Public Sub Form_Open()

 Dim percorso As String
 Dim df As DesktopFile
 Dim i As Image

 percorso = "/percorso/del/file/associato/all'applicazione"
 
 With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
   Print .ProgramName   ' Viene mostrato in console anche il nome dell'applicazione associata al file
   i = .GetIcon(48)
   PictureBox1.Picture = i.Picture
 End With
 
End