internet bağantısının kontrol edilmesi

uses UrlMon,WinInet;

function netbaglantiknt: boolean;
const
  FLAG_ICC_FORCE_CONNECTION =  $00000001;
  ERROR_NO_CONNECTION = $000002A8;
  ERROR_USER_DISCONNECTION = $00000277;
  URL = 'http://www.google.com';
begin
  if InternetCheckConnection(PChar(URL), FLAG_ICC_FORCE_CONNECTION, 0) then
   Result := true
  else
   Result := false;
end;