利用博客进行软件版本验证和升级

var
  Form1: TForm1;
const
versionthis:double=2.24;
implementation
{$R *.dfm}
uses shellapi;
procedure TForm1.Button1Click(Sender: TObject);
var
version:string;
begin
end;
procedure TForm1.FormCreate(Sender: TObject);
var
version,s:string;
p:integer;
ver:double;
begin
s:=idhttp1.Get('http://blog.sina.com.cn/s/blog_66357ab901012wmb.html');
p:=pos('ztmstversion:',s);
version:=copy(s,p+13,4);
ver:=strtofloat(version);
if ver>versionthis then
begin
label1.Caption:=label1.Caption+version+'版本,点击进行下载';
label1.Visible:=true;
end;
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(handle,'open','这里写上下载地址',nil,nil,SW_SHOWNORMAL);
end;
end.