易语言文件拖放源码

系统结构:接收参数的子程序,允许拖放,禁止拖放,WndProc,Query,调用子程序_,取变量数据地址_文本型,DragAcceptFiles_,SetWindowLong_,SetProp_,GetProp_,CallWindowProc_,DragQueryFile_,DragFinish_,RemoveProp_,

======窗口程序集1
           |  |
           |  |------ 接收参数的子程序
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |
======文件拖放
           |  |
           |  |------ 允许拖放
           |  |
           |  |------ 禁止拖放
           |  |
           |  |------ WndProc
           |  |
           |  |------ Query
           |  |
           |  |------ 调用子程序_
           |  |
           |  |------ 取变量数据地址_文本型
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   DragAcceptFiles_
           |  |
           |  |---[dll]------   SetWindowLong_
           |  |
           |  |---[dll]------   SetProp_
           |  |
           |  |---[dll]------   GetProp_
           |  |
           |  |---[dll]------   CallWindowProc_
           |  |
           |  |---[dll]------   DragQueryFile_
           |  |
           |  |---[dll]------   DragFinish_
           |  |
           |  |---[dll]------   RemoveProp_

调用的DLL命令:

.DLL命令 DragAcceptFiles_, , "shell32.dll", "DragAcceptFiles", , 登记窗口是否接受托动文件的内容
    .参数 hwnd, 整数型
    .参数 fAccept, 整数型

.DLL命令 SetWindowLong_, 整数型, "user32", "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 hwnd, 整数型, , 欲为其取得信息的窗口的句柄
    .参数 nIndex, 整数型, , 请参考GetWindowLong函数的nIndex参数的说明
    .参数 dwNewLong, 整数型, , 由nIndex指定的窗口信息的新值;

.DLL命令 SetProp_, 整数型, "user32", "SetPropA", , 增加或修改属性列项
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 GetProp_, 整数型, "user32", "GetPropA", , 从窗口属性表列中返回数据句柄
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

.DLL命令 CallWindowProc_, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 DragQueryFile_, 整数型, "shell32.dll", "DragQueryFileA", , 返回托动的文件名
    .参数 HDROP, 整数型
    .参数 UINT, 整数型
    .参数 lpStr, 文本型, 传址
    .参数 ch, 整数型

.DLL命令 DragFinish_, , "shell32.dll", "DragFinish", , 释放分配用于托动文件的内容
    .参数 hDrop, 整数型

.DLL命令 RemoveProp_, 整数型, "user32", "RemovePropA", , 删除属性列入口
    .参数 hwnd, 整数型
    .参数 lpString, 文本型