From 11be8c683315b6cbf237106db3ddbc1388bffae2 Mon Sep 17 00:00:00 2001
From: binarymaster <x86corez@gmail.com>
Date: Sat, 23 Jul 2016 19:33:35 +0300
Subject: [PATCH] Installer: Allow to keep settings on uninstall (fix #106)

---
 src-installer/RDPWInst.dpr | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/src-installer/RDPWInst.dpr b/src-installer/RDPWInst.dpr
index 98125c9..497d4e1 100644
--- a/src-installer/RDPWInst.dpr
+++ b/src-installer/RDPWInst.dpr
@@ -1072,7 +1072,7 @@ begin
   ) then
   begin
     Writeln('USAGE:');
-    Writeln('RDPWInst.exe [-l|-i[-s][-o]|-w|-u|-r]');
+    Writeln('RDPWInst.exe [-l|-i[-s][-o]|-w|-u[-k]|-r]');
     Writeln('');
     Writeln('-l          display the license agreement');
     Writeln('-i          install wrapper to Program Files folder (default)');
@@ -1080,6 +1080,7 @@ begin
     Writeln('-i -o       online install mode (loads latest INI file)');
     Writeln('-w          get latest update for INI file');
     Writeln('-u          uninstall wrapper');
+    Writeln('-u -k       uninstall wrapper and keep settings');
     Writeln('-r          force restart Terminal Services');
     Exit;
   end;
@@ -1188,10 +1189,13 @@ begin
     SvcStart(TermService);
     Sleep(500);
 
-    Writeln('[*] Configuring registry...');
-    TSConfigRegistry(False);
-    Writeln('[*] Configuring firewall...');
-    TSConfigFirewall(False);
+    if ParamStr(2) <> '-k' then
+    begin
+      Writeln('[*] Configuring registry...');
+      TSConfigRegistry(False);
+      Writeln('[*] Configuring firewall...');
+      TSConfigFirewall(False);
+    end;
 
     if Arch = 64 then
       RevertWowRedirection;