'================================================================
'= クリップボードビューアチェイン内のハンドルを取得
'=     (GetClipboardViewer.bas)
'================================================================
#include "Windows.bi"

' クリップボードビューアチェイン内の最初のウィンドウハンドルを取得
Declare Function Api_GetClipboardViewer& Lib "user32" Alias "GetClipboardViewer" ()

Var Shared Text1 As Object
Var Shared Button1 As Object

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

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

    'クリップボードビューアチェインのハンドル取得
    ViewerHandle = Api_GetClipboardViewer

    If ViewerHandle = 0 Then               '取得結果がNULLのときは
        Text1.SetWindowtext "チェインは存在しません。"

    Else                                   '取得結果がNULL以外のときは
        Text1.SetWindowText "Viewer Handle : &&H" & Hex$(ViewerHandle)
    End If
End Sub

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