http://blog.csdn.net/nerdy/article/details/8969189 [delphi]运行cmd命令,并取得输出字符 标签: delphiCMD命令 2013-05-24 11:36 1529人阅读 评论(0) 收藏 举报 分类: delphi实例(2) procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastEr
1. 参考网址:http://www.cnblogs.com/cnarg/archive/2011/02/20/1959292.html function TfrmMain.ExecDosCmd :boolean; var sa :SECURITY_ATTRIBUTES; si :STARTUPINFO; pi :PROCESS_INFORMATION; pcDosCmd :PChar; hRead,hWrite :THandle; cCommand :..] of char; //长达1k的命
开启防火墙端口 netsh firewall set portopening all 3389 RDP_Rule enable (TCP/UDP) #配置RPC高位端口段Netsh int ipv4 set dynamicportrange protocol=tcp startport=50000 numberofports=10000Netsh int ipv4 show dynamicportrange protocol=tcp #禁用高级安全Windows防火墙netsh advfirew
(1)恢复初始防火墙设置 netsh advfirewall reset(2)关闭防火墙 netsh advfirewall set allprofiles state off(3)启用桌面防火墙 netsh advfirewall set allprofiles state on(4)设置默认输入和输出策略 netsh advfirewall set allprofiles firewallpolicy allowinbound,allowoutbound 以上是设置为允许,如果设置为拒绝使用