GetClassName

ウィンドウのクラス名を取得する

Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" _

(ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" _

(ByVal hWnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer

int GetClassName(
HWND hWnd,
LPTSTR lpClassName,
int nMaxCount
);
引数
hWnd

取得対象のウィンドウのハンドル

(戻り値)取得するクラス名を格納するバッファ

同、バイト数

正常終了のとき  読み込んだバイト数

エラーのとき  0

ダウンロード(GetClassName.lzh 1.56KB)

Private Sub Timer1_Timer()
Dim Pos As PointApi
Dim Temp As String
Dim rc As Long, hWnd As Long
'現在のマウス位置を取得
rc = GetCursorPos(Pos)
'現在のマウス位置にあるウィンドウのハンドル取得
hWnd = WindowFromPoint(Pos.X, Pos.Y)

'Buffを作る
Temp = String(256, Chr(0))
'関数の実行
Call GetClassName(hWnd, Temp, 256)
a = InStr(Temp, Chr(0))
If a > 1 Then
    Me.Text1.Text = Mid(Temp, 1, a - 1)
Else
    Me.Text1.Text = ""
End If
End Sub