轻松获取应用程序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;

Answer 2

它没有你想要的那么小，但它不需要把手。 我在所有必须知道其大小的“SFX”存档器和程序中使用它。 IIRC 它需要 Windows 设备。

function GetExeSize: cardinal;
var
  p: pchar;
  i, NumSections: integer;
const
  IMAGE_PE_SIGNATURE  = $00004550;
begin
  result := 0;
  p := pointer(hinstance);
  inc(p, PImageDosHeader(p)._lfanew + sizeof(dword));
  NumSections := PImageFileHeader(p).NumberOfSections;
  inc(p,sizeof(TImageFileHeader)+ sizeof(TImageOptionalHeader));
  for i := 1 to NumSections do
  begin
    with PImageSectionHeader(p)^ do
      if PointerToRawData+SizeOfRawData > result then
        result := PointerToRawData+SizeOfRawData;
    inc(p, sizeof(TImageSectionHeader));
  end;
end;

Answer 3

为了将来的兼容性，您应该尽可能选择不需要指针或 Windows API 函数的实现。 skamradt 提供的基于 TFileStream 的解决方案对我来说看起来不错。

但是...您不必太担心该例程是 1 行代码还是 10 行代码，因为无论如何您都会将其封装在一个函数中，该函数以文件名作为参数并返回 Int64，并将其放入您的个人可重用代码库。 然后你可以像这样调用它：

GetMyFileSize(Application.ExeName);

Answer 4

你可以试试这个：

  if FindFirst(ExpandFileName(Application.exename), faAnyFile, SearchRec) = 0 then
    MessageDlg(Format('Tamaño: <%d>',[SearchRec.Size]), mtInformation, [mbOK], 0);
  FindClose(SearchRec);

===============
内夫塔利

Answer 5

流也可以在没有 TFileStream 变量的情况下使用：

with TFilestream.create(paramstr(0), fmOpenRead or fmShareDenyNone) do 
  aFileSize := Size;
  Free;
end;

丑陋，是的。

我更喜欢使用 DSiWin32 中的 DSiFileSize。 它在内部使用 CreateFile：

function DSiFileSize(const fileName: string): int64;
var
  fHandle: DWORD;
begin
  fHandle := CreateFile(PChar(fileName), 0, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if fHandle = INVALID_HANDLE_VALUE then
    Result := -1
  else try
    Int64Rec(Result).Lo := GetFileSize(fHandle, @Int64Rec(Result).Hi);
  finally CloseHandle(fHandle); end;
end; { DSiFileSize }

Answer 6

不幸的是，如果不使用某些库，仅用一两行代码就不可能做到这一点。

最简单的部分是获取应用程序的 exe 文件。 您可以在 Application.ExeName 中找到它。

一般来说，检索文件大小有多种可能性：

1. 打开文件并读取流的大小。 这可以使用“旧”Delphi 函数 FileOpen 和 FileSize 或使用 TFileStream（使用 size属性）或使用 Win32 API 函数 CreateFile 和 GetFileSize 函数。 （取决于平台！）确保以只读访问权限打开文件。
2. 在纯 Win32 环境中，您可以使用 FindFirst 来获取文件大小。 您可以从TSearchRec.FindData.nFileSizeLow读取它。 如果您想为大于 2 GB 的文件做好准备（您应该这样做），您还必须使用 nFileSizeHigh 部分。
3. 在 Delphi.NET 中，您可以使用 System.IO.FileInfo，如下所示： FileInfo.Create(filename).Length （单行）
4. 在 Linux 中，您可以使用lstat64 函数（Unit Libc）并从 TStatBuf64.st_size 获取大小。 （如果不计算变量声明，则为两行）

在 JCL 库 中，您可以找到许多有用的函数，包括一个返回给定文件名的文件大小的简单函数。 （它使用适合给定平台的方法）

Answer 7

uses IdGlobalProtocols;

var
  ExeSize: Int64;
begin
  ExeSize := FileSizeByName(ParamStr(0)); 
  // or
  ExeSize := FileSizeByName(Application.ExeName);
end;

Answer 8

我想修改 skamradt 提供的代码，使其成为您要求的两行代码;-)

  with tFilestream.create(paramstr(0),fmOpenRead or fmShareDenyNone) do
    ShowMessage(IntToStr(size));

但我更愿意使用 skamradt 编写的代码，因为它更安全

Answer 9

我能做的最短的。 请注意，.Size 以字节为单位，因此对于千字节，请除以 1024。

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TFileStream.Create(Application.ExeName,fmShareDenyNone) do
    ShowMessage(FloatToStr(Size/1024));
end;

查看 这个链接。