如何检测光盘的盘符！！能不能告诉我一下GetDriveType()怎么用啊！！

[dr7801]

能不能告诉我一下GetDriveType()怎么用啊！！

[sorrow_arrow]

Function ulong GetDriveType(ref string nDrive) LIBRARY "kernel32.dll" ALIAS FOR "GetDriveTypeA"
【函数】
GetDriveType

【操作系统】
Win9X:Yes
WinNT:Yes

【声明】
GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

【说明】

判断一个磁盘驱动器的类型

【返回值】

Long，如驱动器不能识别，则返回零。如指定的目录不存在，则返回1。如执行成功，则用下述任何一个常数指定驱动器类型：DRIVE_REMOVABLE，
DRIVE_FIXED， DRIVE_REMOTE， DRIVE_CDROM 或 DRIVE_RAMDISK

【其它】


【参数表】
nDrive --------- String，包含了驱动器根目录路径的一个字串

[yeag]

integer li_i,li_start,li_end
string ls_CDRoms=""

li_start=Asc("A")
li_end=Asc("Z")

FOR li_i=li_start TO li_end
as_RootPathName=Left(Char(li_i),1)+":"

CHOOSE CASE GetDriveTypeA(as_RootPathName)
CASE 2
ls_DriveType="REMOVABLE"
CASE 3
ls_DriveType="FIXED"
CASE 4
ls_DriveType="REMOTE"
CASE 5
ls_DriveType="CDROM"
CASE 6
ls_DriveType="RAMDISK"
CASE ELSE
SetNull(ls_DriveType)
END CHOOSE
IF ls_DriveType="CDROM" THEN ls_CDRoms=ls_CDRoms+Char(li_i)
NEXT

RETURN ls_CDRoms

(ls_CDRoms)为光盘盘符

[daiwoo_wang]

Uint lui_RC
string drv_name

as_drive = upper(as_drive) + ":\"

lui_RC = GetDriveTypeA (as_drive)

Choose Case lui_RC
Case 2
Return 1

Case 3
Return 2

Case 4
Return 3

Case 5
Return 4

Case Else
Return 0
End Choose

函数的用法同上，此处返回4时是CDROM，3是网络驱动器NETDRIVER，2是硬盘驱动器，1是软驱

[fancyd]

怎么发重贴？
http://www.csdn.net/expert/topic/557/557965.xml

[redhandgirl]

long of_getdrivetype(string as_driver)
//参数：as_driver 驱动器名，如“C:\”
//返回：ll_DriveType 驱动器类型：
// 0 The drive type cannot be determined.
// 1 The root directory does not exist.
// 2 DRIVE_REMOVABLE 可移动磁盘
// 3 DRIVE_FIXED 硬盘
// 4 DRIVE_REMOTE 网络驱动器
// 5 DRIVE_CDROM 光驱
// 6 DRIVE_RAMDISK RAM


long ll_DriveType

// 取驱动器类型
ll_DriveType = GetDriveType (as_driver)

return ll_DriveType



在一个窗口里面调用该函数

integer li_i , li_rtn
string ls_driver[26] = &
{"A:\","B:\","C:\","D:\","E:\","F:\","G:\","H:\","I:\","J:\",&
"K:\","L:\","M:\","N:\","O:\","P:\","Q:\","R:\","S:\","T:\","U:\", &
"V:\","W:\","X:\","Y:\","Z:\"}


for li_i = 1 to 26
// 取驱动器类型
li_rtn = w_see.of_getdrivetype( ls_driver[li_i])
choose case li_rtn
case 2

ddplb_drive.additem(ls_driver[li_i]+" 软驱",2)
case 3
ddplb_drive.additem(ls_driver[li_i]+" 硬盘",2)
// case 4
// ddlb_1.additem(ls_driver[li_i]+" 网络驱动器")
case 5
ddplb_drive.additem(ls_driver[li_i]+" 光驱",2)
end choose
next