【delphi源码】检测网页能否打开函数

系统API函数
uses WinInet;
返回值：
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;