-=> Quoting Francois Thunus to Dmitry M Golubovsky <=-

 FT> Hello Dmitry!

 FT> 11 Mar 97 09:59, Dmitry M Golubovsky wrote to Rob Hamerling:
 
 DMG> To ALL but maybe a little off topic: what methods may be used to
 DMG> determine filesystems one from another? Looking to the partition
 DMG> table seems to be too trivial but not all medias have it.

This code is plagurized from code originally released by Mr Fitzsimmons. It 
has been converted to pascal and cropped specifically to detect only HPFS. 
Peter's original code detected a number of things aside from this and included 
errorchecking not shown here.

function HPFS (drv:char):boolean;
var
rc,len:longint;
dev:cstring;
PBTR:PFsqBuffer2;
BUFF:ARRAY[1..2048] OF CHAR;
p:string;
DNAME:STRING;
DTYPE:STRING;
DDATA:STRING;
begin
HPFS:=FALSE;
PBTR:={at}BUFF[1];
if (drv < 'C') then exit;
p:=drv+':'+#0;
move(p[1],dev,3);
len := 2048;
rc:=DosQueryFSAttach(dev, 0, FSAIL_QUERYNAME, Pbtr^, len);
if rc  0 then exit;
DNAME[0]:=chr(lo(pBtr^.CBNAME));
DTYPE[0]:=chr(lo(pBtr^.CBFSDNAME));
DDATA[0]:=chr(lo(pBtr^.CBFSADATA));
move(buff[10+pBtr^.CBNAME],dtype[1],pBtr^.CBfsdNAME);
HPFS:=dtype='HPFS';
end;

... THD ProScan support on the web, http://www.naples.net/~nfn03274
--- Blue Wave v2.12