HSPTV!掲示板

#uselib "user32"

#cfunc CreatePopupMenu "CreatePopupMenu"
#func AppendMenu "AppendMenuA" int, int, int, str
#func TrackPopupMenu "TrackPopupMenu" int, int, int, int, int, int
#func DestroyMenu "DestroyMenu" int


; サブメニューを作成し、ハンドルを取得
hMenu.0 = CreatePopupMenu ()

AppendMenu hMenu.0, , $3, "サブメニュー項目 3"
AppendMenu hMenu.0, , $4, "サブメニュー項目 4"


; メインのポップアップメニューを作成し、ハンドルを取得
hMenu.1 = CreatePopupMenu ()
AppendMenu hMenu.1, , $1, "メニュー項目 1"
; 第2パラを$800にするとセパレータ(区切り線)になる。
AppendMenu hMenu.1, $800, , ""
AppendMenu hMenu.1, , $2, "メニュー項目 2"
; 第2パラメータを$10にするとサブメニューへ。
; 第3パラにサブメニューのハンドルを入れる。
AppendMenu hMenu.1, $10, hMenu.0, "サブメニュー"

onclick gosub *onjump ; マウスをクリックした時
; または、「oncmd gosub *onjump, $201」 (WM_RBUTTONDOWN)

onexit *exit

stop

*onjump
if wparam = 2 { ; 右クリックされた時
; ポップアップメニューを開く。第1パラに開くポップアップ
; メニューのハンドルを指定してやる。
TrackPopupMenu hMenu.1, $100, ginfo (0), ginfo (1), , hwnd

; stat にそれぞれメニュー項目のIDが返る
if stat = $1 : dialog "項目 1 選択"
if stat = $2 : dialog "項目 2 選択した"
if stat = $3 : dialog "項目 3 選択です"
if stat = $4 : dialog "項目 4 選択じゃ"
}
return

*exit
DestroyMenu hMenu.1

end

これだとexe上で右クリするとメニューがでるんですが
他のプロセスのハンドルを取得しそこに、右クリックメニュを表示できないでしょうか？

oncmd を使用してでWM_CONTEXTMENUメッセージを受け取ッてください

//
//	主に ユーザーがコントロールを右クリックして 
//	メニューがポップアップされる条件を満たしたときに 通知されます。
//
	#define  WM_CONTEXTMENU    0x007B
	oncmd gosub *oncmd_wm_wm_contextmenu , WM_CONTEXTMENU
	button gosub "test",*dummy
	button gosub "test2",*dummy
	stop
*dummy:return
*oncmd_wm_wm_contextmenu
	#define h_wnd		wParam
	#define xPos		lParam&0xFFFF
	#define yPos		(lparam>>16)&0xFFFF
	if(objinfo_hwnd(0)==h_wnd){
		dialog "ボタン test が右クリックされました"
	}else:if((objinfo_hwnd(1)==h_wnd)){
		dialog "ボタン test2 が右クリックされました"
	}
	return