Obtener la clase de una ventana dada

[UsherNew]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
// Se le aplica un numero largo no tanto para el caption de la forma
buffer:array[0..200]of Char;
//tamaño del buffer
tamanno:Integer;
begin
tamanno:= sizeof(buffer);
//Da la clase de la ventana
//En este caso da el nombre de la clase del Mozilla
GetClassName(FindWindow(nil,'Untitled Document - Mozilla Firefox'),@buffer,tamanno);
 Edit1.Text:=buffer;
// devuelve MozillaUIWindowClass este es la clase del Mozilla
end;