Funktion GetFileSize (const FileName: string): Integer;
var
sr: TSearchRec;
beginnen
Result: = 0;

wenn FindFirst (FileName, faAnyFile, sr) = 0, dann
beginnen
Result: = sr.Size;
FindClose (sr);
end;
end;

Average rating:
EMAIL ARTICLE
PRINT ARTICLE
Bookmark this article:    

Be the First to Comment on this Article