From bc1630a12261827ea56bf94088f5474570c8a29a Mon Sep 17 00:00:00 2001 From: MikeMaximus Date: Sun, 1 Jul 2018 08:39:27 -0600 Subject: [PATCH] Changes for issue #141 --- GBM/Forms/frmMain.vb | 33 +++++++++++++++++++-------------- 1 file changed, 19 insertions(+), 14 deletions(-) diff --git a/GBM/Forms/frmMain.vb b/GBM/Forms/frmMain.vb index cd5c279..47bff44 100644 --- a/GBM/Forms/frmMain.vb +++ b/GBM/Forms/frmMain.vb @@ -587,6 +587,20 @@ Public Class frmMain lblStatus2.Text = String.Empty lblStatus3.Text = String.Empty + 'Get Process Information + Try + Dim ic As Icon = System.Drawing.Icon.ExtractAssociatedIcon(oProcess.FoundProcess.MainModule.FileName) + pbIcon.Image = ic.ToBitmap + + 'Set Game Details + 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 + 'Get Game Details If bMulti Then bAllowIcon = False @@ -595,25 +609,16 @@ Public Class frmMain pbTime.Visible = False lblTimeSpent.Visible = False pbIcon.Image = Icon_Unknown - lblStatus1.Text = frmMain_NoDetails + If sFileName = String.Empty Then + lblStatus1.Text = frmMain_NoDetails + Else + lblStatus1.Text = sFileName + End If Else bAllowIcon = True bAllowDetails = True lblGameTitle.Text = oProcess.GameInfo.Name - Try - Dim ic As Icon = System.Drawing.Icon.ExtractAssociatedIcon(oProcess.FoundProcess.MainModule.FileName) - pbIcon.Image = ic.ToBitmap - - 'Set Game Details - 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 - 'Check for a custom icon & details If File.Exists(oProcess.GameInfo.Icon) Then pbIcon.Image = Image.FromFile(oProcess.GameInfo.Icon)