Código Delphi [-] var Buffer: array[Byte] of Char; begin ZeroMemory(@Buffer, SizeOf(Buffer)); GetClassName(GetFocus(), Buffer, 255); ShowMessage(Buffer); end;
var Buffer: array[Byte] of Char; begin ZeroMemory(@Buffer, SizeOf(Buffer)); GetClassName(GetFocus(), Buffer, 255); ShowMessage(Buffer); end;