Mirrored_Repos/remoteapptool
1
0
Fork 0
mirror of https://github.com/kimmknight/remoteapptool.git synced 2024-11-09 20:28:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixes Issue 18

Browse Source 
Fixes issue 18
  *  Issue 18 was caused by the file type association icon extraction.  If no file type associations were set up, the object was not defined which resulted in an error
  *  Fix was to check if the object exists prior to looking at values in it
This commit is contained in:
Mr. Brian Gale 2020-06-19 10:06:53 -06:00
parent f0062b7c07
commit bb9de629a1
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
remoteapp-tool/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' by using the '*' as shown below: ' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("5.4.0.0")> <Assembly: AssemblyVersion("5.4.0.18")>
<Assembly: AssemblyFileVersion("5.4.0.0")> <Assembly: AssemblyFileVersion("5.4.0.18")>

3
remoteapp-tool/RemoteAppCreateClientConnection.vb
View File

@ -224,11 +224,14 @@ Public Class RemoteAppCreateClientConnection
If ExtractToIco(RemoteApp.IconPath, RemoteApp.IconIndex, IconFilePath) = False Then If ExtractToIco(RemoteApp.IconPath, RemoteApp.IconIndex, IconFilePath) = False Then
MessageBox.Show("Icon could not be created the RemoteApp. RDP file will still be created.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) MessageBox.Show("Icon could not be created the RemoteApp. RDP file will still be created.", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If End If
' Check if there are file type associations before trying to work with the file type association icons
If Not (RemoteApp.FileTypeAssociations Is Nothing) Then
For Each FTA As RemoteAppLib.FileTypeAssociation In RemoteApp.FileTypeAssociations For Each FTA As RemoteAppLib.FileTypeAssociation In RemoteApp.FileTypeAssociations
Dim ProductFileName = VB.Left(RDPPath, RDPPath.Length - 4) Dim ProductFileName = VB.Left(RDPPath, RDPPath.Length - 4)
ExtractFTIcon(ProductFileName, FTA) ExtractFTIcon(ProductFileName, FTA)
Next Next
End If End If
End If
Me.Close() Me.Close()
Else Else
'!!!!!!! If it's an MSI '!!!!!!! If it's an MSI