XProfan

 {$cleq}
cls
long comports=createAvailableCOMPortsList()
print "Anzahl:",getCount(comports)

whileLoop 0,getCount(comports)-1

    print getString$(comports,loop)

wend

destroyWindow(comports)
waitInput
end

proc createAvailableCOMPortsList

    long lst=create("list",0),h

    whileLoop 256

        h=openCom("COM"+str$(loop),0,0)
        case h>0 : addString(lst,"COM"+str$(loop))
        CloseCom(h)

    wend

    return lst

endProc

cls
var comports&=createAvailableCOMPortsList()
imprimer "Anzahl:",getCount(comports&)

whileLoop 0,getCount(comports&)-1

    imprimer getString$(comports&,&loop)

Wend

destroyWindow(comports&)
waitInput
end

proc createAvailableCOMPortsList

    var lst&=create("list",0)
    var h&=0

    whileLoop 256

        h&=openCom("COM"+str$(&loop),0,0)
        cas h&>0 : addString(lst&,"COM"+str$(&loop))
        CloseCom(h&)

    Wend

    return lst&

endProc

print external("kernel32.dll","GetLastError")
//od.m.xpse
print GetLastError()re>

window %maxX,%maxY
declare lpTargetPath#,Temp$
dim lpTargetPath#,65536
var nmChars&=external("kernel32.dll","QueryDosDeviceW",0,lpTargetPath#,65536)
var Pos&=0

if nmChars&

    while 1

        Temp$=stringw$(lpTargetPath#,Pos&)
        print Temp$
        Pos&=Pos&+len(Temp$)*2+1
        case Pos&>=nmChars&*2:break
        sleep 200

    endwhile

endif

dispose lpTargetPath#
waitinput