delphi - 轻松获取应用程序exe大小

Question

Delphi 中有没有一种方法可以通过一两行代码获取当前应用程序的 exe 大小？

Answer 1

只是为了笑……你也可以用流来做到这一点，只需略多于 2 行代码。通常，应用程序文件名(包括路径)也存储到 Paramstr(0) 中。

var
  fs : tFilestream;
begin
  fs := tFilestream.create(paramstr(0),fmOpenRead or fmShareDenyNone);
  try
    result := fs.size;
  finally
    fs.free;
  end;
end;