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;
 

相关阅读 >>

Delphi 用 gdi+ 给图片添加花边的例子

Delphi vcl tmemo加速字符串读取

Delphi 数组类型与数组指针的巧妙利用

Delphi byte数组根据utf8 转换为string

Delphi unigi unidbtreegrid展开叠起 unidbgrid自动调节列宽

Delphi 生成指定范围和个数的不重复的随机整数

Delphi 精确打印image画布

Delphi datasnap(midas)三层架构中，常用事件及其触发顺序

Delphi 无法结束进程的程序

Delphi isthisleapyear 判断闰年

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi之软件检测更新