３９．システムメニューのハンドルを取得



＜　使用用途　＞
システムメニューのハンドルを取得

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
　　　＝＞　ダウンロード　・・・　メニューの【閉じる】を無効化にするサンプルです。

＜　説明　＞
ＡＰＩ関数のGetSystemMenuを使用します。
GetSystemMenu＝＞システムメニューのハンドルを取得
　　＜引数＞
　　　 　hwnd：ハンドル
　　　bRevert：常に０
　　＠戻り値＠　　
　　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
'ここではシステムメニューのハンドルを取得する処理です
'標準モジュール
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　Dim nHandle　As Long'ハンドルが入る
　　　　nHandle = GetSystemMenu(Form1.hwnd, 0)
End Sub