【delphi源码】检测制定网页能否打开

返回值：
0：网络正常且能正常URL；
1：网络正常不能访问URL；
2：网络不正常。
function CheckOffline(URL: string): Integer;
var
dwFlag: DWORD;
begin
Result := 0;
if InternetGetConnectedState(@dwFlag, 0) then
begin
if not InternetCheckConnection(PChar(URL), 1, 0) then Result := 1;
end
else
Result := 2;
end;

---

上一篇：【delphi源码】动态创建webbrowser的方法。

下一篇:【delphi源码】检测网页能否打开函数