Index: /trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab	(revision 602)
+++ /trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab	(revision 603)
@@ -47,4 +47,13 @@
 End Namespace
 
+Function HResultToString(hr As HRESULT) As String
+	Dim pszMsg As PCSTR
+	FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER Or FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS,
+		0, hr, LANG_USER_DEFAULT, VarPtr(pszMsg) As PTSTR, 0, 0)
+	If pszMsg <> 0 Then
+		HResultToString = New String(pszMsg)
+		LocalFree(pszMsg)
+	End If
+End Function
 
 /*!
@@ -68,5 +77,5 @@
 	*/
 	Sub WindowsException(hr As HRESULT)
-		Exception(hresultToString(hr))
+		Exception(HResultToString(hr))
 		HResult = hr
 	End Sub
@@ -98,13 +107,4 @@
 	End Sub
 Private
-	Static Function hresultToString(hr As HRESULT) As String
-		Dim pszMsg As PCSTR
-		FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER Or FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS,
-			0, hr, LANG_USER_DEFAULT, VarPtr(pszMsg) As PTSTR, 0, 0)
-		If pszMsg <> 0 Then
-			hresultToString = New String(pszMsg)
-			LocalFree(pszMsg)
-		End If
-	End Function
 End Class
 
Index: /trunk/ab5.0/ablib/src/Classes/System/Environment.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Environment.ab	(revision 602)
+++ /trunk/ab5.0/ablib/src/Classes/System/Environment.ab	(revision 603)
@@ -69,4 +69,5 @@
 	Static Function OSVersion() As OperatingSystem
 		Dim vi As OSVERSIONINFO
+		vi.dwOSVersionInfoSize = Len(vi)
 		GetVersionEx(vi)
 		OSVersion = New OperatingSystem(vi)
Index: /trunk/ab5.0/ablib/src/Classes/System/Math.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Math.ab	(revision 602)
+++ /trunk/ab5.0/ablib/src/Classes/System/Math.ab	(revision 603)
@@ -315,5 +315,5 @@
 		End If
 	End Function
-
+/*
 	Static Function Sign(value As Double) As Long
 		If value = 0 Then
@@ -325,5 +325,5 @@
 		End If
 	End Function
-/*
+
 	Static Function Sign(value As SByte) As Long
 		If value = 0 Then
Index: /trunk/ab5.0/ablib/src/WinNT.ab
===================================================================
--- /trunk/ab5.0/ablib/src/WinNT.ab	(revision 602)
+++ /trunk/ab5.0/ablib/src/WinNT.ab	(revision 603)
@@ -1177,5 +1177,5 @@
 'ACCESS TYPES
 
-'Const DELETE = (&h00010000)
+Const DELETE = (&h00010000)
 Const READ_CONTROL = (&h00020000)
 Const WRITE_DAC = (&h00040000)
Index: /trunk/ab5.0/ablib/src/basic.sbp
===================================================================
--- /trunk/ab5.0/ablib/src/basic.sbp	(revision 602)
+++ /trunk/ab5.0/ablib/src/basic.sbp	(revision 603)
@@ -132,5 +132,5 @@
 		InitializeCriticalSection(_System_CriticalSection)
 
-		_System_hProcessHeap=HeapCreate(HEAP_GENERATE_EXCEPTIONS,0,0)
+		_System_hProcessHeap=HeapCreate(0,0,0)
 
 		' GC管理オブジェクトを初期化