Get Exact File Size Using Delphi

Do not get messed with Windows API CreateFile(), OpenFile() and GetFileSize() to only get a file’s actual size. Using VCL component API wrapper TFileStream, we can do this faster:

We Need This Reusable Function

function ObtainFileSize(const AFile: String): Int64;
begin
 with TFileStream.Create(AFile, fmOpenRead or fmShareDenyNone) do
 begin
 try
 Result := Size;
 finally
 Free;
 end;
 end;
end;

We Use It Like This

procedure TForm1.Button1Click(Sender: TObject);
var
 AFile: String;
 iSize: Int64;
begin
 AFile := Application.ExeName;
 iSize := ObtainFileSize(AFile);
 ShowMessage('Application EXE size: ' + IntToStr(iSize));d
end;

And Here’s Its Result

Related Topic

Contoh Program Aplikasi Menjalankan Perintah Command Prompt Dengan Sekali KlikSave And Load QRCode To/From FileDelphi Sample Application – 4Shared MP3 Finder, Player & DownloaderThe Most Used Delphi VersionTPeriodeBulan: Delphi VCL For Month And Year Selection

Incoming search terms:

• delphi file size
• delphi get file size
• delphi filesize
• delphi getfilesize
• opendialog in unigui
• getfilesize delphi
• delphi get filesize
• file size delphi
• get file size delphi
• unigui opendialog

Comments

comments

Powered by Facebook Comments