-=> Quoting Tosh Maddox to All <=-

 TM> Does anyone have a snippet of code to detect a HPFS drive in OS/2
 TM> using  either Turbo Pascal, BPOS2v_2 (c't), or VP, could you please
 TM> post a small  sample?

    For VP Based on original "C" code by Peter Fitzsimmons. Peter and Mike 
will both warn that this will not work on a NETWORKED CD-ROM.

FUNCTION HPFS (drv:char):boolean;
 VAR
   rc,len                 : longint;
   dev                    : pchar;
   PBTR                   : PFsqBuffer2;
   BUFF                   : ARRAY[1..2048] OF CHAR;
   p, DNAME, DTYPE, DDATA : STRING;

BEGIN
   HPFS := FALSE;
   PBTR := {at}BUFF[1];
   P    := drv+':'+#0;
   dev  := {at}p[1];
   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;

... Ask your Fido HUB for THDPRO support. NOW!!!
~~~ TGWave v1.02 Beta-03+
--- GEcho 1.11+