GetDriveTypeA() 查看驱动器类型

{GetDriveType}
//调用 GetDriveTypeA(Memo1);
procedure   GetDriveTypeA ( Memo : TMemo );
var 
             i :  Integer ;
             C : String ; 
         DType :  Integer ;
   DriveString : String ; 
begin
   //通过循环依次判断各盘符的类型
   Memo . Clear ;
   for  i := 65  to  90  do
   begin
     C := chr ( i )+ ':\' ;
     DType := GetDriveType ( PChar ( C ));
     case  DType  of
       0 :  DriveString    := C + ' 不能判断的驱动器类型.' ;
       1 :
         DriveString     := C + ' 根目录不存在.' ;
         DRIVE_REMOVABLE :  DriveString := C + ' 可移动驱动器' ;
         DRIVE_FIXED     :  DriveString := C + ' 硬盘驱动器.' ;
         DRIVE_REMOTE    :  DriveString := C + ' 网络驱动器.' ;
         DRIVE_CDROM     :  DriveString := C + ' 光盘驱动器.' ;
         DRIVE_RAMDISK   :  DriveString := C + ' 虚拟硬盘.' ;
     end ;
     Memo . Lines . Add ( DriveString );
   end ;
end ;

 

通过 为知笔记 发布

附件列表

• flash.png