スレッドIDとプロセスIDを取得          <TOP>

自フォームを作成したスレッドIDとプロセスIDを取得します。

GetWindowThreadProcessId ウィンドウのプロセスIDとスレッドIDを取得

'================================================================
'= スレッドID・プロセスIDを取得
'=    (ThreadProcessId.bas)

'================================================================
#include "Windows.bi"

' ウィンドウのプロセスIDとスレッドIDを取得する関数の宣言
Declare Function Api_GetWindowThreadProcessId& Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd&, lpdwProcessId&)

Var Shared Text(3) As Object

For i = 0 To 3
    Text(i).Attach GetDlgItem("Text" & Trim$(Str$(i + 1)))
    Text(i).SetFontSize 14
Next

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var ThreadId As Long
    Var ProcessId As Long

    'スレッドIDとプロセスIDを取得
    ThreadId = Api_GetWindowThreadProcessId(GethWnd, ProcessId)

    'スレッドIDを表示
    Text(2).SetWindowText "&&H" & Hex$(ThreadId)

    'プロセスIDを表示
    Text(3).SetWindowText "&&H" & Hex$(ProcessId)
End Sub

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