델파이 : 사용할 수 있는 COM 포트 정보를 레지스터리에서 가져오기

델파이 : 사용할 수 있는 COM 포트 정보를 레지스터리에서 가져오기

procedure TfrmMain.FormCreate(Sender: TObject);
var
  i:integer;
  regCom : TRegistry;
begin
  regCom := TRegistry.Create;

  with regCom do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    if OpenKey('\HARDWARE\DEVICEMAP\SERIALCOMM', False)then
    begin
      GetValueNames(cmbComPort.Items);
      for i := 0 to cmbComPort.Items.Count - 1 do
      begin
        cmbComPort.items[i] := ReadString(cmbComPort.items[i]);
      end;
      if cmbComPort.Items.Count = 0 then
        cmbComPort.Items.Add('No COM Port');
      cmbComPort.ItemIndex := 0;
      CloseKey;
    end
  finally free;
  end;
end;

붉게 표시한 곳의 레지스터리 키에 사용할 수 있는 COM Port의 정보가
씌여져있다.