Controlar Rele

[JerS]

Amigos estoy incursionando en el mundo de la electronica y compre un modulo programable que se maneja por rs232 y me trajo unas librerias, las cuales estoy comenzando a estudiar, necesito que me orienten un poco

Código Delphi [-]
ND_InitialComm (com_port : Word; baud_rate : Word; data_bits : Word; parity : 
Word; stop_bits : Word) : Smallint

ok:
com_port: numero del puerto
baud_rate: velocidad del puerto
data_bits: por lo general utilizo 8
parity:1
stop_bits:0;

pero tengo una duda en el com_port: que funcion me recomiendan para saber que puertos com tengo disponibles en mi pc!

[[rretamar]]

Un breve código que carga los puertos serie instalados en un componente TComboBox:

Utiliza la clase TRegistry, así que no olvides incluirla en el USES.

Código Delphi [-]
Procedure TFTesteo_de_puerto.Obtener_puertos_serie;
Var
  C: Byte;
Begin
  //
  With TRegistry.Create Do // Crear un objeto Registry
    Try
      ComboBox1.Items.Clear; // Inicializar lista
      rootkey := HKEY_LOCAL_MACHINE; // Obtener los puertos serie instalados
      If keyexists('HARDWARE') Then
        If openkey('HARDWARE', false) Then
          If keyexists('DEVICEMAP') Then
            If openkey('DEVICEMAP', false) Then
              If keyexists('SERIALCOMM') Then
                If openkey('SERIALCOMM', False) Then
                  Begin
                    GetValueNames(ComboBox1.Items); // Carga nombres '\Device\SerialX'
                    For C := 0 To (ComboBox1.Items.Count - 1) Do
                      ComboBox1.Items[ C ] := ReadString(ComboBox1.Items[ C ]);
                  End;
    Finally
      Free; // Liberar objeto
    End;
  // Si no se encontraron puertos, marcar objeto DbcomboBox en rojo
  If ComboBox1.Items.Count = 0 Then
    Begin
      ComboBox1.Color := ClRed; // 0 puerto(s)
      MessageDlg('No se encontraron puertos serie válidos en el equipo.', mtError, [ mbOK ], 0);
      // Deshabilitar botones si no se encontraron puertos serie válidos
      BitBtn1.Enabled := False;
      BitBtn2.Enabled := False;
    End
  Else
    ComboBox1.Color := ClWindow; // 1 o más puerto(s)
End;

Saludos !