' Permet de récupérer le nom de classe de la fenêtre hWnd
Public Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long



'---------------------------------------------------------------------------------------
' Procedure : GetWindowClass
' DateTime  : 25/02/2007 18:54
' Author    : Vb System Library
' Purpose  : Renvoie le nom de la classe de la fenêtre
' Params    : hWnd : Handle de la fenetre
'---------------------------------------------------------------------------------------
Public Function GetWindowClass(ByVal hWnd As Long) As String
    ' On prépare la chaine de caractère avec 255 espaces
    GetWindowClass = Space$(255)
    ' On récuère le nom de la classe
    GetClassName hWnd, GetWindowClass, 255
    ' On efface les caractères vides
    GetWindowClass = Left$(GetWindowClass, InStr(GetWindowClass, vbNullChar) - 1)
End Function