Getting Window Class Name |
//How to get window class name procedure GetWinClassName; Var ClassName : Array[0..255] of Char; WinClass : TWndClass; begin // 1. Using GetClassName API function GetClassName(Handle, ClassName, 256); Edit1.Text := StrPas(ClassName); // 2. Using GetClassInfo API function GetClassInfo(Handle, ClassName, WinClass); Edit2.Text := StrPas(WinClass.lpszClassName); end; |