寻求自动升级程序!

lnlzd2001 2003-12-12 01:14:36
若没有源程序!
有可执行文件也可以!
愿以80分交换!
...全文
74 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

1,108

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧