求delphi 单文件升级源码
网上看到一个程序升级步骤是这样的：
软件第一次运行，估计是后台检查http上有无更新文件；不管有没有更新文件，此次运行 不出现如何升级提示。
第二次运行时该软件时 软件在任务栏中自动更新到最新版后再自动打开软件。
单文件升级，请告知源码！
谢谢，新人第一个帖子，希望能有高人指点！


[解决办法]
在主程序中A检测是否有新版本，如果有就打开升级程序B并关闭A，下载并替换主程序，打开A主程序并关闭自己B。
主要就用下面的语句了。

ShellExecute(handle, 'Open', PChar(fileName), nil, nil, SW_NORMAL);

[解决办法]
替换可以参考自杀程序...

简单的方案
在你关闭的时候 运行一个 bat

比如

ping 127.0.0.1
copy a.tmp a.exe


用 SW_HIDE 模式

这样就会自动替换掉了.