如何判断某一文件为access的mdb文件? ( 积分: 100 )

如何判断某一文件为access的mdb文件?

Function IsAccess(AFileName : String):Boolean;
const
Flag = 'Standard Jet DB';
FlagSize = Length(Flag);
var
hFile : Cardinal;
Header : String;
begin
Result := False;
hFile := FileOpen(AFileName, fmOpenRead or fmShareDenyNone);
if hFile = INVALID_HANDLE_VALUE then
Exit;
SetLength(Header, FlagSize);
FileSeek(hFile, 4, FILE_BEGIN);
FileRead(hFile, PChar(Header)^, FlagSize);
Result := Flag = Header;
FileClose(hFile);
end;

可以查看文件头!!

谢谢!

多人接受答案了。