List of COM Ports

[Jeff Barnes]

Hi,

Is there a way to get a list of the available COM ports on a system?

[anserkk]

I think you can get the list by reading the following registry entries

HKEY_LOCAL_MACHINE\Hardware\DeviceMap\SerialComm

Regards
Anser

[Jeff Barnes]

Hi Anser,

I checked my registry ... you are correct. They are listed there.
Now the question is, how would I get an array of the com ports when I don't know what the key names will be?

[StefanHaupt]

Jeff,

you can use ::EnumVkey() from my reg32.prg

Code: Select all  Expand view

//-------------------------------------------------------------------------//
METHOD EnumKey () CLASS TReg32

LOCAL i := 0, nError := 0
LOCAL cBuffer := Space (255)
LOCAL nBufSize := 255
LOCAL cClass := Space (255)
LOCAL nClsSize := 255
LOCAL aRet := {}

 While (nError := RegEnumKeyExA( ::nHandle, i++, @cBuffer, nBufSize,0,cClass, nClsSize )) == ERROR_SUCCESS

    cBuffer := StrTran (cBuffer,",","\")         // Replace "," with "\"
    AADD (aRet,cBuffer)

 End

::nError := nError

RETURN (aRet)

//-------------------------------------------------------------------------//
DLL32 static ;
FUNCTION RegEnumKeyExA(nhKey      AS LONG   ,;
                       nIndex     AS LONG   ,;
                       @cBuffer   AS LPSTR  ,;   //By reference
                       @nBufSize  AS PTR    ,;   //By reference
                       nReserved  AS LONG   ,;   //Must be NULL
                       @cClass    AS LPSTR  ,;   //By reference (can be NULL)
                       @nClsSize  AS PTR    ,;   //By reference (can be NULL)
                       @pFileTime AS PTR    );   //By reference (can be NULL)
         ;
         AS LONG PASCAL LIB "ADVAPI32.DLL"