Visualizza wikitesto di 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   <Font color=gray>' ''Imposta la dimensione dell'icona da mostrare''</font>
 
 
 Public Sub Form_Open()
 
  Dim percorso As String
  Dim df As DesktopFile
   
  percorso = "<FONT Color=darkgreen>''/percorso/del/file/associato/all'applicazione''</font>"
  
  With df = DesktopFile.FromMime(DesktopMime.FromFile(percorso).Type)[0]
 <Font color=gray>' ''Viene mostrato in console anche il nome dell'applicazione associata al file''</font>
    Print .ProgramName
 <Font color=gray>' ''Viene mostrata in una "PictureBox" l'icona associata a tipo di file:''</font>
    PictureBox1.W = PIX
    PictureBox1.H = PIX
    PictureBox1.Image = .GetIcon(PIX)
  End With
  
 End