ComPorts / RSR232 Schnittstellen Auflisten?

[Real-TTX]

Hallo,

Gibt es eine Möglichkeit die Vorhandenen Comports aufzulisten ?
Evtl mit Async Pro oder eine andere Methode - Delphi eigene Funktion?

Danke für jede Antwort.

Gruß, Real-TTX

[Helmi]

Hallo,

die Schweizer haben einen netten Code dafür.

Und hier der Code direkt von den Schweizern kopiert:

Delphi-Quellcode:

{
  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;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('hardware\devicemap\serialcomm', False);
    st := TstringList.Create;
    try
      reg.GetValueNames(st);
      for i := 0 to st.Count - 1 do 
        Memo1.Lines.Add(reg.Readstring(st.strings[i]));
    finally
      st.Free;
    end;
    reg.CloseKey;
  finally
    reg.Free;
  end;
end;

[Real-TTX]

Danke Helmi!

Genau das habe ich gesucht. Ich dachte mir schon dass man es über die Registry machen kann.
Ich danke dir vielmals.

Gruß, Real-TTX