Сегодня рассмотрим показательный пример, как можно узнать размер нужного файла на Дельфи…

С самого начала создаём функцию GetFileSize, которая нам определит размер файла в дальнейшем.

function GetFileSize(FileName: string): Integer;

var

FS: TFilestream;

begin

try

FS := TFilestream.Create(Filename, fmOpenRead);

except

Result := -1;

end;

if Result <> -1 then

Result := FS.Size;

FS.Free;

end;

Для наглядности попробуем результат размера самого файла поместить в ShowMessage

procedure TForm1.FormCreate(Sender: TObject);

begin

ShowMessage(IntTostr(GetFileSize('C:\FileSize.exe')));

end;

Когда мы запустим программу, окно откроется с размером нашего файла FileSize.exe, находится который в компьютере именно на диске C.

Следует здесь также отметить, что сам размер показан будет именно в байтах.

Спонсор поста: красочные обои для рабочего стола предлагает gandex.ru. На нашем сайте представлены не только высочайшего качества заставки для рабочего стола, но и также очень красивые фото,  картинки и скринсейверы.