#Define MAX_FILENAME_LEN 256 SET PROCEDURE TO CALL32 SET LIBRARY TO home()+"FOXTOOLS" ADDITIVE lhcall32 = Reg32("GetVolumeInformation", "Kernel32.dll", "ppippppi") lhGV = RegFP("C@CL@L@L@L@CL", "L") Store 0 to ser,i,j Store space(256) to s,s2 lcVolume = "C:\" = CallFn(lhGV, lcVolume, @s, MAX_FILENAME_LEN, @ser, @i, @j, @s2, MAX_FILENAME_LEN, lhcall32) ? ser>Here is the code (with Rick's stuffs)
> >*** Front end routines for Call32 Interface >set defa to f:\temp3\tests\ > >SET PROCEDURE TO CALL32 > >SET LIBRARY TO home()+"FOXTOOLS" ADDITIVE >CLEAR > >cVolume=Reg32("GetVolumeInformation", "CCI@@@CI", "I") && it hangs here > >=CallFn(cVolume, "C:\", s, MAX_FILENAME_LEN, @ser, @i, @j, s2, MAX_FILENAME_LEN) >return >