Опрос COM-портов

@Sergey_03 · Регистрация: 15.12.2014

Студворк — интернет-сервис помощи студентам

Добрый вечер. Встала такая задача - в комбо-бокс вывести номер COM-порта, к которому подключено устройство с своими дровами. Опознается лексически, как Prolific USB-to-Serial Comm Port. Реально ли это? И вообще, как вывести в комбо-бокс список всех COM портов и/или только свободных? Гуглил, пробовал - чегото никак не сдвинуться..

Добавлено через 16 часов 13 минут
нашел

C++
1
2
3
4
5
6
7
8
9
#include <registry.hpp>
         Reg->RootKey = HKEY_LOCAL_MACHINE;
        Reg->OpenKeyReadOnly( KeyName );
        Reg->GetValueNames( SerialCommValues );
        //Reg->GetKeyNames(SerialCommValues);
        for(int i=0; i<SerialCommValues->Count; i++)
        {
            Form1->ComboBox1->Items->Add(Registry->ReadString(SerialCommValues->Strings[i]));
        }

работает, выводит значения. А можно еще и имена выводить?

Добавлено через 39 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#include <registry.hpp>
AnsiString KeyName = "\\Hardware\\DeviceMap\\SerialComm";
    TStringList *SerialCommValues0 = new TStringList();
    TStringList *SerialCommValues = new TStringList();
    Form1->ComboBox1->Items->Clear();
    TRegistry *Registry = new TRegistry;
    try
    {
        Registry->RootKey = HKEY_LOCAL_MACHINE;
        Registry->OpenKeyReadOnly( KeyName );
        Registry->GetValueNames( SerialCommValues0 );
        Registry->GetValueNames( SerialCommValues );
        for(int i=0; i<SerialCommValues->Count; i++)
        {
            Form1->ComboBox1->Items->Add(SerialCommValues0->Strings[i]+
            L"   "+Registry->ReadString(SerialCommValues->Strings[i]));
        }
    }
 __finally
    {
        delete Registry;
        delete SerialCommValues0;
        delete SerialCommValues;
        if (Form1->ComboBox1->ItemIndex<0)
        {
            Form1->ComboBox1->ItemIndex=0;
        }
    }

вот так вроде работает

@nick42 · 20.11.2015, 11:42

Можно же было и с единственным StringList ? Нет?

@Sergey_03 · 20.11.2015, 14:25 **[ТС]**

Сообщение от nick42

Можно же было

Да, конечно. Не только можно, но и нужно. Намудрил))

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#include <registry.hpp>
AnsiString KeyName = "\\Hardware\\DeviceMap\\SerialComm";
    TStringList *SerialCommValues = new TStringList();
    Form1->ComboBox1->Items->Clear();
    TRegistry *Registry = new TRegistry;
    try
    {
        Registry->RootKey = HKEY_LOCAL_MACHINE;
        Registry->OpenKeyReadOnly( KeyName );
        Registry->GetValueNames( SerialCommValues );
        for(int i=0; i<SerialCommValues->Count; i++)
        {
            Form1->ComboBox1->Items->Add(SerialCommValues->Strings[i]+
            L"   "+Registry->ReadString(SerialCommValues->Strings[i]));
        }
    }
   __finally
    {
        delete Registry;
        delete SerialCommValues;
        if (Form1->ComboBox1->ItemIndex<0)
        {
            Form1->ComboBox1->ItemIndex=0;
        }
    }

Добавлено через 2 часа 31 минуту
Еще такой вопрос есть - я делаю установщик через Inno Setup Compiler. Как там можно при удалении приложения удалять определенную ветку из реестра?

@nick42 · 20.11.2015, 15:23

Сообщение от Sergey_03

Как там можно при удалении приложения удалять определенную ветку из реестра?

Если я правильно понял, то как-то так (флаг...)

CSS
1
2
[Registry]
Root: HKCU; Subkey: Software\MyProgram; Flags: uninsdeletekey

@Sergey_03 · 20.11.2015, 16:31 **[ТС]**

Сообщение от nick42

Если я правильно понял

только вот в какую секцию, что бы удаляло при удалении

@volvo · 20.11.2015, 16:38

Сообщение от Sergey_03

я делаю установщик через Inno Setup Compiler. Как там можно при удалении приложения удалять определенную ветку из реестра?

Это надо спрашивать у специалистов, в разделе "Инсталляторы" их больше водится...

@nick42 · 20.11.2015, 16:46

Сообщение от Sergey_03

только вот в какую секцию, что бы удаляло при удалении

А с какой секцией приложение работает (создает)? Вот ту и записывайте.

@Sergey_03 · 20.11.2015, 17:08 **[ТС]**

Сообщение от nick42

Вот ту и записывайте.

если поставить в секцию [Registry] установщика, получается, что секция реестра удаляется при установке приложения? Потом она правда программно создается при запуске приложения, но вроде как то не понятно все равно..

@nick42 · 20.11.2015, 17:13

Сообщение от Sergey_03

получается, что секция реестра удаляется при установке приложения?

??
У меня не получается. Ключ этой строки предписывает работать с этой секцией реестра именно ДЕИНСТАЛЛЯТОРУ.

Добавлено через 2 минуты
А вообще - там же неплохой хэлп по разделам. Я ведь тоже на курсах не был, но с его помощью чего хотел - получил.

@Sergey_03 · 20.11.2015, 17:16 **[ТС]**

Сообщение от nick42

Ключ этой строки предписывает работать с этой секцией реестра именно ДЕИНСТАЛЛЯТОРУ

а, ну тогда то, что надо. Спасибо!

Сообщение от nick42

там же неплохой хэлп по разделам

что то смотрел, не сообразил.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	20.11.2015, 11:42
	Можно же было и с единственным StringList ? Нет? 1