在线更新源代码(200)

lixin0117,懒得和你说，说了你也不懂

我这里有个简单的根据脚本在线升级的程序 不晓得有没有人有兴趣！^: 是定义个地址 方便 GOTO 到这里其中 init start end 是必须有的^:InitInit这个地址平时不用 而是GetValue时候用，主要用来取得脚本版本 判断是否需要升级Var:Version, GoldWave1.1声明脚本的版本号Goto:End跳转到结束^:Start运行脚本从这个开始 类似 C 的主函数Var:Str,Var:Version, GoldWave1.1Var:OldVersion,声明了三个变量GetValue:$NowPath & ScriptBak.ous, Version, OldVersion 取得上次的脚本版本 脚本备份文件 版本变量名 取得值到哪个版本if:$OldVersion, $Version, End, HaveNewVersion 与这次脚本版本对比 看需要不需要升级 不需要直接跳转到结束 需要跳转到 HaveNewVersion ^:HaveNewVersionShowBox:新版本使用RAR压缩方式传输。/n你要实验下么？, 确定|取消, Str询问是否升级 并把按钮的文本赋值给 STRif:$Str, 确定, UpData, End 如果STR的值是确定 跳转到 UpData 否者 跳转到结束 ^:UpDataPBarMax:2设置整体进度滚动条最大为2PBarNow:0设置整体进度滚动条当前为0DownLoad:0, $Server & Rar.exe, 2007-01-01 12:00:00, $NowPath & Rar.exe下载RAR.EXE 参数功能分别是 是否强制下载（不判断文件时间），文件URL，文件时间，下载到哪里PBarNow:1设置整体进度滚动条当前为1DownLoad:1, $Server & NewVersion.rar, 2007-01-01 12:00:00, $NowPath & NewVersion.rar强制下载新版本的压缩包文件PBarNow:2设置整体进度滚动条当前为2ShowBox:请拔出您的网线，或禁用所有网络链接。/n若软件 GoldWave 正在运行/n请关闭相应程序/n点击确定开始替换新版本文件, 确定, Str提示拔出网线KillP:GoldWave.exe结束GoldWave.exe的进程if:$Str, 确定, UpData1, End如果刚才点的是确定 跳转到UpData1（实际上一定是确定 因为就一个按钮）^:UpData1ShowStr:正在解压缩文件，请耐心等待。设置提示文本sleep:500暂停500毫秒Run:$NowPath & Rar.exe x -o+ " & $NowPath & NewVersion.rar" " & $NowPath & ", $NowPath, 0, 1运行一个文件 这里用来 解压缩文件 参数含义分别是 命令行，运行目录，是否显示，是否等待运行结束Delete:$NowPath & NewVersion.rar删除压缩包Delete:$NowPath & ScriptBak.ous删除以前的旧脚本ren:$NowPath & Temp.ous,$NowPath & ScriptBak.ous把当前脚本改名为旧脚本的名 方便下次新版本升级判断Goto:End跳转到结束^:EndDelete:$NowPath & Temp.ous删除临时脚本文件Exit:结束脚本的运行

脚本格式 类似批处理！

我草啊！ 楼主的代码写的非常不错 敬佩敬佩啊！小弟五体投地！ 自己写的在线更新代码 除了有点心意外 技术根本比不了啊！

我是来收分的

樓上的,即使自己在厲害，也要尊重別人。高手都是由新手來的

拿分走人

来学习的

UI不错，赞一个

过年好，学习一下

帮楼主顶下，谢谢了~~~

恩，确实哦，我也好久没有来社区了

快2年没用过DELPHI了，也不知道现在发展得怎么样了，没想到还有这么坚持阵地的，哈哈，高兴呀！

楼主真是无私！！真是大好人！

楼主真是无私！！真是大好人！

已下载,好好学习一下,谢谢楼主.

打开源代码提示缺少TRzpanel,哪里有啊？

Raise控件？？？ Razie罢！！！

大致看了下源代码，设计界面都是E文，运行都是中文，什么个思路?设计时最好用中文，否则我看代码，一时半会居然没找到如何运行时是中文的！！！

To 楼上请下载Raize3.0.10控件