时间: 2021-07-31 作者:daque
在运用步调的安排中,偶尔咱们须要领会用户的启动器的摆设情景,在vfp中有多种本领不妨实行,现引见如次: 一、经过挪用getdrivetype api因变量来实行。 底下的代码就不妨检索出体例中一切的启动器: 表单的activate本领: declare long getdrivetype in "kernel32" string ndrive dime i, drvname, drvtype for i = 0 to 25 drvname = chr(i + 65) + ":" drvtype = getdrivetype(drvname) do case case drvtype = 2 print "启动器" + drvname + "是一个软盘启动器" case drvtype = 3 print "启动器" + drvname + "是一个硬盘启动器" case drvtype = 4 print "启动器" + drvname + "是一个可移去式启动器或搜集启动器" case drvtype = 5 print "启动器" + drvname + "是一个cd-rom启动器" case drive_ramdisk print "启动器" + drvname + "是一个ram 盘" case else endccase next i 二、运用foxtolls.fll中的drivetype因变量。 表单的activate本领: set libriry to foxtools.fll dime i, drvname, drvtype for i = 0 to 25 drvname = chr(i + 65) + ":" drvtype = drivetype(drvname) do case case drvtype = 2 print "启动器" + drvname + "是一个软盘启动器" case drvtype = 3 print "启动器" + drvname + "是一个硬盘启动器" case drvtype = 4 print "启动器" + drvname + "是一个可移去式启动器或搜集启动器" case drvtype = 5 print "启动器" + drvname + "是一个cd-rom启动器" case drive_ramdisk print "启动器" + drvname + "是一个ram 盘" case else endccase next i