delphi之软件检测更新


很白痴的一段代码,版本号是单独写到程序中记录的,并非程序文件切实的版本号,只要保持每次发布程序时注意统一一下代码即可。其中http://nobird.org/banbenhao.txt存放的是最新版的版本号,banbenthis是当前软件自身版本号。
procedure TForm1.Button3Click(Sender: TObject);beginbanbenthis:='1019'; //四位的版本号trybanben :=IdHTTP2.Get('http://nobird.org/banbenhao.txt');Edit2.Text:=banben;if banben>banbenthis thenbegin  ShowMessage('您使用的不是最新版本,请更新');ShellExecute(Handle,'open','http://nobird.org/',nil,nil,SW_SHOWNORMAL);end  elsebegin  ShowMessage('当前版本已经是最新版,无需更新');  end;except      ShowMessage('无法连接到服务器');end;end;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678