升级

Question

我想要实现的是一个简单的升级功能，简单到

Answer 1

对比网络上的一个txt文本，然后和软件中预存的字符比较，如果低于网络上文本中的数字则提示升级并打开对应下载网页。现在就是下载这个文本并对比不会做，哪位告诉一下?

Answer 2

本地一个txt记录版本号，然后网站用一个xml来记录最新版本，程序登陆抓取xml比较版本
有需要就下载相关文件

Answer 3

procedure TForm1.Button3Click(Sender: TObject);
begin
banbenthis:='1019'; //四位的版本号
banben :=IdHTTP2.Get('http://www.xxxx.com/123.txt');
Edit2.Text:=banben;
if banben>banbenthis then
begin
  ShowMessage('您使用的不是最新版本，请更新');
ShellExecute(Handle,'open','http://www.xxxx.com',nil,nil,SW_SHOWNORMAL);
end
  else
begin
  ShowMessage('你的版本是最新版，无需更新');
  end;
end;解决了~~ O(∩_∩)O~