直接放在update1.zip里面即可。
直接这样写,但是需要第二次启动才能用新的封面
If Syscmd.Project.Update(False,True) = False Then '如果没有升级
FileSys.CopyFile(ProjectPath & "splash.jpg", ApplicationPath & "splash.jpg", True) Forms("窗口1").OpenEnd If