XProfan

def opendesktop(4) ! "USER32","OpenDesktopA"
def closedesktop(1) ! "USER32","CloseDesktop"
def getlasterror(0) ! "KERNEL32","GetLastError"
cls
settimer 1000
declare desk$, deskhandle&, lasterr&
desk$ = "default"

while 1

    deskhandle& = opendesktop(addr(desk$),0,0,0)
    lasterr& = getlasterror()
    print "deskhandle : ",deskhandle&," lasterr : ",lasterr&
    case lasterr& = 5 : print "Desktop gesperrt"
    closedesktop(deskhandle&)
    waitinput

endwhile