program IsFileExists;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils,

  WinInet;

 

var

  FSession, FConnect: HINTERNET;

  StatusCode, Len, Res: Cardinal;

begin

  try

    FSession := InternetOpen('', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

    if not Assigned(FSession) then Exit;

    try

      FConnect := InternetOpenUrl(FSession,

        'http://rouse.drkb.ru/other/vista.jpg', nil, 0, 0, 0);

      if not Assigned(FConnect) then Exit;

      try

        Len := 4;

        StatusCode := 0;

        Res := 0;

        HttpQueryInfo(FConnect, HTTP_QUERY_STATUS_CODE or

          HTTP_QUERY_FLAG_NUMBER, @StatusCode, Len, Res);

        // если сервер на запрос вернул 200 - файл сущетвует

        writeln(StatusCode = 200);

        readln;

      finally

        InternetCloseHandle(FConnect);

      end;

    finally

      InternetCloseHandle(FSession);

    end;

  except

    on E:Exception do

      Writeln(E.Classname, ': ', E.Message);

  end;

end.