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 - - -
MainForm
-
- -
LicenseForm
-
- - 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 - - - - 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 + + +
MainForm
+
+ +
LicenseForm
+
+ + 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