易语言OFFICE文档转换成PDF源码

系统结构:拖放对象注册,拖放对象撤销,WindowProc,拖放对象得到文件,转换到HTML,转换到HTML路径,取文件类型_程序,SetWindowLongA,CallWindowProcA,DragAcceptFiles,DragQueryFileA,DragFinish,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======程序集2
           |  |
           |  |------ 拖放对象注册
           |  |
           |  |------ 拖放对象撤销
           |  |
           |  |------ WindowProc
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ 拖放对象得到文件
           |  |
           |  |------ 转换到HTML
           |  |
           |  |------ 转换到HTML路径
           |  |
           |  |------ 取文件类型_程序
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLongA
           |  |
           |  |---[dll]------   CallWindowProcA
           |  |
           |  |---[dll]------   DragAcceptFiles
           |  |
           |  |---[dll]------   DragQueryFileA
           |  |
           |  |---[dll]------   DragFinish

调用的DLL命令:

.DLL命令 SetWindowLongA, 整数型, "USER32", "SetWindowLongA"
    .参数 hWnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProcA, 整数型, "USER32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 DragAcceptFiles, 整数型, "shell32", "DragAcceptFiles"
    .参数 hWnd, 整数型
    .参数 fAccept, 整数型

.DLL命令 DragQueryFileA, 整数型, "shell32", "DragQueryFileA"
    .参数 hDrop, 整数型
    .参数 iFile, 整数型
    .参数 lpszFile, 文本型
    .参数 cch, 整数型

.DLL命令 DragFinish, 整数型, "shell32", "DragFinish"
    .参数 hDrop, 整数型