为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 易语言相关 > 易语言例程 正文

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

三叶资源网 2020-01-21 20:50:58 易语言例程 4832 ℃ 11 评论

解决易语言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

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

文件下载

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有11位网友发表了看法:

  • 现行程序

    现行程序  评论于 [2020-03-13 12:08:57]  回复

    易语言拖放对象win10不能用

  • sql语句

    sql语句  评论于 [2020-04-17 20:43:55]  回复

    易语言拖放对象win10不能用

  • 易语言

    易语言  评论于 [2020-04-17 21:06:51]  回复

    易语言程序不能拖放TXT

  • 易语言

    易语言  评论于 [2020-04-25 10:43:12]  回复

    易语言拖放对象编译后就禁止

  • 易语言学习

    易语言学习  评论于 [2021-04-08 12:23:56]  回复

    易语言拖放对象源码编辑框内容

  • yiyuyan

    yiyuyan  评论于 [2021-05-19 16:12:52]  回复

    易语言win10拖放取不到路径

  • fiddler

    fiddler  评论于 [2022-03-26 18:34:50]  回复

    易语言写dll+win10不支持拖拽

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
万能快递单打印Unicode列表框QQ群提取桌面小精灵access数据库查询QQ空间分享删除斗鱼TCP协议火山安卓强行兼容高DPI图片转PDF助手知乎引流58t同城socks5字库验证码识别TGP登录协议硬笔QQ机器人插件教程文本转义二维码生成软件特效
最新评论