BCB6.0 自动识别USB串口设备

BCB环境下，根据windows消息，自动识别插入的USB串口设备

//---------------------------------------------------------------------------

#include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM（“Unit1.cpp“ Form1）;
//---------------------------------------------------------------------------
WINAPI WinMain（HINSTANCE HINSTANCE LPSTR int）
{
        try
        {
                 Application->Initialize（）;
                 Application->CreateForm（__classid（TForm1） &Form1）;
                 Application->Run（）;
        }
        catch （Exception &exception）
        {
                 Application->ShowException（&exception）;
        }
        catch （...）
        {
                 try
                 {
                         throw Exception（““）;
                 }
                 catch （Exception &exception）
                 {
                         Application->ShowException（&exception）;
                 }
        }
        return 0;
}
//--------

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

     文件        396  2018-12-28 21:45  AutoOpenSerialPort\Project1.bcc32pch

     文件       5274  2018-12-28 21:45  AutoOpenSerialPort\Project1.bpr

     文件       1069  2018-12-28 21:38  AutoOpenSerialPort\Project1.cpp

     文件      32768  2019-01-03 11:05  AutoOpenSerialPort\Project1.exe

     文件      18423  2019-01-03 11:05  AutoOpenSerialPort\Project1.obj

     文件        876  2018-12-28 21:28  AutoOpenSerialPort\Project1.res

     文件    2031616  2019-01-03 11:05  AutoOpenSerialPort\Project1.tds

     文件       5112  2018-12-28 21:38  AutoOpenSerialPort\Project1.~bpr

     文件       4003  2019-01-03 10:01  AutoOpenSerialPort\Unit1.cpp

     文件         51  2019-01-03 10:01  AutoOpenSerialPort\Unit1.ddp

     文件        328  2018-12-28 21:28  AutoOpenSerialPort\Unit1.dfm

     文件       1058  2018-12-29 13:41  AutoOpenSerialPort\Unit1.h

     文件      65852  2019-01-03 11:05  AutoOpenSerialPort\Unit1.obj

     文件       3926  2019-01-03 09:58  AutoOpenSerialPort\Unit1.~cpp

     文件         51  2019-01-03 10:01  AutoOpenSerialPort\Unit1.~ddp

     文件        328  2018-12-28 21:28  AutoOpenSerialPort\Unit1.~dfm

     文件       1058  2018-12-29 13:41  AutoOpenSerialPort\Unit1.~h

     目录          0  2019-01-03 11:05  AutoOpenSerialPort

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

              2172189                    18