在线更新源代码(200)

L

LoveRuby

Unregistered / Unconfirmed
GUEST, unregistred user!
lixin0117,懒得和你说,说了你也不懂
 

睢志强

Unregistered / Unconfirmed
GUEST, unregistred user!
我这里有个简单的根据脚本在线升级的程序 不晓得有没有人有兴趣!^: 是定义个地址 方便 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:结束脚本的运行
 

睢志强

Unregistered / Unconfirmed
GUEST, unregistred user!
脚本格式 类似批处理!
 

睢志强

Unregistered / Unconfirmed
GUEST, unregistred user!
我草啊! 楼主的代码写的非常不错 敬佩敬佩啊!小弟五体投地! 自己写的在线更新代码 除了有点心意外 技术根本比不了啊!
 
D

dgtwb

Unregistered / Unconfirmed
GUEST, unregistred user!
我是来收分的
 
L

lixin0117

Unregistered / Unconfirmed
GUEST, unregistred user!
樓上的,即使自己在厲害,也要尊重別人。高手都是由新手來的
 
C

chengran

Unregistered / Unconfirmed
GUEST, unregistred user!
拿分走人
 
S

SP229

Unregistered / Unconfirmed
GUEST, unregistred user!
来学习的
 
C

chbqq

Unregistered / Unconfirmed
GUEST, unregistred user!
UI不错,赞一个
 
B

batconv

Unregistered / Unconfirmed
GUEST, unregistred user!
过年好,学习一下
 
M

Mad[Frog]

Unregistered / Unconfirmed
GUEST, unregistred user!
帮楼主顶下,谢谢了~~~
 
S

smsman

Unregistered / Unconfirmed
GUEST, unregistred user!
恩,确实哦,我也好久没有来社区了
 
A

a_mao_gong

Unregistered / Unconfirmed
GUEST, unregistred user!
快2年没用过DELPHI了,也不知道现在发展得怎么样了,没想到还有这么坚持阵地的,哈哈,高兴呀!
 
H

heroicdragon

Unregistered / Unconfirmed
GUEST, unregistred user!
楼主真是无私!!真是大好人!
 
A

ap_

Unregistered / Unconfirmed
GUEST, unregistred user!
楼主真是无私!!真是大好人!
 
C

chengducai

Unregistered / Unconfirmed
GUEST, unregistred user!
已下载,好好学习一下,谢谢楼主.
 

星幻子

Unregistered / Unconfirmed
GUEST, unregistred user!
打开源代码提示缺少TRzpanel,哪里有啊?
 
D

dingbaosheng

Unregistered / Unconfirmed
GUEST, unregistred user!
Raise控件??? Razie罢!!!
 

飞天大侠

Unregistered / Unconfirmed
GUEST, unregistred user!
大致看了下源代码,设计界面都是E文,运行都是中文,什么个思路?设计时最好用中文,否则我看代码,一时半会居然没找到如何运行时是中文的!!!
 
M

muhx

Unregistered / Unconfirmed
GUEST, unregistred user!
To 楼上请下载Raize3.0.10控件
 

Similar threads

S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部