From 63bf27f0a9f00f3d24f5e32dfbc719cda5f2dcc3 Mon Sep 17 00:00:00 2001
From: Stas'M <x86corez@gmail.com>
Date: Wed, 27 Dec 2017 21:28:44 +0300
Subject: [PATCH] Config: Add HonorLegacySettings option
---
src-rdpconfig/MainUnit.dfm | 9 +++++++++
src-rdpconfig/MainUnit.pas | 13 ++++++++++++-
2 files changed, 21 insertions(+), 1 deletion(-)
diff --git a/src-rdpconfig/MainUnit.dfm b/src-rdpconfig/MainUnit.dfm
index 7361f19..c077af1 100644
--- a/src-rdpconfig/MainUnit.dfm
+++ b/src-rdpconfig/MainUnit.dfm
@@ -222,6 +222,15 @@ object MainForm: TMainForm
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
diff --git a/src-rdpconfig/MainUnit.pas b/src-rdpconfig/MainUnit.pas
index c6841d0..48aa051 100644
--- a/src-rdpconfig/MainUnit.pas
+++ b/src-rdpconfig/MainUnit.pas
@@ -1,5 +1,5 @@
{
- Copyright 2016 Stas'M Corp.
+ Copyright 2017 Stas'M Corp.
Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
@@ -49,6 +49,7 @@ type
lsSuppVer: TLabel;
cbHideUsers: TCheckBox;
gbGeneral: TGroupBox;
+ cbCustomPrg: TCheckBox;
procedure FormCreate(Sender: TObject);
procedure cbAllowTSConnectionsClick(Sender: TObject);
procedure seRDPPortChange(Sender: TObject);
@@ -373,6 +374,11 @@ begin
cbSingleSessionPerUser.Checked := Reg.ReadBool('fSingleSessionPerUser');
except
+ end;
+ try
+ cbCustomPrg.Checked := Reg.ReadBool('HonorLegacySettings');
+ except
+
end;
Reg.CloseKey;
@@ -431,6 +437,11 @@ begin
Reg.WriteBool('fSingleSessionPerUser', cbSingleSessionPerUser.Checked);
except
+ end;
+ try
+ Reg.WriteBool('HonorLegacySettings', cbCustomPrg.Checked);
+ except
+
end;
Reg.CloseKey;