Я хочу проверить, что файл имеет действительный 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 (для большого файла). Мне нужно ваше предложение о моем коде или, возможно, новый код?
Спасибо