Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как узнать размер файла в интернете?

01.01.2007
uses wininet;
...
function GetUrlSize(const URL:string):integer;//результат в байтах
var
  hSession
,hFile:hInternet;
  dwBuffer
:array[1..20] of char;
  dwBufferLen
,dwIndex:DWORD;
begin
Result:=0;
hSession
:=InternetOpen('GetUrlSize',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;
 dwBufferLen
:=20;
 
if HttpQueryInfo(hFile,HTTP_QUERY_CONTENT_LENGTH,@dwBuffer,dwBufferLen,dwIndex) then Result:=StrToInt(StrPas(@dwBuffer));
 
if Assigned(hFile) then InternetCloseHandle(hFile);
 
InternetCloseHandle(hsession);
end;
end;

Взято из https://forum.sources.ru

Автор: P.O.D.