Текущий архив: 2007.07.22;
Скачать: CL | DM;
Вниз
Как получить список Com-портов? Найти похожие ветки
← →
Michael L Birnov (2007-06-24 12:17) [0]Кто знает как получить список доступных компу Com-портов?
← →
tesseract © (2007-06-24 12:24) [1]procedure TfmSettings.FormShow(Sender: TObject);
var i:byte;
reg:tregistry;
ComList:tstringList;
begin
// Заполнение приборов
// Создание списка Com портов
reg:=Tregistry.create;
ComList:=TstringList.Create;
try
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey("hardware\devicemap\serialcomm", false);
ComList := TStringList.Create;
reg.GetValueNames(ComList);
for i:=0 to comList.Count-1 do
cbPort.Items.add(reg.ReadString(comList[i]));
cbport.ItemIndex:=0;
finally
ComList.Free;
reg.Free;
end;
← →
Yanis © (2007-06-24 12:34) [2]В принципе список всех COM портов будет в
QueryDosDevice(nil,
…
← →
tesseract © (2007-06-24 12:35) [3]
> В принципе список всех COM портов будет в QueryDosDevice(nil,
> …
не всех, только до 9-го.
← →
Yanis © (2007-06-24 12:52) [4]
> не всех, только до 9-го.
Не знал, честное слово.
Страницы: 1 вся ветка
Текущий архив: 2007.07.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c