Changeset 624


Ignore:
Timestamp:
Sep 15, 2008, 1:19:04 AM (16 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/System/Threading/ThreadPool.ab

    r599 r624  
    104104        Try
    105105            Dim msg As MSG
    106             PeekMessage(msg, 0, 0, 0, PM_NOREMOVE) 'メッセージキューの作成
     106            PeekMessage(msg, 0, WM_USER, WM_USER, PM_NOREMOVE) 'メッセージキューの作成
    107107            isMessageQueueCreated = True
    108108            Dim waitList = New Collections.Generic.List<Detail.WaitData>
     
    134134                    End With
    135135                    waitList.RemoveAt(i)
     136                    handles = waitListToArrayOfHANDLE(waitList)
    136137                End If
    137138            Loop
Note: See TracChangeset for help on using the changeset viewer.