Changeset 493

Timestamp:

Mar 23, 2008, 11:08:56 PM (17 years ago)

Author:

NoWest

Message:

IsAliveプロパティを追加

File:

• trunk/Include/Classes/System/Threading/Thread.ab (modified) (2 diffs)

trunk/Include/Classes/System/Threading/Thread.ab

@@ -94 +94 @@
     ' Public Properties
     '-----------------------
-
+    Function IsAlive() As Boolean
+        Dim code As DWord
+        GetExitCodeThread(m_hThread,code)
+        If code=STILL_ACTIVE Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
     
     'Priority Property
@@ -155 +163 @@
 
         '自身のスレッドハンドルを閉じる
-        CloseHandle(m_hThread)
+        CloseHandle(InterlockedExchangePointer(VarPtr(m_hThread),NULL))
         m_hThread=0