クリップボードを所有するウィンドウのハンドルを取得          <TOP>

GetClipboardOwner クリップボードを所有するウィンドウのハンドルを取得

　

左：メモ帳内のテキストをコピーしたとき    右：デスクトップ画面を「PrintScreen」でコピーしたとき

 

　

'================================================================
'= クリップボードを所有しているウィンドウのハンドルを取得
'=    (GetClipboardOwner.bas)
'================================================================

' クリップボードを所有するウィンドウのハンドルを取得
Declare Function Api_GetClipboardOwner& Lib "user32" Alias "GetClipboardOwner" ()

Var Owner As Long

Owner = Api_GetClipboardOwner()

If Owner <> 0 Then
    Print "ウィンドウハンドル：&H" & Hex$(Owner)
Else
    Print "所有権を持つウィンドウはありません！"
End If

Stop
End