Статьи
|
 Когда Вы в своих приложениях Delphi работаете с файлами и папками, иногда бывает нужно узнать размер файла (в байтах). Для того, чтобы получить размер файла, используйте функцию FileSize, которая возвращает размер файла в байтах, или -1, если файл не был найден.
// возвращает размер файла в байтах
// или -1, если файл не найден
function FileSize(fileName : wideString) : Int64;
var
sr : TSearchRec;
begin
if FindFirst(fileName, faAnyFile, sr ) = 0 then
result := Int64(sr.FindData.nFileSizeHigh)
shl Int64(32) + Int64(sr.FindData.nFileSizeLow)
else
result := -1;
FindClose(sr) ;
end;
// Пример использования
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= IntToStr(Filesize('C:\Windows\Notepad.exe'));
end;
|