function  GetFileSize

function  GetFileSize(AFileName : string) : integer;

Возвращает размер файла с указанным именем в байтах. В случае ошибки (файл не найден, ошибка доступа) возвращается размер "-1".

В имени файла допустимо указывать макросы, подробнее см. в разделе "макросы, допустимые в именах файлов"

Пример:

begin

 AddToLog(IntToStr(GetFileSize('%System32%\notepad.exe')));

end.