delphi之软件检测更新

菜鸟编程 十五楼的鸟儿 1465浏览 0评论
很白痴的一段代码,版本号是单独写到程序中记录的,并非程序文件切实的版本号,只要保持每次发布程序时注意统一一下代码即可。其中http://nobird.org/banbenhao.txt存放的是最新版的版本号,banbenthis是当前软件自身版本号。
[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之软件检测更新

游客
发表我的评论 换个身份
取消评论

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

等待大佬打赏中~