Config: Add HonorLegacySettings option

Author: binarymaster

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

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 @@   TMainForm = class(TForm)
     lsSuppVer: TLabel;
     cbHideUsers: TCheckBox;
     gbGeneral: TGroupBox;
+    cbCustomPrg: TCheckBox;
     procedure FormCreate(Sender: TObject);
     procedure cbAllowTSConnectionsClick(Sender: TObject);
     procedure seRDPPortChange(Sender: TObject);
@@ -373,6 +374,11 @@ procedure TMainForm.ReadSettings;
     cbSingleSessionPerUser.Checked := Reg.ReadBool('fSingleSessionPerUser');
   except
 
+  end;
+  try
+    cbCustomPrg.Checked := Reg.ReadBool('HonorLegacySettings');
+  except
+
   end;
   Reg.CloseKey;
 
@@ -431,6 +437,11 @@ procedure TMainForm.WriteSettings;
     Reg.WriteBool('fSingleSessionPerUser', cbSingleSessionPerUser.Checked);
   except
 
+  end;
+  try
+    Reg.WriteBool('HonorLegacySettings', cbCustomPrg.Checked);
+  except
+
   end;
   Reg.CloseKey;