diff options
author | Jim Yang <jimstar06@outlook.com> | 2018-04-15 12:51:57 +0300 |
---|---|---|
committer | Stanislav Motylkov <x86corez@gmail.com> | 2018-04-15 13:54:26 +0300 |
commit | 56915ccf5b5145e56f224da9e9e3dc9b0c7e09a6 (patch) | |
tree | 00bee9a2c586a48ecff5b825e79b6103efbfb2fb /src-installer | |
parent | a3cd8ca630190c890109940151290daafe4daf38 (diff) |
Allow UDP 3389 at firewall configuration
Diffstat (limited to 'src-installer')
-rw-r--r-- | src-installer/RDPWInst.dpr | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src-installer/RDPWInst.dpr b/src-installer/RDPWInst.dpr index 7894f3b..b6c2462 100644 --- a/src-installer/RDPWInst.dpr +++ b/src-installer/RDPWInst.dpr @@ -978,8 +978,10 @@ end; procedure TSConfigFirewall(Enable: Boolean); begin if Enable then - ExecWait('netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=tcp localport=3389 profile=any action=allow') - else + begin + ExecWait('netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=tcp localport=3389 profile=any action=allow'); + ExecWait('netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=udp localport=3389 profile=any action=allow'); + end else ExecWait('netsh advfirewall firewall delete rule name="Remote Desktop"'); end; |