Problem beim Auslesen der vorhandenen COM-Schnittstellen

[Helmi]

Wenn alles so einfach wär - es fehlte noch eine Schleife:

Delphi-Quellcode:

procedure COM_Liste(Liste: TStrings);
var
  Registry: TRegistry;
  StringList: TStringList;
  i: Integer;

begin
  //Registry erzeugen
  Registry := TRegistry.Create;

  //StringList erzeugen
  StringList := TStringList.Create;

  try
    //Registry beschreiben
    Registry.RootKey := HKEY_LOCAL_MACHINE;
    Registry.OpenKey('hardware\devicemap\serialcomm', false);

    //vorhandene Einträge auslesen
    Registry.GetValueNames(StringList);

    //Werte auslesen und in Liste schreiben
    for i := 0 to Pred(StringList.Count) do
      Liste.Add(Registry.Readstring(StringList.Strings[i]));

    //Registry schliessen
    Registry.CloseKey;
  finally
    //Registry löschen und freigeben
    FreeAndNil(Registry);

    //StringList löschen und freigeben
    FreeAndNil(StringList);
  end;
end;