就是一个程序在运行，我点了更新之后，怎么能够从FTP服务器上下载同名文件，覆盖这个EXE文件本身？直接覆盖会提示文件正在使用！

我的思路是：整一个版本号，检测一下，如果服务器版本新，就下载新的EXE文件下来，问题是怎么能够下载覆盖现在正在运行的文件呢？

实现了，呵呵，还得自己想！

运行一个EXE关闭另一个EXE就可以吧

能分享您的方法嘛？

分2个文件，主程序.EXE，update.exe
1、在主程序.EXE中检查文件是否最新的。如果不是最新的，调用更新程序，同时退出，主要代码为
if 需要更新=.t.
  *调用更新程序 update.exe，在更新程序中读取数据，更新完成后，复制到 主程序.exe去
  DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER , STRING , STRING , STRING , STRING ,INTEGER
  = SHELLEXECUTE(0,0,'update.exe',0,0,1)
  QUIT
endif

** 退出update.exe时，再调用 主程序.exe
*调用主程序,
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER , STRING , STRING , STRING , STRING ,INTEGER
= SHELLEXECUTE(0,0,'主程序.exe',0,0,1)
QUIT

这是VFP很高级的用法了，哈哈。

主程序设置一个判断文件，启动检查，如果服务器上的新，就退出，执行更新程序

做一个更新程序编译成.exe
wait timeout 2 &&这是等待主程序退出时间差！
ftpget (......)
messagebox("更新完成!")
run /N 主程序

用木瓜myfll,如服务器设"it1000.txt"和安装程序"IT1000setup.exe",程序下载地址设定
 http://xxx.xxx.xxx.xxx/it1000.txt
 http://xxx.xxx.xxx.xxx/IT1000setup.exe
其中:
(一)it1000.txt文件,内容包含:
[config]
Version=2.0.1.1
(二)主程序为:IT1000.exe ,本例程序放在D:\
1.内设版本量,常量标志: it1000ver="1.0.9.5"
2.内设升级程序段:
updateip="http://xxx.xxx.xxx.xxx"

*下载用于识别新版本
=DownFile(updateip+"/IT1000.txt","d:\it1000.txt")
NEWVER=iniRead("Version","0.0.0.0","config","d:\it1000.txt")
IF it1000Ver=NewVer .OR. it1000Ver>NewVer
   dele file "d:\it1000.txt"
   retu
ENDIF

*下载安装程序进行更新
=DownFile(updateip+"/IT1000setup.exe","d:\it1000setup.exe")
XXRAND=ALLTRIM(STR(INT(1000*RAND()),3,0))
vbat="d:\it"+XXRAND+'.BAT'

SET ALTE TO &vbat
SET ALTE ON
SET CONSOLE OFF
?[CMD /C taskkill /f /im it1000.exe]
?[start "d:\IT1000setup.exe"]
?[del "d:\it1000setup.exe"]
?[start "d:\IT1000.exe"]
?[del %0]
?[ ]
SET ALTE OFF
SET ALTE TO
SET CONSOLE on
Declare Long WinExec In kernel32 String,Long
=WinExec(vbat,0)

平时上传 http://xxx.xxx.xxx.xxx/it1000.txt 和  http://xxx.xxx.xxx.xxx/IT1000setup.exe 两个文件就行了

[此贴子已经被作者于2016-7-8 16:58编辑过]

方法不错。学习中...