当前位置: 主页 > 百科 > 计算机编程 > 易语言源码 >
0 Comments

易语言源代码锁定磁盘

发布于:2016-07-03  |   作者:http://www.zxjsq.net  |   已聚集:人围观

.版本 2

.支持库 shell


.程序集 窗口程序集1

.程序集变量 目录句柄, 整数型


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




.子程序 __启动窗口_将被销毁


_按钮2_被单击 ()


.子程序 _按钮2_被单击


.如果 (目录句柄 = 0)


.否则

    关闭句柄 (目录句柄)

    按钮1.禁止 = 假

    按钮2.禁止 = 真


.如果结束




.子程序 _按钮1_被单击

.局部变量 PathDir, 文本型


PathDir = 编辑框1.内容

目录句柄 = CreateFile (PathDir, 1, 0, 0, 3, 33554432, 0)

.如果 (目录句柄 ≠ -1)


    按钮1.禁止 = 真

    按钮2.禁止 = 假


.否则

    信息框 (“锁定失败!”, 0, “无法获取句柄”)


.如果结束



.子程序 _按钮3_被单击


编辑框1.内容 = 浏览文件夹 (“”, )


标签:                   喜欢:收藏