本 }
end;
FreeMem(VerInfo, VerInfoSize);
end;
然后使用如下的函数比较网站的升级版本和现在的版本,如果返回TRUE,说明有新版本文件:
function VersionCheck(OriVer,NewVer:TSimpleVersion):Boolean;
begin
if (OriVer.dwProductVersionMS=NewVer.dwProductVersionMS) then
begin
Result:=OriVer.dwProductVersionLS
end else
begin
Result:=OriVer.dwProductVersionMS end;
end;
到这里基本方法就介绍完了,我在DELPHI5+WIN2000环境调试通过,这里我没有写出完整的代码.给大家一个参考!(具体是谁写的,我忘了,推荐给大家!)