升级程序与当前程序切换时有点问题,请教一下?
升级原理:首先,下载升级程序(update.exe)到当前程序(小精灵.exe)所在目录,这一步很正常,具体方法略去。在小精灵 主窗口的unload事件中代码如下:
SET SAFETY OFF
IF FILE("update.exe")=.t. AND FILE("小精灵.exe")=.t. &&如果发现升级程序 update.exe,则在退出时启动另外一个可执行程序sprite.exe
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER , STRING , STRING , STRING , STRING ,INTEGER
= SHELLEXECUTE(0,0,'upsprite\sprite.exe',0,0,1) &&启动另一个程序sprite.exe
ENDIF
quit
CLEAR EVENTS
在sprite.exe 的主程序中代码如下: &&启用该程序的目标是,删除原程序并将升级程序重命名为原程序
_screen.visible=.f.
SET TALK OFF
SET SAFETY OFF
SET CENTURY ON
SET DATE YMD
SET HOURS TO 24
SET DEFAULT TO SYS(5)+SYS(2003) &&全路径
lj2=alltrim(LEFT(SYS(5)+SYS(2003),RAT("\",SYS(5)+SYS(2003),1)-1))
DELETE FILE ("&lj2.\小精灵\小精灵.exe") &&删除原程序
RENAME &lj2.\小精灵\update.exe TO &lj2.\小精灵\小精灵.exe &&将升级程序重命名为原程序
QUIT
问题:多数电脑上可以正常运行,有的不行。初步分析,sprite.exe主程序中,删除原程序和重命名操作,有时发生在原程序unload代码中的quit之前发生,有时发生的quit之后发生。前者是会报错的,因为小精灵正在占用中。
问题2:我在 DELETE FILE ("&lj2.\小精灵\小精灵.exe") 前加 inkey(3),意思是等待原程序彻底退出再向下操作,能解决上述问题。但如果退出后,快速地再次启动程序,又会出问题。
请问,如何改进代码?