在Delphi使用WinIo检测LPT状态的方法