B4J Question Get icon from a file (PC and Mac Final solution)

You can confirm this yourself by settings up an account at vmWare (go here) and download vmWare v15 which is a really good Mac emulator. Then you can set it up with an El capitan vmware image(AMD) or Mojave (demands an Intel CPU). Search Youtube to find out how it's done depending which system you've got. The GetFileIcon code works on Windows but needs to be initialized on Mac. Please prove the final solution here once you have confirmed that it works on a Mac emulator or real hardware.

Click to expand...

From original post
ImageView1.SetImage(GetFileIcon("C:\Program Files (x86)\Anywhere Software\B4J", "B4J.exe"))

Click to expand...

Sub GetFileIcon(Dir As String, FileName As String) As Image
    Dim jo As JavaObject
    Dim JavaFile As JavaObject
    JavaFile.InitializeNewInstance("java.io.File", Array(File.Combine(Dir, FileName)))
    Dim icon As JavaObject = jo.InitializeStatic("sun.awt.shell.ShellFolder").RunMethodJO( _
     "getShellFolder", Array(JavaFile)).RunMethod("getIcon", Array(True))
    Return AwtImageToImage(icon)
End Sub

Private Sub AwtImageToImage(img As JavaObject) As Image
    Dim jo As JavaObject
    Return jo.InitializeStatic("javafx.embed.swing.SwingFXUtils").RunMethod("toFXImage", Array(img, Null))
End Sub