即効テクニック |
●概要● 宣言文 Declare Function GetDesktopWindow Lib "user32" () As Long デスクトップのウィンドウハンドルを取得します。 次のコードは、デスクトップのウィンドウハンドルをメッセージダイアログで表示するサンプルです。 ●サンプル● Private Declare Function GetDesktopWindow _ Lib "user32" () As Long 'デスクトップのウィンドウハンドルを取得する Sub Sample() Dim myHwnd As Long 'デスクトップのウィンドウハンドルを取得して表示 myHwnd = GetDesktopWindow() MsgBox myHwnd End Sub