小小源码

1020337943

.版本 2
.支持库 edroptarget

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

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

' 运行 (“regsvr32 dm.dll”, 假, )


' 大漠.创建 ()

' 大漠.SetPath (取运行目录 ())  ' 设置大漠全局路径
' 大漠.SetDict (0, “ziku0.txt”)  ' 设置大漠的字库文件

拖放对象1.注册拖放控件 (编辑框游戏路径.取窗口句柄 ())


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

大漠.释放 ()


.子程序 _按钮减号_被单击

通用对话框1.类型 ＝ 0
.如果真 (通用对话框1.打开 ())
    编辑框游戏路径.内容 ＝ 通用对话框1.文件名

.如果真结束


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

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


.子程序 _按钮保存配置_被单击


.如果 (编辑框账号.内容 ≠ “”)
    写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “账号”, 编辑框账号.内容)
    .如果 (编辑框密码.内容 ≠ “”)
        写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “密码”, 编辑框密码.内容)
        .如果 (编辑框游戏路径.内容 ≠ “”)
            写配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “路径”, 编辑框游戏路径.内容)
        .否则

        .如果结束

    .否则

    .如果结束

.否则

.如果结束




.子程序 _按钮读取配置_被单击

编辑框账号.内容 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “账号”, )
编辑框密码.内容 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “密码”, )
编辑框游戏路径.内容 ＝ 读配置项 (取运行目录 () ＋ “\配置.ini”, “配置”, “路径”, )

.子程序 _按钮打开_被单击

运行 (编辑框游戏路径.内容, 假, )

55000575

小小源码

317378207@qq.co

感谢楼主的无私分享！要想天野学院好 就靠你我他

李鹏

看不懂啊！！！

13910425411

真的很感谢！！

fenglail

感谢楼主的无私分享！

勃勃

感谢分享~~~~~感谢分享~~~~~感谢分享~~~~~感谢分享~~~~~