Anasayfa > Kodlar > Delphi ile Dosya boyutunu öğrenmek için

Delphi ile Dosya boyutunu öğrenmek için

function TForm1.Dosya_Boyut_Ogren(Dosya_Adi:String): string;
var
f: file of Byte;
size : Longint;
S: string;
begin
AssignFile(f, Dosya_Adi);
Reset(f);
size := FileSize(f);
Dosya_Boyut_Ogren := IntToStr(size);
CloseFile(f);
end;
{<---------------------------------------------------------------------------->}

Örnek :
Label1.Caption := Dosya_Boyut_Ogren('C:AutoExec.bat');


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: