zabpehely
/
rdpwrap
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 5 Wiki Activity

Installer: Allow to keep settings on uninstall (fix #106)

This commit is contained in:
binarymaster 2016-07-23 19:33:35 +03:00
parent 64e0987053
commit 11be8c6833
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src-installer/RDPWInst.dpr
View File

@ -1072,7 +1072,7 @@ begin
) then ) then
begin begin
Writeln('USAGE:'); 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('');
Writeln('-l display the license agreement'); Writeln('-l display the license agreement');
Writeln('-i install wrapper to Program Files folder (default)'); 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('-i -o online install mode (loads latest INI file)');
Writeln('-w get latest update for INI file'); Writeln('-w get latest update for INI file');
Writeln('-u uninstall wrapper'); Writeln('-u uninstall wrapper');
Writeln('-u -k uninstall wrapper and keep settings');
Writeln('-r force restart Terminal Services'); Writeln('-r force restart Terminal Services');
Exit; Exit;
end; end;
@ -1188,10 +1189,13 @@ begin
SvcStart(TermService); SvcStart(TermService);
Sleep(500); Sleep(500);
if ParamStr(2) <> '-k' then
begin
Writeln('[*] Configuring registry...'); Writeln('[*] Configuring registry...');
TSConfigRegistry(False); TSConfigRegistry(False);
Writeln('[*] Configuring firewall...'); Writeln('[*] Configuring firewall...');
TSConfigFirewall(False); TSConfigFirewall(False);
end;
if Arch = 64 then if Arch = 64 then
RevertWowRedirection; RevertWowRedirection;