导航
  • 主页
  • API 调用
  • 基础类
  • 控件与界面
  • 数据库相关
  • DataWindow
  • 项目管理
  • Web 应用
  • 脚本语言

寻求自动升级程序!

lnlzd2001 2003-12-12 01:14:36
若没有源程序!
有可执行文件也可以!
愿以80分交换!
...全文
29 点赞 收藏 8
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
xinchangpeng 2003-12-16
up
回复
lnlzd2008 2003-12-16
好的!
可以了!
回复
ld2099 2003-12-13
PB实现自动升级程序
string get_chz,init,dbtype
string ls_AppPath1
int li_ret
string upgrade_file,upgrade_inf,new_ver_no
ver_no="2002091301"
ret_val='failed'
if Handle(GetApplication()) = 0 then
//messagebox("系统","你现在处在开发运行状态!")
ls_apppath="d:\work\drawback"
else
//messagebox("系统","你现在处在执行文件运行状态!")
ls_AppPath = Space (128)
li_ret = GetModuleFileNameA (Handle (GetApplication ()), ls_apppath, 128)
ls_apppath=left(trim(ls_apppath),len(trim(ls_apppath)) -8)
end if
//判断是否有更新版本的程序

integer li_FileNum
//upgrade_inf获取升级文件的版本号
upgrade_inf=profilestring("drawback.ini","upgrade","inf", "")
upgrade_file=upgrade_inf + profilestring("drawback.ini","upgrade","file", "")
if FileExists ( upgrade_file ) then
li_FileNum = FileOpen(upgrade_file,LineMode! ,Read!, Shared! , Replace!)
FileRead ( li_FileNum, new_ver_no )
fileclose(li_FileNum)
if new_ver_no > ver_no then
if messagebox("建议","本程序已经有更新版本("+new_ver_no+"),是否下载并安装?",question!,yesno!)=1 then
if FileExists ( upgrade_inf + "setup.exe" ) then
run( upgrade_inf + "setup.exe")
halt;
else
messagebox("错误","更新程序setup.exe不可得,请检查网络或路径")
end if
end if
end if

end if


回复
cxwsoftware 2003-12-12
bnd!
回复
hnhhcj 2003-12-12
gzing
回复
treesoft 2003-12-12
确实有好多的例程………
回复
jdsnhan 2003-12-12
搜索一下,好多例程
回复
hzhxxx 2003-12-12
http://expert.csdn.net/Expert/topicview.asp?id=2416503
回复
发动态
发帖子
PowerBuilder
创建于2007-09-28

814

社区成员

PowerBuilder 相关问题讨论
申请成为版主
社区公告
暂无公告