GetFileSize

谢谢楼主，通过该API是可以获取，但我想知道如何可以从PE头取得。

这个还要请高手回答

没有办法由 PE 文件结构准确确定文件的大小，因为 PE 文件后面可能附加有数据（copy /b）。
纯粹 PE 文件本身的大小可以这样计算：

////////////////////////////////////////////////////////////////////////////////
//功能: 获取文件大小
//参数:
////////////////////////////////////////////////////////////////////////////////
function GetExeSize(Instance: LongWord = 0): Cardinal;
var
  p: Pchar;
  nSectCount, I: Integer;
begin
  Result := 0;
  if Instance = 0 then
    p := Pointer(HInstance)
  else p := Pointer(Instance);
  Inc(p, PImageDosHeader(p)._lfanew + SizeOf(DWORD));
  nSectCount := PImageFileHeader(p).NumberOfSections;
  Inc(p, SizeOf(TImageFileHeader)+ SizeOf(TImageOptionalHeader));
  for I := 0 to nSectCount - 1 do
  begin
    with PImageSectionHeader(p)^ do
      if PointerToRawData + SizeOfRawData > Result then
        Result := PointerToRawData + SizeOfRawData ;
    Inc(p, SizeOf(TImageSectionHeader));
  end;
end;

谢谢楼上这位兄弟，试计算了几个文件，确实如此，正常情况下编译出的PE文件应该就这样计算了。