mirror of
https://github.com/kimmknight/remoteapptool.git
synced 2024-11-21 21:17:20 +00:00
Fixes Issue 18
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:
parent
f0062b7c07
commit
bb9de629a1
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("5.4.0.0")>
|
||||
<Assembly: AssemblyFileVersion("5.4.0.0")>
|
||||
<Assembly: AssemblyVersion("5.4.0.18")>
|
||||
<Assembly: AssemblyFileVersion("5.4.0.18")>
|
||||
|
@ -224,11 +224,14 @@ Public Class RemoteAppCreateClientConnection
|
||||
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)
|
||||
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
|
||||
Dim ProductFileName = VB.Left(RDPPath, RDPPath.Length - 4)
|
||||
ExtractFTIcon(ProductFileName, FTA)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
Me.Close()
|
||||
Else
|
||||
'!!!!!!! If it's an MSI
|
||||
|
Loading…
Reference in New Issue
Block a user