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
  
 percorso = "/percorso/del/file/associato/all'applicazione"
 
 With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
' Viene mostrato in console anche il nome dell'applicazione associata al file
   Print .ProgramName
' Viene mostrata in una "PictureBox" l'icona associata a tipo di file:
   PictureBox1.Picture = .GetIcon(48)
 End With
 
End