diff --git a/src-rdpconfig/LicenseUnit.dcu b/src-rdpconfig/LicenseUnit.dcu
new file mode 100644
index 00000000..06f978df
Binary files /dev/null and b/src-rdpconfig/LicenseUnit.dcu differ
diff --git a/src-rdpconfig/MainUnit.dcu b/src-rdpconfig/MainUnit.dcu
new file mode 100644
index 00000000..1e659dee
Binary files /dev/null and b/src-rdpconfig/MainUnit.dcu differ
diff --git a/src-rdpconfig/MainUnit.dfm b/src-rdpconfig/MainUnit.dfm
index c077af1a..e6a91db1 100644
--- a/src-rdpconfig/MainUnit.dfm
+++ b/src-rdpconfig/MainUnit.dfm
@@ -1,241 +1,276 @@
-object MainForm: TMainForm
- Left = 0
- Top = 0
- BorderStyle = bsDialog
- Caption = 'RDP Wrapper Configuration'
- ClientHeight = 314
- ClientWidth = 404
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object bOK: TButton
- Left = 40
- Top = 281
- Width = 75
- Height = 25
- Caption = 'OK'
- ModalResult = 1
- TabOrder = 4
- OnClick = bOKClick
- end
- object bCancel: TButton
- Left = 121
- Top = 281
- Width = 75
- Height = 25
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 5
- OnClick = bCancelClick
- end
- object bApply: TButton
- Left = 202
- Top = 281
- Width = 75
- Height = 25
- Caption = 'Apply'
- Enabled = False
- TabOrder = 6
- OnClick = bApplyClick
- end
- object rgNLA: TRadioGroup
- Left = 202
- Top = 89
- Width = 194
- Height = 73
- Caption = 'Authentication Mode'
- Items.Strings = (
- 'GUI Authentication Only'
- 'Default RDP Authentication'
- 'Network Level Authentication')
- TabOrder = 2
- OnClick = cbAllowTSConnectionsClick
- end
- object rgShadow: TRadioGroup
- Left = 202
- Top = 168
- Width = 194
- Height = 105
- Caption = 'Session Shadowing Mode'
- Items.Strings = (
- 'Disable Shadowing'
- 'Full access with user'#39's permission'
- 'Full access without permission'
- 'View only with user'#39's permission'
- 'View only without permission')
- TabOrder = 3
- OnClick = cbAllowTSConnectionsClick
- end
- object bLicense: TButton
- Left = 283
- Top = 281
- Width = 87
- Height = 25
- Caption = 'View license...'
- TabOrder = 7
- OnClick = bLicenseClick
- end
- object gbDiag: TGroupBox
- Left = 8
- Top = 6
- Width = 388
- Height = 77
- Caption = 'Diagnostics'
- TabOrder = 0
- object lListener: TLabel
- Left = 11
- Top = 55
- Width = 70
- Height = 13
- Caption = 'Listener state:'
- end
- object lService: TLabel
- Left = 11
- Top = 36
- Width = 67
- Height = 13
- Caption = 'Service state:'
- end
- object lsListener: TLabel
- Left = 91
- Top = 55
- Width = 44
- Height = 13
- Caption = 'Unknown'
- end
- object lsService: TLabel
- Left = 91
- Top = 36
- Width = 44
- Height = 13
- Caption = 'Unknown'
- end
- object lsTSVer: TLabel
- Left = 226
- Top = 36
- Width = 44
- Height = 13
- Caption = 'Unknown'
- end
- object lsWrapper: TLabel
- Left = 91
- Top = 17
- Width = 44
- Height = 13
- Caption = 'Unknown'
- end
- object lsWrapVer: TLabel
- Left = 226
- Top = 17
- Width = 44
- Height = 13
- Caption = 'Unknown'
- end
- object lTSVer: TLabel
- Left = 202
- Top = 36
- Width = 20
- Height = 13
- Caption = 'ver.'
- end
- object lWrapper: TLabel
- Left = 11
- Top = 17
- Width = 74
- Height = 13
- Caption = 'Wrapper state:'
- end
- object lWrapVer: TLabel
- Left = 202
- Top = 17
- Width = 20
- Height = 13
- Caption = 'ver.'
- end
- object lsSuppVer: TLabel
- Left = 202
- Top = 55
- Width = 70
- Height = 13
- Caption = '[support level]'
- end
- end
- object gbGeneral: TGroupBox
- Left = 8
- Top = 89
- Width = 188
- Height = 184
- Caption = 'General Settings'
- TabOrder = 1
- object lRDPPort: TLabel
- Left = 8
- Top = 44
- Width = 47
- Height = 13
- Caption = 'RDP port:'
- end
- object cbAllowTSConnections: TCheckBox
- Left = 8
- Top = 18
- Width = 132
- Height = 17
- Caption = 'Enable Remote Desktop'
- TabOrder = 0
- OnClick = cbAllowTSConnectionsClick
- end
- object cbSingleSessionPerUser: TCheckBox
- Left = 8
- Top = 69
- Width = 129
- Height = 17
- Caption = 'Single session per user'
- TabOrder = 2
- OnClick = cbAllowTSConnectionsClick
- end
- object cbHideUsers: TCheckBox
- Left = 8
- Top = 92
- Width = 149
- Height = 17
- Caption = 'Hide users on logon screen'
- TabOrder = 3
- OnClick = cbAllowTSConnectionsClick
- end
- object seRDPPort: TSpinEdit
- Left = 61
- Top = 41
- Width = 62
- Height = 22
- MaxValue = 65535
- MinValue = 0
- TabOrder = 1
- Value = 0
- OnChange = seRDPPortChange
- end
- object cbCustomPrg: TCheckBox
- Left = 8
- Top = 115
- Width = 169
- Height = 17
- Caption = 'Allow to start custom programs'
- TabOrder = 4
- OnClick = cbAllowTSConnectionsClick
- end
- end
- object Timer: TTimer
- Interval = 250
- OnTimer = TimerTimer
- Left = 352
- Top = 27
- end
-end
+object MainForm: TMainForm
+ Left = 0
+ Top = 0
+ BorderStyle = bsDialog
+ Caption = 'RDP Wrapper Configuration utility by sebaxakerhtc'
+ ClientHeight = 314
+ ClientWidth = 404
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ Position = poDesktopCenter
+ OnCloseQuery = FormCloseQuery
+ OnCreate = FormCreate
+ OnDestroy = FormDestroy
+ PixelsPerInch = 96
+ TextHeight = 13
+ object bOK: TButton
+ Left = 40
+ Top = 281
+ Width = 75
+ Height = 25
+ Caption = 'OK'
+ ModalResult = 1
+ TabOrder = 4
+ OnClick = bOKClick
+ end
+ object bCancel: TButton
+ Left = 121
+ Top = 281
+ Width = 75
+ Height = 25
+ Caption = 'Cancel'
+ ModalResult = 2
+ TabOrder = 5
+ OnClick = bCancelClick
+ end
+ object bApply: TButton
+ Left = 202
+ Top = 281
+ Width = 75
+ Height = 25
+ Caption = 'Apply'
+ Enabled = False
+ TabOrder = 6
+ OnClick = bApplyClick
+ end
+ object rgNLA: TRadioGroup
+ Left = 202
+ Top = 89
+ Width = 194
+ Height = 73
+ Caption = 'Authentication Mode'
+ Items.Strings = (
+ 'GUI Authentication Only'
+ 'Default RDP Authentication'
+ 'Network Level Authentication')
+ TabOrder = 2
+ OnClick = cbAllowTSConnectionsClick
+ end
+ object rgShadow: TRadioGroup
+ Left = 202
+ Top = 168
+ Width = 194
+ Height = 105
+ Caption = 'Session Shadowing Mode'
+ Items.Strings = (
+ 'Disable Shadowing'
+ 'Full access with user'#39's permission'
+ 'Full access without permission'
+ 'View only with user'#39's permission'
+ 'View only without permission')
+ TabOrder = 3
+ OnClick = cbAllowTSConnectionsClick
+ end
+ object bLicense: TButton
+ Left = 283
+ Top = 281
+ Width = 87
+ Height = 25
+ Caption = 'View license...'
+ TabOrder = 7
+ OnClick = bLicenseClick
+ end
+ object gbDiag: TGroupBox
+ Left = 8
+ Top = 6
+ Width = 388
+ Height = 77
+ Caption = 'Diagnostics'
+ TabOrder = 0
+ object lListener: TLabel
+ Left = 11
+ Top = 55
+ Width = 70
+ Height = 13
+ Caption = 'Listener state:'
+ end
+ object lService: TLabel
+ Left = 11
+ Top = 36
+ Width = 67
+ Height = 13
+ Caption = 'Service state:'
+ end
+ object lsListener: TLabel
+ Left = 91
+ Top = 55
+ Width = 52
+ Height = 13
+ Caption = 'Unknown'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object lsService: TLabel
+ Left = 91
+ Top = 36
+ Width = 52
+ Height = 13
+ Caption = 'Unknown'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object lsTSVer: TLabel
+ Left = 226
+ Top = 36
+ Width = 52
+ Height = 13
+ Caption = 'Unknown'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object lsWrapper: TLabel
+ Left = 91
+ Top = 17
+ Width = 52
+ Height = 13
+ Caption = 'Unknown'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object lsWrapVer: TLabel
+ Left = 226
+ Top = 17
+ Width = 52
+ Height = 13
+ Caption = 'Unknown'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ object lTSVer: TLabel
+ Left = 202
+ Top = 36
+ Width = 20
+ Height = 13
+ Caption = 'ver.'
+ end
+ object lWrapper: TLabel
+ Left = 11
+ Top = 17
+ Width = 74
+ Height = 13
+ Caption = 'Wrapper state:'
+ end
+ object lWrapVer: TLabel
+ Left = 202
+ Top = 17
+ Width = 20
+ Height = 13
+ Caption = 'ver.'
+ end
+ object lsSuppVer: TLabel
+ Left = 202
+ Top = 55
+ Width = 84
+ Height = 13
+ Caption = '[support level]'
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = [fsBold]
+ ParentFont = False
+ end
+ end
+ object gbGeneral: TGroupBox
+ Left = 8
+ Top = 89
+ Width = 188
+ Height = 184
+ Caption = 'General Settings'
+ TabOrder = 1
+ object lRDPPort: TLabel
+ Left = 8
+ Top = 44
+ Width = 47
+ Height = 13
+ Caption = 'RDP port:'
+ end
+ object cbAllowTSConnections: TCheckBox
+ Left = 8
+ Top = 18
+ Width = 132
+ Height = 17
+ Caption = 'Enable Remote Desktop'
+ TabOrder = 0
+ OnClick = cbAllowTSConnectionsClick
+ end
+ object cbSingleSessionPerUser: TCheckBox
+ Left = 8
+ Top = 69
+ Width = 129
+ Height = 17
+ Caption = 'Single session per user'
+ TabOrder = 2
+ OnClick = cbAllowTSConnectionsClick
+ end
+ object cbHideUsers: TCheckBox
+ Left = 8
+ Top = 92
+ Width = 149
+ Height = 17
+ Caption = 'Hide users on logon screen'
+ TabOrder = 3
+ OnClick = cbAllowTSConnectionsClick
+ end
+ object seRDPPort: TSpinEdit
+ Left = 61
+ Top = 41
+ Width = 62
+ Height = 22
+ MaxValue = 65535
+ MinValue = 0
+ TabOrder = 1
+ Value = 0
+ OnChange = seRDPPortChange
+ end
+ object cbCustomPrg: TCheckBox
+ Left = 8
+ Top = 115
+ Width = 169
+ Height = 17
+ Caption = 'Allow unlisted RemoteApps'
+ TabOrder = 4
+ OnClick = cbAllowTSConnectionsClick
+ end
+ end
+ object Timer: TTimer
+ Interval = 250
+ OnTimer = TimerTimer
+ Left = 352
+ Top = 27
+ end
+end
diff --git a/src-rdpconfig/RDPConf.dproj b/src-rdpconfig/RDPConf.dproj
index aa9ab965..d7e74804 100644
--- a/src-rdpconfig/RDPConf.dproj
+++ b/src-rdpconfig/RDPConf.dproj
@@ -1,111 +1,177 @@
-
-
- {A7CB4C30-85F5-4D96-B510-6F0CDCF7C2DA}
- 12.0
- RDPConf.dpr
- Debug
- DCC32
-
-
- true
-
-
- true
- Base
- true
-
-
- true
- Base
- true
-
-
- ..\bin\
- WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;$(DCC_UnitAlias)
- ..\bin\RDPConf.exe
- 00400000
- x86
-
-
- false
- RELEASE;$(DCC_Define)
- 0
- false
-
-
- DEBUG;$(DCC_Define)
-
-
-
- MainSource
-
-
-
-
-
-
-
-
- Base
-
-
- Cfg_1
- Base
-
-
- Cfg_2
- Base
-
-
-
-
- Delphi.Personality.12
-
-
-
-
-
- False
- True
- False
-
-
- False
- False
- 1
- 0
- 0
- 0
- False
- False
- False
- False
- False
- 1033
- 1252
-
-
- Stas'M Corp.
- RDP Configuration Program
- 1.0.0.0
- RDPConf
- Copyright © Stas'M Corp. 2014
- Stas'M Corp.
- RDPConf.exe
- RDP Host Support
- 1.4.0.0
- http://stascorp.com
-
-
- Embarcadero C++Builder Office 2000 Servers Package
- Embarcadero C++Builder Office XP Servers Package
- Microsoft Office 2000 Sample Automation Server Wrapper Components
- Microsoft Office XP Sample Automation Server Wrapper Components
-
-
-
- 12
-
-
+
+
+ {A7CB4C30-85F5-4D96-B510-6F0CDCF7C2DA}
+ 19.3
+ RDPConf.dpr
+ Debug
+ DCC32
+ VCL
+ True
+ Win32
+ 1
+ Application
+
+
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_1
+ true
+ true
+
+
+ true
+ Base
+ true
+
+
+ true
+ Cfg_2
+ true
+ true
+
+
+ ..\bin\
+ ..\bin\RDPConf.exe
+ 00400000
+ x86
+ RDPConf
+ Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;System.Win;$(DCC_Namespace)
+ 1033
+ CompanyName=Stas'M Corp.;FileDescription=RDP Configuration Program;FileVersion=1.0.0.0;InternalName=RDPConf;LegalCopyright=Copyright © Stas'M Corp. 2014;LegalTrademarks=Stas'M Corp.;OriginalFilename=RDPConf.exe;ProductName=RDP Host Support;ProductVersion=1.4.0.0;Comments=http://stascorp.com
+
+
+ Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)
+ Debug
+ true
+ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
+ 1033
+ $(BDS)\bin\default_app.manifest
+ RDPConf_Icon.ico
+ true
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
+
+
+ $(BDS)\bin\default_app.manifest
+ RDPConf_Icon.ico
+ true
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png
+ $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png
+
+
+ false
+ RELEASE;$(DCC_Define)
+ 0
+ 0
+
+
+ true
+ PerMonitorV2
+
+
+ DEBUG;$(DCC_Define)
+
+
+ true
+ PerMonitorV2
+ true
+ 7
+ 4
+ CompanyName=Thanks to Stas'M Corp for this project;FileDescription=RDP Configuration utility by sebaxakerhtc;FileVersion=1.7.4.0;InternalName=RDP Configuration utility by sebaxakerhtc;LegalCopyright=sebaxakerhtc;LegalTrademarks=Stas'M Corp 2014;OriginalFilename=RDP Configuration utility by sebaxakerhtc;ProductName=$(MSBuildProjectName);ProductVersion=1.7.4.0;Comments=https://sebaxakerhtc.github.io;ProgramID=com.embarcadero.$(MSBuildProjectName)
+
+
+
+ MainSource
+
+
+
+
+
+
+
+
+ Base
+
+
+ Cfg_1
+ Base
+
+
+ Cfg_2
+ Base
+
+
+
+
+ Delphi.Personality.12
+
+
+
+
+ RDPConf.dpr
+
+
+ False
+ True
+ False
+
+
+ False
+ False
+ 1
+ 0
+ 0
+ 0
+ False
+ False
+ False
+ False
+ False
+ 1033
+ 1252
+
+
+ Stas'M Corp.
+ RDP Configuration Program
+ 1.0.0.0
+ RDPConf
+ Copyright © Stas'M Corp. 2014
+ Stas'M Corp.
+ RDPConf.exe
+ RDP Host Support
+ 1.4.0.0
+ http://stascorp.com
+
+
+ Embarcadero C++Builder Office 2000 Servers Package
+ Embarcadero C++Builder Office XP Servers Package
+ Microsoft Office 2000 Sample Automation Server Wrapper Components
+ Microsoft Office XP Sample Automation Server Wrapper Components
+
+
+
+ True
+ False
+
+
+ 12
+
+
+
diff --git a/src-rdpconfig/RDPConf.dproj.local b/src-rdpconfig/RDPConf.dproj.local
new file mode 100644
index 00000000..d576f039
--- /dev/null
+++ b/src-rdpconfig/RDPConf.dproj.local
@@ -0,0 +1,2 @@
+
+
diff --git a/src-rdpconfig/RDPConf.identcache b/src-rdpconfig/RDPConf.identcache
new file mode 100644
index 00000000..33dfb165
Binary files /dev/null and b/src-rdpconfig/RDPConf.identcache differ
diff --git a/src-rdpconfig/RDPConf.res b/src-rdpconfig/RDPConf.res
index f987dd94..08695ef3 100644
Binary files a/src-rdpconfig/RDPConf.res and b/src-rdpconfig/RDPConf.res differ
diff --git a/src-rdpconfig/RDPConf_Icon.ico b/src-rdpconfig/RDPConf_Icon.ico
new file mode 100644
index 00000000..05a7b71c
Binary files /dev/null and b/src-rdpconfig/RDPConf_Icon.ico differ
diff --git a/src-rdpconfig/resource.res b/src-rdpconfig/resource.res
index 68f82f22..02026cf6 100644
Binary files a/src-rdpconfig/resource.res and b/src-rdpconfig/resource.res differ