Changeset 624

Timestamp:

2008/09/15 01:19:04 (4 years ago)

Author:

egtra

Message:

メッセージキューの作り方が間違っていたらしいのを修正

File:

• trunk/ab5.0/ablib/src/Classes/System/Threading/ThreadPool.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/System/Threading/ThreadPool.ab

@@ -104 +104 @@
         Try
             Dim msg As MSG
-            PeekMessage(msg, 0, 0, 0, PM_NOREMOVE) 'メッセージキューの作成
+            PeekMessage(msg, 0, WM_USER, WM_USER, PM_NOREMOVE) 'メッセージキューの作成
             isMessageQueueCreated = True
             Dim waitList = New Collections.Generic.List<Detail.WaitData>
@@ -134 +134 @@
                     End With
                     waitList.RemoveAt(i)
+                    handles = waitListToArrayOfHANDLE(waitList)
                 End If
             Loop