delphi - 有效 IMAGE_DOS_SIGNATURE

Question

我想检查文件是否具有有效的 IMAGE_DOS_SIGNATURE (MZ)

function isMZ(FileName : String) : boolean;
var
 Signature: Word;
 fexe: TFileStream;
begin
result:=false;
try
  fexe := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  fexe.ReadBuffer(Signature, SizeOf(Signature));
  if Signature = $5A4D { 'MZ' } then
  result:=true;
finally
fexe.free;
end;
end;

我知道我可以在Windows单元中使用一些代码来检查IMAGE_DOS_SIGNATURE。问题是我想要最快的方式来检查 IMAGE_DOS_SIGNATURE (对于大文件)。我需要您对我的代码或者新代码提出一些建议？

谢谢

Answer 1

文件的大小并不重要，因为您的代码仅读取前两个字节。

分配和使用 TFileStream 的任何开销(在到达 Win32 ReadFile 之前会经过 SysUtils.FileRead)，应该几乎是不可见的与在唯一重要的情况下(即扫描数百个可执行文件)的搜索成本相比，噪音。

使用原始 WinAPI 调整 Windows 缓存可能会带来一些好处，但我预计它的好处非常有限。