delphi - Delphi XE3：TMS 软件的 TWebUpdate：不替换主 exe 文件

Question

更新我的应用程序我正在使用 TMS 软件的 TWebUpdate：

WebUpdate1.URL:='http://myserver.com/update.inf';
if WebUpdate1.NewVersionAvailable then
begin
case Application.MessageBox(PChar('The new version '+WebUpdate1.NewVersionInfo+' is available! Update it?'), 
'Updates Are Available', MB_YESNO + MB_ICONQUESTION) of
  IDYES:
    begin
     SetCurrentDir(ExtractFilePath(Application.ExeName));
     WebUpdate1.DoUpdate;
     WebUpdate1.DoRestart;
    end;
  IDNO:
    begin
      Application.Terminate;
    end;
end;

这是 update.info 文件：

[update]
newversion=2.1.0.37
localversion=client_app.exe
[files]
count=1
[file1]
url=http://myserver.com/client_app.exe
newversion=2.1.0.37
localversion=client_app.exe
mandatory=1
[application]
appupdate=1
silentrestart=1
appname=client_app.exe
appcomps=client_app.ex_

实际上，更新工作正常（下载 exe 文件并重新启动应用程序），但 exe 文件没有被下载的文件替换。哪里可能有问题？提前致谢。

Answer 1

事实证明，下载的文件必须压缩为 cab 文件。那是：

[update]
newversion=2.1.0.37
localversion=client_app.exe
[files]
count=1
[file1]
url=http://myserver.com/client_app.ex_
newversion=2.1.0.37
localversion=client_app.exe
mandatory=1
[application]
appupdate=1
silentrestart=1
appname=client_app.exe
appcomps=client_app.ex_

而且当然：

WebUpdate1.ExtractCAB:=True;