易语言判断桌面是否锁定源码

系统结构:PP_IsWorkStationLocked,LoadLibraryA,GetProcAddress,OpenDesktopA,SwitchDesktop,CloseDesktop,LockWorkStation,

======窗口程序集_启动窗口
           |  |
           |  |------ PP_IsWorkStationLocked
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   LoadLibraryA
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   OpenDesktopA
           |  |
           |  |---[dll]------   SwitchDesktop
           |  |
           |  |---[dll]------   CloseDesktop
           |  |
           |  |---[dll]------   LockWorkStation

调用的DLL命令:

.DLL命令 LoadLibraryA, 整数型, "kernel32", "LoadLibraryA", , 指定的可执行模块映射到调用进程的地址空间
    .参数 lpLibFileName, 文本型, , 一个空终止字符串名称可执行模块的指针（一个DLL或EXE文件。。）。指定的名称是模块的文件名不是存储在库模块的名字本身相关，通过在模块定义图书馆关键字指定（DEF文件。）

.DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress", , 从指定的动态链接库中检索一个导出的函数或变量的地址
    .参数 hModule, 整数型, , 用LoadLibrary或getmodulehandle函数返回的句柄
    .参数 lpProcName, 文本型, , 函数名称

.DLL命令 OpenDesktopA, 整数型, "user32", "OpenDesktopA"
    .参数 lpszDesktop, 文本型, , 0
    .参数 dwFlags, 整数型, , 0
    .参数 fInherit, 逻辑型, , 0
    .参数 dwDesiredAccess, 整数型, , 0

.DLL命令 SwitchDesktop, 逻辑型, "user32", "SwitchDesktop"
    .参数 hDesktop, 整数型, , 0

.DLL命令 CloseDesktop, 逻辑型, "user32.dll", "CloseDesktop", , 关闭打开的桌面对象句柄
    .参数 hDesktop, 整数型, , 要关闭的桌面句柄，这可以通过CreateDesktop、 OpenDesktop或OpenInputDesktop函数返回的句柄。不要指定的GetThreadDesktop函数返回的句柄。

.DLL命令 LockWorkStation, 逻辑型, "user32", "LockWorkStation"