delphi 运用两种方法读取电脑的所有串口号

测试通过，运行两种方法读取电脑的所有串口号

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        434  2016-06-21 15:32  两种方法，读取电脑的所有串口号\Project1.cfg

     文件       2014  2016-06-21 15:32  两种方法，读取电脑的所有串口号\Project1.dof

     文件        188  2016-06-21 15:32  两种方法，读取电脑的所有串口号\Project1.dpr

     文件     406528  2016-06-22 09:33  两种方法，读取电脑的所有串口号\Project1.exe

     文件        876  2016-06-21 14:55  两种方法，读取电脑的所有串口号\Project1.res

     文件       5843  2016-06-22 09:33  两种方法，读取电脑的所有串口号\Unit1.dcu

     文件         51  2016-06-22 09:33  两种方法，读取电脑的所有串口号\Unit1.ddp

     文件        910  2016-06-22 09:21  两种方法，读取电脑的所有串口号\Unit1.dfm

     文件       3452  2016-06-22 09:33  两种方法，读取电脑的所有串口号\Unit1.pas

     文件         51  2016-06-22 09:32  两种方法，读取电脑的所有串口号\Unit1.~ddp

     文件        910  2016-06-22 09:21  两种方法，读取电脑的所有串口号\Unit1.~dfm

     文件       3404  2016-06-22 09:32  两种方法，读取电脑的所有串口号\Unit1.~pas

     目录          0  2016-06-22 09:33  两种方法，读取电脑的所有串口号

----------- ---------  ---------- -----  ----

               424661                    13