Estrarre l'icona di un programma associato ad un file

Per estrarre l'icona associata a una applicazione associata a 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:

Private Const PIX As Integer = 48   ' Imposta la dimensione dell'icona da mostrare


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.W = PIX
   PictureBox1.H = PIX
   PictureBox1.Image = .GetIcon(PIX)
 End With
 
End