[MaxSt]

Почему он не хочет подключаться к COM6, который RS232 подключенный через USB (USB Serial Port)?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  DCB   : TDCB;
  hPort : THandle;
begin
  hPort := CreateFile(PChar('COM'+Form1.Edit1.Text),GENERIC_READ + GENERIC_WRITE,0, nil,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if (hPort = INVALID_HANDLE_VALUE)
  then
    begin
    ShowMessage('Error!');
    exit;
    end;
end;

Админ: Пользуемся тегами при оформлении кода!

Выдает Error, но смело подключается к COM1 (последовательный порт).