<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      VFP中確定驅動器分類的2幾種方法
                
                  發表時間：2023-08-01             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]在應用程序的設計中，有時我們需要知道用戶的驅動器的配置情況，在VFP中有多種方法可以實現，現介紹如下：    一、通過調用GetDriveType API函數來完成。    下面的代碼就可以檢索出系...
          在應用程序的設計中，有時我們需要知道用戶的驅動器的配置情況，在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


              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清