Changeset 699

Timestamp:

Mar 31, 2009, 2:15:23 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

無駄となったUNICODE条件分岐を削除

File:

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

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

@@ -19 +19 @@
 
     Static Function CommandLine() As String
-#ifdef UNICODE
-            CommandLine = New String(GetCommandLineW())
-#else
-            CommandLine = New String(GetCommandLineA())
-#endif
+        CommandLine = New String(GetCommandLine())
     End Function
 
@@ -68 +64 @@
 
     Static Function OSVersion() As OperatingSystem
-        Dim vi As OSVERSIONINFO
-        vi.dwOSVersionInfoSize = Len(vi)
-        GetVersionEx(vi)
-        OSVersion = New OperatingSystem(vi)
+        OSVersion = New OperatingSystem(ActiveBasic.Windows.Version.Detail.vi)
     End Function
 
@@ -163 +156 @@
         Dim buf = New Text.StringBuilder
         buf.Length = size As Long
-        buf.Length  = _System_GetEnvironmentVariable(tcsVariable, StrPtr(buf), size)
+        buf.Length = _System_GetEnvironmentVariable(tcsVariable, StrPtr(buf), size)
         GetEnvironmentVariable = buf.ToString
     End Function