delphi 开启/关闭某个端口,该如何解决

delphi 开启/关闭某个端口
比如说我要关闭5252端口，通过delphi来做要怎么做呢？谢谢~~

------解决方案--------------------
网上有读端口号的函数，先找到，关闭。
多上网去找找。
------解决方案--------------------
有个办法,就是有使用windows的防火墙,添加项目,再设置是否启用
网上有例子
------解决方案--------------------
我记得以前有个注册表关闭端口的帖子找不到了，给你两个供参考吧
http://lingsen2004.blog.163.com/blog/static/29922820066221147310/
http://wenwen.soso.com/z/q20440107.htm