Membuat Daftar COM Port Pada Windows di Delphi

Prosedur dibawah ini digunakan jika kita ingin mendapatkan informasi atau daftar COM Port yang ada di sistem kita (windows).


uses  Registry; // Jangan lupa menambahakan ini
procedure TForm1.Button1Click(Sender: TObject); 
var
   registry: TRegistry;
   daftar: Tstrings;
   i: Integer; 
begin
  registry  := TRegistry.Create(KEY_READ);
  try     
    registry.RootKey := HKEY_LOCAL_MACHINE;
    registry.OpenKey('hardware\devicemap\serialcomm', False);
    daftar := TstringList.Create;
    try
      registry.GetValueNames(daftar);
      for i := 0 to daftar.Count - 1 do
      Memo1.Lines.Add( registry.Readstring(daftar.strings[i]));
      // menampilkan daftar ke Memo1
    finally
      daftar.Free;
    end;
    registry .CloseKey;
  finally
    registry.Free;
  end;
end;