Changeset 667

Timestamp:

Dec 28, 2008, 6:51:49 PM (15 years ago)

Author:

NoWest

Message:

Environment.GetLogicalDrivesメソッド内でPCWSTRとPCSTRを分けていましたが、PCTSTRに統一しました。

File:

• trunk/ab5.0/ablib/src/Classes/System/Environment.ab (modified) (2 diffs)

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

@@ -181 +181 @@
     @brief  コンピュータの論理ドライブの名前を格納している文字列の配列を取得
     @author NoWest
-    @date   2008/10/29
+    @date   2008/12/28
     */
     Static Function GetLogicalDrives() As System.Collections.Generic.IList<String>
@@ -195 +195 @@
             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 strbuf = New System.String( buf As PCTSTR, length As Long )
         Dim startpos = 0 As Long
         length = 3