[Speech]

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

Код:

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

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

[NumLock]

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

Код:

1 2 3 4 5 6 7

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]

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