易语言仿PhotoShop浮动工具栏源码

系统结构:WindowProc,消息循环,RegisterClass,UnregisterClass,CreateWindowEx,UpdateWindow,ShowWindow,GetClientRect,ClientToScreen,GetMessage,TranslateMessage,DispatchMessage,PostQuitMessage,DefWindowProc,CloseWindow,DestroyWindow,SendMessage,LoadCursor,GetModuleHandle,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ WindowProc
           |  |
           |  |------ 消息循环
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   RegisterClass
           |  |
           |  |---[dll]------   UnregisterClass
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   UpdateWindow
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   GetClientRect
           |  |
           |  |---[dll]------   ClientToScreen
           |  |
           |  |---[dll]------   GetMessage
           |  |
           |  |---[dll]------   TranslateMessage
           |  |
           |  |---[dll]------   DispatchMessage
           |  |
           |  |---[dll]------   PostQuitMessage
           |  |
           |  |---[dll]------   DefWindowProc
           |  |
           |  |---[dll]------   CloseWindow
           |  |
           |  |---[dll]------   DestroyWindow
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   LoadCursor
           |  |
           |  |---[dll]------   GetModuleHandle

调用的DLL命令:

.DLL命令 RegisterClass, 整数型, "user32", "RegisterClassA"
    .参数 Class, WNDCLASS, 传址

.DLL命令 UnregisterClass, 整数型, "user32", "UnregisterClassA"
    .参数 lpClassName, 文本型
    .参数 hInstance, 整数型

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA"
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型, 传址

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

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

.DLL命令 GetClientRect, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 lpRect, RECT, 传址

.DLL命令 ClientToScreen, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 lpPoint, POINTAPI, 传址

.DLL命令 GetMessage, 整数型, "user32", "GetMessageA"
    .参数 lpMsg, MSG
    .参数 hwnd, 整数型
    .参数 wMsgFilterMin, 整数型
    .参数 wMsgFilterMax, 整数型

.DLL命令 TranslateMessage, 整数型, "user32"
    .参数 lpMsg, MSG

.DLL命令 DispatchMessage, 整数型, "user32", "DispatchMessageA"
    .参数 lpMsg, MSG

.DLL命令 PostQuitMessage, , "user32"
    .参数 nExitCode, 整数型

.DLL命令 DefWindowProc, 整数型, "user32", "DefWindowProcA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

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

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

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型, 传址

.DLL命令 LoadCursor, 整数型, "user32", "LoadCursorA"
    .参数 hInstance, 整数型
    .参数 lpCursorName, 整数型

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", 公开, 获取一个应用程序或动态链接库的模块句柄　如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 整数型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;