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;