[Speech]

Качал странички с сайта Вконтакте, использовал всегда эту строку и все работало:

Код:

Result:= UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;

А теперь в скаченной страничке появляется текст "Вы используете устаревший браузер".
Как решить это?

[NumLock]

Вызывай UrlMkSetSessionOption до вызова URLDownloadToFile:

Код:

var
  s: String;
begin
  s:='Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.84 Safari/537.36 OPR/38.0.2220.31';
  if UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, @s[1], Length(s), 0)<>S_OK then raise Exception.Create('Oops');
  if URLDownloadToFile(nil, 'https://vk.com/s.kalaeva', 'kalaeva.htm', 0, nil)<>S_OK then raise Exception.Create('Oops');
end;

[Speech]

Спасибо, помогло!