Üye Kayıt Üye Giriş

Dosya Boyutunu Bulma


Dosya Boyutunu Bulma

 
procedure TForm1.Button1Click(Sender: TObject);
var
  srFileSR: TSearchRec;
  sFileName, sFileSize: string;
begin
  sFileName := 'c:\deneme.zip';
  FindFirst(sFileName,faAnyFile,srFileSR);
  sFileSize := IntToStr(srFileSR.Size);
  Showmessage(sFileSize);
end;
 
 
Bilgisayar Dershanesi Ders Sahibi;
Bilgisayar Dershanesi

Yorumlar

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

ETİKETLER