fonction GetFileSize (const FileName: string): Integer;
var
sr: TSearchRec;
commencer
Résultat: = 0;

si FindFirst (FileName, faAnyFile, sr) = 0 alors
commencer
Résultat: = sr.Size;
FindClose (sr);
fin;
fin;

Average rating:
EMAIL ARTICLE
PRINT ARTICLE
Bookmark this article:    

Be the First to Comment on this Article