６９．ウインドウのクラス名を取得する

＜　使用用途　＞
ウインドウのクラス名を取得する

　＜　説明　＞
ＡＰＩ関数のGetClassName を使用します
GetClassName 　＝＞ウインドウのクラス名を取得する
　　＜引数＞
　　　　　hwnd：ウインドウのハンドル
　　　　　lpClassName：クラス名を格納する変数の
　　　　　nMaxCount：同、文字数
　　＠戻り値＠
　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Ｐｕｂｌｉｃ Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassNameAs String, ByVal nMaxCount As Long) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim nName As String
　　Dim nLeng As Long
　 Dim Ret As Long

　　'バッファを確保
　　nName = String(250, Chr(0))
　　nLeng = Len(nName)

　　Ret = GetClassName(Form1.hwnd, nName, nLeng)
　　Text1.Text = nName

End Sub