Changeset 629 for trunk/ab5.0/ablib/src/Classes/System/Console.ab

Timestamp:

Sep 21, 2008, 2:06:46 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

Console.Title（取得側）が正しく動かないバグを除去

File:

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

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

@@ -240 +240 @@
             Exit Sub
         Else
-            SetConsoleTitle(StrPtr(title))
+            SetConsoleTitle(ToTCStr(title))
         End If
     End Sub
     Static Function Title() As String
-        Dim sb = New Text.StringBuilder(24500*SizeOf(Char))
         If Console.hconsoleout =NULL Then
             Return ""
         Else
-            GetConsoleTitle(sb.__Chars(),sb.Length())
+            Dim sb = New Text.StringBuilder
+            sb.Length = 24500
+            Dim ret = GetConsoleTitle(StrPtr(sb),sb.Length())
+            If ret = 0 Then
+                Dim error = GetLastError()
+                If error <> ERROR_SUCSESS Then
+                    ActiveBasic.Windows.ThrowWithErrorCode(error, "Console.Title")
+                End If
+            End If
+            sb.Length = ret
+            Return sb.ToString()
         End If
     End Function