Changeset 599 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab

Timestamp:

Aug 20, 2008, 3:37:44 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

ThreadPoolの実装、WaitHandle.WaitAny/WaitAllのまともな実装、ほか。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/Windows.ab (modified) (1 diff)

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

@@ -110 +110 @@
 
 /*!
-@brief  GetLastErrorのエラー値を基に例外を投げる。
-@date   2008/07/13
+@brief  Windowsのエラー値を基に例外を投げる
 @param[in] dwErrorCode  Win32エラーコード
 @throw WindowsException 常に投げられる。
-@auther Egtra
+@date 2008/07/13
+@auther Egtra
 */
-Sub ThrowByWindowsError(dwErrorCode As DWord)
+Sub ThrowWithErrorCode(dwErrorCode As DWord)
     Throw New WindowsException(HRESULT_FROM_WIN32(dwErrorCode))
 End Sub
 
+/*!
+@brief 内部でGetLastErrorを呼んで、その値を基に例外を投げる。
+@throw WindowsException 常に投げられる。
+@date 2008/08/26
+@auther Egtra
+*/
+Sub ThrowWithLastError()
+    ThrowWithErrorCode(GetLastError())
+End Sub
 /*!
 @brief  HRESULT値を基に例外を投げる。