易语言智能嵌入桌面源码

系统结构:进程名取窗口句柄,EnumThreadWndProc,取任务栏高度,CreateToolhelp32Snapshot,CloseHandle,Process32First,Process32Next,Thread32First,Thread32Next,OpenThread,EnumThreadWindows,GetParent,API_FindWindowExA,API_GetWindowRect,API窗口置父,

======窗口程序集
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 进程名取窗口句柄
           |  |
           |  |------ EnumThreadWndProc
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |
======任务栏窗口程序集
           |  |
           |  |------ _任务栏窗口_创建完毕
           |  |
           |  |------ 取任务栏高度
           |  |
           |  |------ _开始按钮_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   Process32First
           |  |
           |  |---[dll]------   Process32Next
           |  |
           |  |---[dll]------   Thread32First
           |  |
           |  |---[dll]------   Thread32Next
           |  |
           |  |---[dll]------   OpenThread
           |  |
           |  |---[dll]------   EnumThreadWindows
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   API_FindWindowExA
           |  |
           |  |---[dll]------   API_GetWindowRect
           |  |
           |  |---[dll]------   API窗口置父

调用的DLL命令:

.DLL命令 CreateToolhelp32Snapshot, 整数型
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型

.DLL命令 CloseHandle, 整数型, "kernel32"
    .参数 hObject, 整数型

.DLL命令 Process32First, 整数型
    .参数 hSnapShot, 整数型
    .参数 uProcess, PROCESSENTRY32

.DLL命令 Process32Next, 整数型
    .参数 hSnapShot, 整数型
    .参数 uProcess, PROCESSENTRY32

.DLL命令 Thread32First, 整数型, "KERNEL32.DLL", "Thread32First"
    .参数 hSnapshot, 整数型
    .参数 lpte, THREADENTRY32

.DLL命令 Thread32Next, 整数型, "KERNEL32.DLL", "Thread32Next"
    .参数 hSnapshot, 整数型
    .参数 lpte, THREADENTRY32

.DLL命令 OpenThread, 整数型, "kernel32.dll", "OpenThread"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwThreadId, 整数型

.DLL命令 EnumThreadWindows, 整数型, "user32", "EnumThreadWindows"
    .参数 dwThreadId, 整数型
    .参数 lpfn, 子程序指针
    .参数 lParam, 整数型, 传址

.DLL命令 GetParent, 整数型, "user32", "GetParent"
    .参数 hwnd, 整数型

.DLL命令 API_FindWindowExA, 整数型, , "FindWindowExA"
    .参数 hwndParent, 整数型
    .参数 hwndChildAfter, 整数型
    .参数 IpClassName, 文本型
    .参数 lpWindowName, 文本型

.DLL命令 API_GetWindowRect, , , "GetWindowRect"
    .参数 hWnd, 整数型
    .参数 lpRect, RECT

.DLL命令 API窗口置父, , "user32", "SetParent"
    .参数 hWndChild, 整数型
    .参数 hWndNewParent, 整数型