função GetFileSize (const FileName: string): Integer;
var
sr: TSearchRec;
começo
Resultado: = 0;

se FindFirst (FileName, faAnyFile, sr) = 0 então
começo
Resultado: = sr.Size;
FindClose (sr);
final;
final;

Average rating:
EMAIL ARTICLE
PRINT ARTICLE
Bookmark this article:    

Be the First to Comment on this Article