'================================================================
'= 自分自身の擬似スレッドハンドルを取得
'=    (GetCurrentThread.bas)
'================================================================
#include "Windows.bi"

' カレントスレッドの擬似ハンドルを取得
Declare Function Api_GetCurrentThread& Lib "kernel32" Alias "GetCurrentThread" ()

Var Shared Text1 As Object
Var Shared Text2 As Object
Var SHared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Text2.Attach GetDlgItem("Text2") : Text2.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Thread As Long

    '擬似スレッドハンドルを取得
    Thread = Api_GetCurrentThread()

    '擬似スレッドハンドルを表示
    Text2.SetWindowtext Hex$(Thread)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End