Changeset 603 for trunk/ab5.0/ablib/src/Classes/ActiveBasic

Timestamp:

Aug 21, 2008, 11:04:42 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

[601][602]でのコミットし忘れ分と細かい修正

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab

@@ -47 +47 @@
 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 +77 @@
     */
     Sub WindowsException(hr As HRESULT)
-        Exception(hresultToString(hr))
+        Exception(HResultToString(hr))
         HResult = hr
     End Sub
@@ -98 +107 @@
     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