Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как получить имена свободных com портов?

Как получить имена свободных com портов?

//Show the names of available comm ports (com1, com2, ...) 

//Used registry key: hkey_local_machine\hardware\devicemap\serialcomm 

uses registry; 

... 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  reg : TRegistry; 
  st : TStrings; 
  i : integer; 
begin 
  reg := TRegistry.Create; 
  reg.RootKey := HKEY_LOCAL_MACHINE; 
  reg.OpenKey('hardware\devicemap\serialcomm',false); 
  st := TStringList.Create; 
  reg.GetValueNames(st); 
  for i := 0 to st.Count -1 do begin 
    Memo1.Lines.Add(reg.ReadString(st.Strings[i])); 
  end; 
  st.Free; 
  reg.CloseKey; 
  reg.free; 
end; 

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru