mirror of
https://github.com/kimmknight/remoteapptool.git
synced 2024-11-21 21:17:20 +00:00
commit
597749d45d
@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("fbd55db5-06ea-4e43-92a4-6e96893013cc")>
|
||||
<Assembly: Guid("fbd55db5-06ea-4e43-92a4-6e96893013cc")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
@ -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,10 +224,13 @@ 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
|
||||
For Each FTA As RemoteAppLib.FileTypeAssociation In RemoteApp.FileTypeAssociations
|
||||
Dim ProductFileName = VB.Left(RDPPath, RDPPath.Length - 4)
|
||||
ExtractFTIcon(ProductFileName, FTA)
|
||||
Next
|
||||
' 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
|
||||
|
Loading…
Reference in New Issue
Block a user