解决易语言WIN10不能拖放对象方法及例子(纯源码)

解决易语言WIN10不能拖放对象方法及例子(纯源码)

.版本 2
.支持库 edroptarget
.支持库 eAPI

.程序集 窗口程序集_启动窗口

.子程序 _按钮_修改_被单击

.如果 (取数值注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA”, ) ＝ 1)
    .如果真 (写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA”, 到整数 (编辑框_值.内容)) ＝ 真)
        信息框 (“修改值为0,请重开机.”, 0, “提示”, _启动窗口)
    .如果真结束

.否则
    .如果真 (写注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA”, 到整数 (1)) ＝ 真)
        信息框 (“还原默认值,请重开机.”, 0, “提示”, _启动窗口)
    .如果真结束

.如果结束


.子程序 _按钮_查看当前值_被单击

信息框 (取数值注册项 (#本地机器, “SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA”, ), 0, “EnableLUA值”, _启动窗口)

.子程序 __启动窗口_创建完毕

拖放对象1.注册拖放控件 (取窗口句柄 ())

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

编辑框_文件路径.内容 ＝ 接收到的文件路径

.子程序 _按钮_打开_被单击
.局部变量 快捷方式目标路径, 文本型

快捷方式目标路径 ＝ 取快捷方式目标 (编辑框_文件路径.内容, , , , , , , )
.如果 (倒找文本 (编辑框_文件路径.内容, “.lnk”, , 假) ≠ -1)  ' 无法直接打开.lnk
    运行 (快捷方式目标路径, 假, )
.否则
    运行 (编辑框_文件路径.内容, 假, )
.如果结束

@Demigod