[code=delphi]
procedure TForm1.Button3Click(Sender: TObject);
begin
banbenthis:='1019'; //四位的版本号
try
banben :=IdHTTP2.Get('http://nobird.org/banbenhao.txt');
Edit2.Text:=banben;
if banben>banbenthis then
begin
ShowMessage('您使用的不是最新版本，请更新');
ShellExecute(Handle,'open','http://nobird.org/',nil,nil,SW_SHOWNORMAL);
end
else
begin
ShowMessage('当前版本已经是最新版，无需更新');
end;
except
ShowMessage('无法连接到服务器');
end;
end;
[/code]
转载请注明：鸟儿博客 » delphi之软件检测更新