Изменение номера com-порта без перезапуска приложения

String PortName = Form2->ComboBoxPortName->Text;

TForm1 *Form1;
//---------------------------------------------------------------------------
char m_sComPort[5];
int baud_rate;                          //скорость обмена
int Error_nom;                          //номер ошибки
HANDLE hCom = NULL;                     //дескриптор порта, создаётся и используется для всех операций с портом
DCB dcb;                                //установки управляющие работой порта
COMMTIMEOUTS cto;                       //структура задающая тайм-ауты последовательного порта
DWORD numbyte, temp, numbytes_ok, mask;
COMSTAT comstat;
 
HANDLE writer;                          //дескриптор потока записи в порт
DWORD WINAPI WriteThread(LPVOID);
 
HANDLE reader;                          //дескриптор потока чтения из порта
DWORD WINAPI ReadThread(LPVOID);
 
void ReadRx(void);
 
OVERLAPPED overlapped;              //будем использовать для операций чтения (см. поток ReadThread)
OVERLAPPED overlappedwr;                //будем использовать для операций записи (см. поток WriteThread)
       
#define BUFSIZE 255                     //ёмкость буфера
uint32_t counter;                   //счётчик принятых байтов, обнуляется при каждом открытии порта
uint8_t bufrd[1024];                    //приёмный буфер
 
HANDLE hTxPort, hData;
uint32_t TXX = 0;
 
//---------------------------------------------------------------------------
unsigned char buf_out[BUFSIZE];
unsigned char buf_in[BUFSIZE];
 
uint8_t USART_TxBuffer[BUFSIZE];
uint8_t USART_RxBuffer[BUFSIZE];
uint32_t USART_NbrOfDataToTransfer;
uint32_t USART_RxCounter;
 
int32_t count;
 
uint8_t bit_error, error_sys;   //р-ры ошибок ВИБ
//---------------------------------------------------------------------------
бла...бла..бла...
//---------------------------------------------------------------------------
int Comport_open(void)
                        //ошибки программы
                        //2- порт не существует
                        //3- ошибка записи порта
                        //4- ошибка чтения порта
                        //0- нет ошибок
{
 Error_nom = 0;
 hCom = CreateFile(m_sComPort, GENERIC_READ|GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, NULL);
 if ((hCom == INVALID_HANDLE_VALUE) || (hCom == NULL))
  {
  //Если порт не открывается
   MessageBox(NULL, "Порт отсутствует или используется другим приложением", "Reader", MB_OK | MB_ICONSTOP);
   Error_nom = 2; //установили ошибку
 goto end;
  } // end if
 
  // Установка параметров обмена
  memset(&dcb,0,sizeof(dcb));                 // Выделение места в памяти
  dcb.DCBlength=sizeof(dcb);                  // Присвоение структуре места
  dcb.BaudRate=baud_rate;                     // Скорость обмена
  dcb.ByteSize=8;                             // 8 бит
  dcb.Parity=0;                               // без контроля четности
  dcb.StopBits=ONESTOPBIT;                    // 1 стоп бит
  dcb.fBinary=TRUE;                           // Обмен двоичными числами
  dcb.fOutxCtsFlow=TRUE;                      // Сигнал CTS отслеживать
  dcb.fOutxDsrFlow=FALSE;                     // Сигнал DSR не отслеживать
  dcb.fDtrControl=DTR_CONTROL_ENABLE;         // Контроль с помощью сигнала DTR разрешить
  dcb.fDsrSensitivity=FALSE;                  // Сигнал DSR на коммуникационный драйвер не влияет
  dcb.fOutX=FALSE;                            // Управление выходным потоком символами XON/XOFF отключить
  dcb.fInX=FALSE;                             // Управление входным потоком символами XON/XOFF отключить
  dcb.fErrorChar=FALSE;                       // Ошибочные байты не заменять
  dcb.fNull=FALSE;                            // Нулевые байты не отбрасывать
  dcb.fRtsControl=RTS_CONTROL_TOGGLE;         // Разрешить RTS
  dcb.fAbortOnError=FALSE;                    // Не прекращать ввод-вывод при ошибках
  //dcb.wReserved=0;                          // Зарезервировано - должен быть 0
  SetCommState(hCom,&dcb);                    // Установить параметры порта с дескриптором hPort из структуры dcb
  cto.ReadIntervalTimeout = 0;                // Максимальное время между чтением байт, мс
  cto.ReadTotalTimeoutMultiplier = 0;         // Множитель для вычисления общего времени чтения
  cto.ReadTotalTimeoutConstant = 0;//70;      // Время ожидания начала приема, мс
  cto.WriteTotalTimeoutMultiplier = 0;//10;   // Множитель для вычисления общего времени записи, мс
  cto.WriteTotalTimeoutConstant = 0;//100;    // Время ожидания начала записи, мс
  SetCommTimeouts(hCom, &cto);                // Установить тайм-ауты из структуры cto
  SetupComm(hCom, 2000, 2000);                // Очистить внутренние буферы порта и установить их длину
  PurgeComm(hCom, PURGE_RXCLEAR);             // Очистить принимающий буфер порта
  reader = CreateThread(NULL, 0, ReadThread, NULL, 0, NULL);            //создаём поток чтения, который сразу начнёт выполняться (предпоследний параметр = 0)
  writer = CreateThread(NULL, 0, WriteThread, NULL, CREATE_SUSPENDED, NULL); //создаём поток записи в остановленном состоянии (предпоследний параметр = CREATE_SUSPENDED)
 end: return Error_nom;
}
//------------------------------------------------------------------------------
//главная функция потока, выполняет передачу байтов из буфера в COM-порт
 DWORD WINAPI WriteThread(LPVOID)
{
 DWORD temp, signal;    //temp - переменная-заглушка
 overlappedwr.hEvent = CreateEvent(NULL, true, true, NULL);   //создать событие
  while(1)
  {
   //записать байты в порт (перекрываемая операция!)
   WriteFile(hCom, USART_TxBuffer, USART_NbrOfDataToTransfer, &temp, &overlappedwr);
   //приостановить поток, пока не завершится перекрываемая операция WriteFile
   signal = WaitForSingleObject(overlappedwr.hEvent, INFINITE);
   //если операция завершилась успешно
   if((signal == WAIT_OBJECT_0) && (GetOverlappedResult(hCom, &overlappedwr, &temp, true)))
     {
       ReleaseSemaphore( hTxPort, 1, NULL );
       TXX = 0;
     }
   //иначе вывести в строке состояния сообщение об ошибке
   else
    {
     PurgeComm(hCom, PURGE_TXCLEAR | PURGE_TXABORT);
     ReleaseSemaphore( hTxPort, 1, NULL );
     TXX = 0;
    }
   SuspendThread(writer);
  }
}
//---------------------------------------------------------------------------
//главная функция потока, реализует приём байтов из COM-порта
DWORD WINAPI ReadThread(LPVOID)
{
 DWORD btr, temp, mask, signal;           //переменная temp используется в качестве заглушки
 
 //создать сигнальный объект-событие для асинхронных операций
 overlapped.hEvent = CreateEvent(NULL, true, true, NULL);
 
 SetCommMask(hCom, EV_RXCHAR);           //установить маску на срабатывание по событию приёма байта в порт
 while(1)                //пока поток не будет прерван, выполняем цикл
  {
   WaitCommEvent(hCom, &mask, &overlapped);                 // ожидать события приёма байта
                                // (это и есть перекрываемая операция)
   signal = WaitForSingleObject(overlapped.hEvent, INFINITE);   //приостановить поток до прихода байта
   if(signal == WAIT_OBJECT_0)                      //если событие прихода байта произошло
    {
     //проверяем, успешно ли завершилась перекрываемая операция WaitCommEvent
     if(GetOverlappedResult(hCom, &overlapped, &temp, true))
       if((mask & EV_RXCHAR)!=0)                    //если произошло именно событие прихода байта
       {
        ClearCommError(hCom, &temp, &comstat);              //нужно заполнить структуру COMSTAT
        btr = comstat.cbInQue;                              //и получить из неё количество принятых байтов
        if(btr)                                     //если действительно есть байты для чтения
        {
         ReadFile(hCom, bufrd, btr, &temp, &overlapped);        //прочитать байты из порта в буфер программы
         counter+=btr;                                          //увеличиваем счётчик байтов
         ReadRx();                                      //вызываем функцию для вывода данных
        }
      }
    }
  }
}
//---------------------------------------------------------------------------
void Comport_Close(void)
 {//закрываем порт
 //завершить поток чтения из порта, проверка if(reader) обязательна, иначе возникают ошибки
 if(reader)
  {
   TerminateThread(reader,0);
   CloseHandle(overlapped.hEvent);  //нужно закрыть объект-событие
   CloseHandle(reader);
  }
 //завершить поток записи в порт, проверка if(writer) обязательна, иначе возникают ошибки
 if(writer)
  {
   TerminateThread(writer,0);
   CloseHandle(overlappedwr.hEvent);    //нужно закрыть объект-событие
   CloseHandle(writer);
  }
 PurgeComm(hCom,PURGE_RXABORT|PURGE_TXABORT);
 CloseHandle(hCom);                     //закрыть порт
 hCom = 0;                      //обнулить переменную для дескриптора порта
}
//---------------------------------------------------------------------------
бла...бла..бла...
//---------------------------------------------------------------------------
 __fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
if (!Comport_open())// Timer1 -> Enabled = true; //открыли СОМ порт
    {
     // Wait indefinetly for a free semaphore
     WaitForSingleObject( hTxPort, 500);
     PurgeComm(hCom, PURGE_TXCLEAR);              //очистить передающий буфер порта
     USART_TxBuffer[0] = 'A';
     USART_TxBuffer[1] = 'T';
     USART_TxBuffer[2] = 0x0D;
     USART_TxBuffer[3] = 0;
     USART_NbrOfDataToTransfer = strlen(USART_TxBuffer);
     ResumeThread(writer);                        //активировать поток записи данных в порт
 
     Timer2 -> Enabled = true;                    //ждем ответа модема если он есть
    }
 hTxPort=CreateSemaphore( NULL, 1, 1, NULL );
 hData=CreateSemaphore( NULL, 1, 1, NULL );
}
//---------------------------------------------------------------------------
бла...бла..бла...
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
 Comport_Close();
 AnsiString asNCom = "COM1";
 strcpy(m_sComPort, asNCom.c_str());
 TIniFile *Ini;
 Ini = new TIniFile(ExtractFilePath(Application -> ExeName) + "options.ini");
 Ini -> WriteString("Port", "Номер", "COM1");
 TMenuItem *mi = static_cast <TMenuItem*> (Sender);
 for (int i = 0; i < mi -> Parent -> Count; i++)
  {
   mi -> Parent -> Items[i] -> Checked = false;
  }
   mi -> Checked = true;
 Ini-> WriteInteger("Port", "Индекс", mi -> MenuIndex);
 Ini -> UpdateFile();
 delete Ini;
}

strcpy(m_sComPort, asNCom.c_str());

char m_sComPort[5];
int baud_rate;                          //скорость обмена

void __fastcall TForm1::N7Click(TObject *Sender)
{
 Comport_Close();
 TIniFile *Ini;
 Ini = new TIniFile(ExtractFilePath(Application -> ExeName) + "options.ini");
 Ini -> WriteString("Port", "Номер", "COM1");
 TMenuItem *mi = static_cast <TMenuItem*> (Sender);
 for (int i = 0; i < mi -> Parent -> Count; i++)
  {
   mi -> Parent -> Items[i] -> Checked = false;
  }
   mi -> Checked = true;
 Ini -> WriteInteger("Port", "Индекс", mi -> MenuIndex);
 Ini -> UpdateFile();
 delete Ini;
 Comport_Open();
}

 __fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 if (!Comport_Open())
    {
     WaitForSingleObject( hTxPort, 500);
     PurgeComm(hCom, PURGE_TXCLEAR);              //очистить передающий буфер порта
     USART_TxBuffer[0] = 'A';
     USART_TxBuffer[1] = 'T';
     USART_TxBuffer[2] = 0x0D;
     USART_TxBuffer[3] = 0;
     USART_NbrOfDataToTransfer = strlen(USART_TxBuffer);
     ResumeThread(writer);                        //активировать поток записи данных в порт
     Form1 -> Label21 -> Caption = "Порт открыт";
     Form1 -> Timer2 -> Enabled = true;                    //ждем ответа модема если он есть
    }
  hTxPort = CreateSemaphore( NULL, 1, 1, NULL );
  hData = CreateSemaphore( NULL, 1, 1, NULL );
}

ResumeThread(writer);

Comport_Open();

void __fastcall TForm1::N7Click(TObject *Sender)