Hoala todos.

Estoy usando el siguiente codigo para testear mis puertos:

DO decl 
? "Testing port COM1:", TestPort("COM1") 
? "Testing port COM2:", TestPort("COM2") 
? "Testing port COM3:", TestPort("COM3") 
? "Testing port COM4:", TestPort("COM4") 

FUNCTION TestPort (lcPort) 
#DEFINE OPEN_EXISTING     3 
#DEFINE GENERIC_READ      2147483648 && 0x80000000 
#DEFINE FILE_FLAG_OVERLAPPED  1073741824 && 0x40000000 
#DEFINE INVALID_HANDLE_VALUE  -1 

    LOCAL hPort 
    hPort = CreateFile (lcPort, GENERIC_READ, 0,0,; 
        OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0) 

    = CloseHandle(hPort) 
RETURN (hPort <> INVALID_HANDLE_VALUE) 

PROCEDURE decl 
    DECLARE INTEGER CreateFile IN kernel32; 
        STRING lpFileName, INTEGER dwAccess, INTEGER dwShareMode,; 
        INTEGER lpSecurityAttr, INTEGER dwCreationDisp,; 
        INTEGER dwFlagsAndAttr, INTEGER hTemplateFile 

    DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject 

Me sirve para saber cuales tengo, pero, como puedo hacer para saber si estan abiertos o cerrados?


Gracias.