Changeset 142 for Include/Classes/System/IO/DriveInfo.ab

Timestamp:

Mar 9, 2007, 10:15:34 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

Environment, OperatingSystem, Versionの追加、Unicode対応修正ほか

File:

• Include/Classes/System/IO/DriveInfo.ab (modified) (3 diffs)

Include/Classes/System/IO/DriveInfo.ab

@@ -35 +35 @@
 
     Function DriveFormat() As String
-        Dim systemName As String
-        systemName.ReSize(15)
-        If GetVolumeInformation(m_DriveName, NULL, NULL, NULL, NULL, NULL, systemName, 16) Then
+        Dim systemName[15] As TCHAR
+        If GetVolumeInformation(m_DriveName, NULL, NULL, NULL, NULL, NULL, systemName, Len (systemName)) Then
             Return systemName
         Else
@@ -48 +47 @@
     End Function
 
-    Function IsReady() As BOOL
+    Function IsReady() As Boolean
         If GetVolumeInformation(m_DriveName, NULL, NULL, NULL, NULL, NULL, NULL, NULL) Then
-            Return _System_TRUE
+            Return True
         Else
-            Return _System_FALSE
+            Return False
         End If
     End Function
@@ -82 +81 @@
 
     Function VolumeLabel() As String
-        Dim volumeName As String
-        volumeName.ReSize(63)
+        Dim volumeName[63] As TCAHR
         If GetVolumeInformation(m_DriveName, volumeName, 64, NULL, NULL, NULL, NULL, NULL) Then
             Return volumeName