易语言桌面切换源码

系统结构:窗口1,退出,窗口2,RegHotKey,新窗口程序,UnRegHotKey,UnAllRegHotKey,GetThreadDesktop,CreateDesktop,SetThreadDesktop,SwitchDesktop,GetCurrentThreadId,CreateProcess,CloseDesktop,API_WinExec,置窗口特征,RegisterHotKey,执行窗口程序,UnregisterHotKey,API_OpenDesktop,TerminateThread,OpenProcess,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 窗口1
           |  |
           |  |------ 退出
           |  |
           |  |------ 窗口2
           |  |
           |  |
======注册热键_程序集
           |  |
           |  |------ RegHotKey
           |  |
           |  |------ 新窗口程序
           |  |
           |  |------ UnRegHotKey
           |  |
           |  |------ UnAllRegHotKey
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetThreadDesktop
           |  |
           |  |---[dll]------   CreateDesktop
           |  |
           |  |---[dll]------   SetThreadDesktop
           |  |
           |  |---[dll]------   SwitchDesktop
           |  |
           |  |---[dll]------   GetCurrentThreadId
           |  |
           |  |---[dll]------   CreateProcess
           |  |
           |  |---[dll]------   CloseDesktop
           |  |
           |  |---[dll]------   API_WinExec
           |  |
           |  |---[dll]------   置窗口特征
           |  |
           |  |---[dll]------   RegisterHotKey
           |  |
           |  |---[dll]------   执行窗口程序
           |  |
           |  |---[dll]------   UnregisterHotKey
           |  |
           |  |---[dll]------   API_OpenDesktop
           |  |
           |  |---[dll]------   TerminateThread
           |  |
           |  |---[dll]------   OpenProcess

调用的DLL命令:

.DLL命令 GetThreadDesktop, 整数型, "user32", "GetThreadDesktop", , 返回线索桌面句柄
    .参数 dwThread, 整数型

.DLL命令 CreateDesktop, 整数型, "user32", "CreateDesktopA"
    .参数 lpszDesktop, 文本型
    .参数 lpszDevice
    .参数 pDevmode
    .参数 dwFlags, 整数型
    .参数 dwDesiredAccess, 整数型
    .参数 lpsa

.DLL命令 SetThreadDesktop, 整数型, "user32", "SetThreadDesktop"
    .参数 hDesktop, 整数型

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

.DLL命令 GetCurrentThreadId, 整数型, "kernel32", "GetCurrentThreadId", , 获取当前线程一个唯一的线程标识符  当前的线程标识符

.DLL命令 CreateProcess, 整数型, "kernel32", "CreateProcessA", , 创建一个新进程（比如执行一个程序）  非零表示成功，零表示失败。会设置GetLastError
    .参数 a
    .参数 b, 文本型
    .参数 c
    .参数 d
    .参数 e, 逻辑型
    .参数 f
    .参数 g
    .参数 g
    .参数 h, STARTUPINFO
    .参数 h, PROCESS_INFORMATION

.DLL命令 CloseDesktop, , "user32", "CloseDesktop"
    .参数 a

.DLL命令 API_WinExec, 整数型, "kernel32", "WinExec", , 运行指定的程序  大于32表示成功，请参考FindExecutable函数
    .参数 lpCmdLine, 文本型, , 包含要执行的命令行
    .参数 nCmdShow, 整数型, , 定义了以怎样的形式启动程序的常数值。参考ShowWindow函数的nCmdShow参数

.DLL命令 置窗口特征, 子程序指针, , "SetWindowLongA"
    .参数 窗口句柄, 整数型
    .参数 特征索引, 整数型
    .参数 新特征, 子程序指针

.DLL命令 RegisterHotKey, 整数型, "user32.dll", "RegisterHotKey"
    .参数 hWnd, 整数型
    .参数 id, 整数型
    .参数 fsModifoers, 整数型
    .参数 vk, 整数型

.DLL命令 执行窗口程序, 整数型, , "CallWindowProcA"
    .参数 窗口程序程序指针, 子程序指针
    .参数 窗口句柄, 整数型
    .参数 消息, 整数型
    .参数 参数1, 整数型
    .参数 参数2, 整数型

.DLL命令 UnregisterHotKey, 整数型, , "UnregisterHotKey"
    .参数 hWnd, 整数型
    .参数 HotKeyID, 整数型

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

.DLL命令 TerminateThread, , , "TerminateThread", 公开, 可以在线程外部使用
    .参数 线程句柄, 整数型
    .参数 退出码, 整数型

.DLL命令 OpenProcess, 整数型, "Kernel32.dll", "OpenProcess", 公开
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型
    .参数 dwProcessId, 整数型