[SOLVED] Extracting icon of associated program

[ForeverNoob]

Hello,

How can my program find the icon associated with a specific mime-type?

TIA

[BruceSteers]

Look at gb.desktop and DesktopMime.class https://gambaswiki.org/wiki/comp/gb.desktop/desktopmime

This will get the image from either a file name or from a mime type.
So you could use either...

hImage = GetMimeIcon("/path/to/the/file.html")
or
hImage = GetMimeIcon("text/html")

Public Sub GetMimeIcon(TypeOrFile As String, Optional Size As Integer = 32) As Image

  Dim hMime As DesktopMime 

  If Exists(TypeOrFile) Then ' if it's a file then get it's mimetype
    hMime = DesktopMime.FromFile(TypeOrFile)
  Else
    hMime = = DesktopMime[TypeOrFile]
  Endif

If not hMime Then Error.Raise("mime type not found for " & TypeOrFile)

  Dim hImage as Image = hMime.GetIcon(Size)
  Return hImage

End

Or try Desktop.GetFileIcon https://gambaswiki.org/wiki/comp/gb.des ... etfileicon

Dim hPic As Picture = Desktop.GetFileIcon(Path, iSize, True)

component gb.desktop must be added to project in project properties

[ForeverNoob]

Dim hPic As Picture = Desktop.GetFileIcon(Path, iSize, True)

component gb.desktop must be added to project in project properties

That works fine. Thanks.

[BruceSteers]

you're welcome