以下是引用su0527在2018-3-7 07:32:39的发言：
升级原理：首先，下载升级程序（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),意思是等待原程序彻底退出再向下操作，能解决上述问题。但如果退出后，快速地再次启动程序，又会出问题。
请问，如何改进代码?
升级原理：首先，下载升级程序（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),意思是等待原程序彻底退出再向下操作，能解决上述问题。但如果退出后，快速地再次启动程序，又会出问题。
请问，如何改进代码?
你不讲的那一步，我一点也不懂（红）。
我的一个“土八路”想法：
1、把“小精灵.EXE”名换成“ABC.EXE”
2、把用来升级覆盖的程序的扩展名改一下，变成“ABC.RAR”
3、另写一个可执行文档“小精灵.EXE”。
内容只要这几步：
A、判断是否有升级可下载，有下载之。
B、判断当前目录中是否有“ABC.RAR”存在，有则拷贝为“ABC.EXE”，即覆盖掉原先的“ABC.EXE”。
C、删除“ABC.RAR”。
D、最后一步“ DO ABC.EXE ”。
我试了下，以上的土法，是可行的。
[此贴子已经被作者于2018-3-13 07:49编辑过]
只求每天有一丁点儿的进步就可以了
