易语言托盘图标应用源码

系统结构:子程序1,W2A,显示托盘图标,FindWindow,FindWindowEx,GetWindowThreadProcessId,CloseHandle,OpenProcess,VirtualAllocEx,SendMessage,SendMessageA,ReadProcessMemory_字节集,ReadProcessMemory_整数,VirtualFreeEx,WideCharToMultiByte,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 子程序1
           |  |
           |  |------ W2A
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 显示托盘图标
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   GetWindowThreadProcessId
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   VirtualAllocEx
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   ReadProcessMemory_字节集
           |  |
           |  |---[dll]------   ReadProcessMemory_整数
           |  |
           |  |---[dll]------   VirtualFreeEx
           |  |
           |  |---[dll]------   WideCharToMultiByte

调用的DLL命令:

.DLL命令 FindWindow, 整数型, "user32", "FindWindowA"
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 整数型

.DLL命令 FindWindowEx, 整数型, "user32", "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 整数型

.DLL命令 GetWindowThreadProcessId, 整数型, "user32.dll", "GetWindowThreadProcessId"
    .参数 hwnd, 整数型
    .参数 pid, 整数型, 传址

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
    .参数 hwnd, 整数型

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess"
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 逻辑型, , 是否继承
    .参数 dwProcessId, 整数型

.DLL命令 VirtualAllocEx, 整数型, "kernel32.dll", "VirtualAllocEx"
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型
    .参数 flProtect, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型, , 要隐藏的图标，从0开始
    .参数 lParam, 逻辑型, , Any型,根据需要可以设置成不同的类型

.DLL命令 SendMessageA, 整数型, , "SendMessageA"
    .参数 窗口句柄, 整数型
    .参数 信息值, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 ReadProcessMemory_字节集, 整数型, , "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 ReadProcessMemory_整数, 整数型, , "ReadProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型
    .参数 lpBuffer, 整数型, 传址
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 VirtualFreeEx, 逻辑型
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型

.DLL命令 WideCharToMultiByte, 整数型
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型, 传址
    .参数 cbMultiByte, 整数型
    .参数 lpDefaultChar, 文本型
    .参数 lpUsedDefaultChar, 逻辑型