Description:
With ULEDIT Research Access2000 Format MDB files starting from 9C to "4.0", 97 is not, the functions written in Delphi are as follows:
Function isaccess2000 (FilePath: String): Boolean;
/ / Decision of the file is Access2000 format, shirong21cn @ 163.comConst VERADDR = $ 9c; var strbuf: array [0..2] of byte; f: tfilestream; i: integer; p: pchar; begin f: = tfilestream. Create (filepath, fmsharedenynne); try f.seek (veraddr, sofrombeginning); F.Read (strbuf, 3); p: = @ strbuf; if p = '4.0' Then Result: = true else result: = false; finally f.free;
Why no one reflects the opinion? I deleted it!
END;
