VFP中确定驱动器类型的两几种方法-先飞网电脑教程文章

>> 我们从网络和杂志上收集了近100000余篇各类电脑技术、网络技术、软件技术等方面的文章教程,我们的收录原则:不是精华拒不收录!

VFP中确定驱动器类型的两几种方法

［作者：佚名转贴自：本站原创阅读次数：14 更新时间：2005-11-30 12:49:00 录入：刘光勇］

在应用程序的设计中，有时我们需要知道用户的驱动器的配置情况，在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

上一篇:如何解决VFP6中文版安装错误下一篇: VFP处理JPG图像文件方法谈