İnternet adresi aktifmi

uses wininet;

Function CheckUrl(url:string):boolean;
var
hSession, hfile, hRequest: hInternet;
dwindex,xdwcodelen :dword;
dwcode:array[1..20] of char;
xres : pchar;
begin
  if pos('http://',lowercase(url))=0 then
     url := 'http://'+url;
  Result := false;
  hSession := InternetOpen('InetURL:/1.0',
       INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
  if assigned(hsession) then
    begin
      hfile := InternetOpenUrl(
           hsession,
           pchar(url),
           nil,
           0,
           INTERNET_FLAG_RELOAD,
           0);
      dwIndex  := 0;
      xdwcodelen := 10;
      HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,
              @dwcode, xdwcodelen, dwIndex);
      res := pchar(@dwcode);
      result:= (xres='200') or (xres='302');
      if assigned(hfile) then
        InternetCloseHandle(hfile);
      InternetCloseHandle(hsession);
    end;

end;

Kullanımı :
procedure TForm2.Button2Click(Sender: TObject);
begin
  if CheckUrl(Edit1.Text) then
   Label2.Caption := 'Çalışıyor'
  else
   Label2.Caption := 'Çalışmıyor'
end;