|
15楼

楼主 |
发表于 2015-2-24 08:59:08
|
只看该作者
黑龙江省大兴安岭地区
.版本 2
.子程序 _窗口1_创建完毕
编辑框_路径.内容 = 取运行目录 ()
编辑框_启动服务先.内容 = 到文本 (读入文件 (取运行目录 () + “\MYSQL\pcl\qd.bat”))
编辑框_卸载服务先.内容 = 到文本 (读入文件 (取运行目录 () + “\MYSQL\pcl\xz.bat”))
.子程序 _按钮_安装_被单击
编辑框_启动服务后.内容 = 子文本替换 (编辑框_启动服务先.内容, “copy D:\MYSQL\my.ini %SystemRoot% /y”, “copy ” + “” + 编辑框_路径.内容 + “\MYSQL\my.ini %SystemRoot% /y”, , , 真)
编辑框_启动服务后.内容 = 子文本替换 (编辑框_启动服务先.内容, “D:\MYSQL\bin\mysqld-nt.exe -install”, 编辑框_路径.内容 + “\MYSQL\bin\mysqld-nt.exe -install”, , , 真)
写到文件 (取运行目录 () + “\MYSQL\pcl\1.bat”, 到字节集 (编辑框_启动服务后.内容))
运行 (取运行目录 () + “\MYSQL\pcl\1.bat”, 假, )
.子程序 _按钮_卸载_被单击
编辑框_卸载服务后.内容 = 子文本替换 (编辑框_卸载服务先.内容, “D:\mysql\bin\mysqld-nt.exe -remove”, 编辑框_路径.内容 + “\mysql\bin\mysqld-nt.exe -remove”, , , 真)
写到文件 (取运行目录 () + “\MYSQL\pcl\2.bat”, 到字节集 (编辑框_卸载服务后.内容))
运行 (取运行目录 () + “\MYSQL\pcl\2.bat”, 假, )
我修改后的全自动代码 呵呵谢谢帮我写开头 |
|