发信人: foxzz()
整理人: hunter__fox(2002-03-16 21:48:54), 站内信件
|
请参考：
经过测试，代码如下：
*!*********************
PROC GETCDDRV
Declare INTEGER GetDriveType IN WIN32API STRING nDrive
LOCAL DRV_ORDER,DRV_TYPE,DRV_CODE
FOR DRV_ORDER=1 TO 25
DRV_CODE=CHR(DRV_ORDER+65)+":\"
DRV_TYPE=GETDRIVETYPE(DRV_CODE)
&& ? DRV_TYPE
&& 0 "不明";2 "软盘";3 "硬盘";4 "网络盘";5 "光盘";6 "RamDisk"
IF DRV_TYPE=5
RETURN DRV_CODE
ENDIF
ENDFOR
RETURN ""
|
|