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 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