可以检测本地端口是否被占用，附带delphi的源码。