Changeset 650 for trunk/ab5.0/ablib/src/Classes/System

Timestamp:

Oct 29, 2008, 3:50:24 AM (15 years ago)

Author:

NoWest

Message:

EnvironmentクラスにGetLogicalDrivesメソッドを追加しました。

File:

• trunk/ab5.0/ablib/src/Classes/System/Environment.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Environment.ab

@@ -178 +178 @@
     End Function
 
-    ' GetLogicalDrives
+    /*!
+    @brief  コンピュータの論理ドライブの名前を格納している文字列の配列を取得
+    @author NoWest
+    @date   2008/10/29
+    */
+    Static Function GetLogicalDrives() As System.Collections.Generic.IList<String>
+        Dim ret = New System.Collections.Generic.List<String>
+
+        Dim buf As *Char
+        buf = GC_malloc( 256*SizeOf(Char) )
+        Dim length = GetLogicalDriveStrings( 256, buf )
+        If length > 256 Then 
+            buf = realloc(buf, length * SizeOf(Char) )
+            length = GetLogicalDriveStrings( length, buf )
+        ElseIf length = 0 Then
+            Return ret
+        End If
+#ifdef UNICODE
+        Dim strbuf = New System.String( buf As PCWSTR, length As Long )
+#else
+        Dim strbuf = New System.String( buf As PCSTR, length As Long )
+#endif
+        Dim startpos = 0 As Long
+        length = 3
+        While True
+            ret.Add( strbuf.Substring(startpos,length) )
+            startpos += (length+1)
+            If startpos > strbuf.Length()-1 Then Return ret
+        Wend
+    End Function
 
     Static Sub SetEnvironmentVariable(variable As String, value As String)