URL前可能有 http:// 前缀，却省情况也是 http:// 作前缀,函数 internetOpenUrl 对 FTP:// 和 gopher:// 前缀均提供支持。

  例子中我检查返回代码是否为 '200' 和 '302'（重定位标记），你也可以按你的需要修改返回码. 仅修改 the result := 表达式 这句即可.

  uses wininet;

  Function CheckUrl(url:string):boolean;

  var

  hSession, hfile, hRequest: hInternet;

  dwindex,dwcodelen :dword;

  dwcode:array[1..20] of char;

  res : 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;

  dwCodeLen := 10;

  HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE,

  @dwcode, dwcodeLen, dwIndex);

  res := pchar(@dwcode);

  result:= (res ='200') or (res ='302');

  if assigned(hfile) then

  InternetCloseHandle(hfile);

  InternetCloseHandle(hsession);

  end;

  end;