本文整理自网络,侵删。
ver.txt内容:1.0
GetNewVersion(http://www.delphitop.com/ver.txt);
function GetNewVersion(url: string): string;var lHTTP: TIdHTTP;begin
Result := ''; lHTTP := TIdHTTP.create; try try Result := lHTTP.Get(url); Result := Result; except // not responding end; finally lHTTP.Free; end;
end;
相关阅读 >>
Delphi winapi: extracticon - 获取 exe、dll 或 ico 文件中的图标
Delphi windows 编程[1] - 窗体生成的过程一
更多相关阅读请进入《Delphi》频道 >>