• Registered: 2014-02-17
  • Posts: 365

Topic: How To Use Function GetFileSize To xxx mb.

Form1.Caption := IntToStr(GetFileSize(application.exename));

How To Converter size to byte,mb,gb

My Visual Database : I Love You
Easy For Beginner Student For Me
  • Registered: 2014-02-14
  • Posts: 10,294

Re: How To Use Function GetFileSize To xxx mb.

var
    d: int64;
    i: integer;
begin
    d := GetFileSize(application.exename);
    i := d;
    Form1.Caption := IntToStr(i); // bytes
    Form1.Caption := FloatToStr(i/1024); //kb
    Form1.Caption := FormatFloat('0.00', i/(1024*1024));  //mb
    Form1.Caption := FormatFloat('0.00', i/(1024*1024*1024));  //gb
Dmitry.
  • Registered: 2014-02-17
  • Posts: 365

Re: How To Use Function GetFileSize To xxx mb.

Thank You  Dmitry.
It Easy For View Size .

My Visual Database : I Love You
Easy For Beginner Student For Me