Hej Tosh!

Tuesday December 05 1995, Tosh Maddox writes to All:

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

For Virtual Pascal, the following snippet works:

Uses
  Use32, Os2Def, Os2Base, Strings;

function IsHPFS(Drive : Char) : Boolean;
Var
  rc        : Word;
  Buffer    : FSAllocate;
  DrvName   : String[3];
  Ordinal   : SmallWord;
  FSQb      : pFSQBuffer2;
  BufLen    : Word;
  name      : pChar;

begin
  Drive := UpCase( Drive );

  BufLen := 100;
  GetMem( FSQb, BufLen );
  DrvName := Drive+':'#0;
  Ordinal := 0;
  rc := DosQueryFSAttach( {at}DrvName[1], Ordinal, fsail_QueryName, FSqb, BufLen );
  If rc  0 then
    IsHPFSDrive := False
  else
    With FsqB^ do
      begin
        Name := szName + cbName + 1;
        IsHPFSDrive := ( strComp( Name, 'HPFS' ) = 0 );
      end;
  end;


Allan Mertner
Development Manager, Virtual Pascal for OS/2
e-mail : vpascal{at}ibm.net

--- GoldED 2.50.A0531+