申请外部API函数(窗口级)Local External Functions
FUNCTION ulong GetDriveTypeA(string nDrive) LIBRARY "kernel32.dll"
long rtn
rtn = GetDriveTypeA(as_drive + ":\")
Choose case rtn
Case 2
messagebox(as_drive+":\","这是软驱")
Case 3
messagebox(as_drive+":\","这是硬盘")
Case 4
messagebox(as_drive+":\","这是网络驱动器")
Case 5
messagebox(as_drive+":\","这是光驱")
Case 6
messagebox(as_drive+":\","RAM Disk")
End Choose