Functions.DiskChange 方法 |
命名空间: XSharp.Core
1IF DiskChange("D:") 2 ? "成功更改" 3ELSE 4 ? "未更改" 5ENDIF
1FUNCTION AllDrives() 2 LOCAL wI AS DWORD 3 LOCAL cDrives AS STRING 4 cDrives := NULL_STRING 5 FOR wI := 1 UPTO 27 6 IF DiskChange(Chr(wI +64)) 7 cDrives := cDrives + Chr(wI+64) 8 ENDIF 9 NEXT 10 RETURN cDrives