求delphi 单资料升级源码

求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 模式

这样就会自动替换掉了.