Changes for issue #142

GBM/Forms/frmMain.vb

@@ -581,6 +581,8 @@ Public Class frmMain
         Dim sFileName As String = String.Empty
         Dim sFileVersion As String = String.Empty
         Dim sCompanyName As String = String.Empty
+        Dim ic As Icon
+        Dim sIconFile As String
 
         'Wipe Game Info
         lblStatus1.Text = String.Empty
@@ -589,14 +591,17 @@ Public Class frmMain
 
         'Get Process Information
         Try
-            Dim ic As Icon = System.Drawing.Icon.ExtractAssociatedIcon(oProcess.FoundProcess.MainModule.FileName)
+            'Grab icon from the executable and save a copy
-            pbIcon.Image = ic.ToBitmap
+            ic = System.Drawing.Icon.ExtractAssociatedIcon(oProcess.FoundProcess.MainModule.FileName)
+            sIconFile = mgrPath.SettingsRoot & Path.DirectorySeparatorChar & oProcess.GameInfo.ID & ".bmp"
+            ic.ToBitmap.Save(sIconFile)
+            ic.Dispose()
 
             'Set Game Details
+            pbIcon.Image = Image.FromFile(sIconFile)
             sFileName = oProcess.FoundProcess.MainModule.FileName
             sFileVersion = oProcess.FoundProcess.MainModule.FileVersionInfo.FileVersion
             sCompanyName = oProcess.FoundProcess.MainModule.FileVersionInfo.CompanyName
-
         Catch ex As Exception
             pbIcon.Image = Icon_Unknown
         End Try

GBM/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.1.3.*")>
+<Assembly: AssemblyVersion("1.1.4.*")>
-<Assembly: AssemblyFileVersion("1.1.3.0")>
+<Assembly: AssemblyFileVersion("1.1.4.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("en")>