Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
1-1177755932
Web
2007-04-28 14:25
2007.07.22
Печать StringGrid из под Linux a (Kylix)


2-1182676848
Victor456
2007-06-24 13:20
2007.07.22
Изменение формы окна


11-1166033779
NeeDiGeo
2006-12-13 21:16
2007.07.22
Глобальные клавиши


2-1182878717
T.V
2007-06-26 21:25
2007.07.22
Вопрос по ф-ции GetProcessImageFileName


15-1182256685
DelphiN!
2007-06-19 16:38
2007.07.22
Как востановить удаленные данные из таблицы FireBird 1.5??