Obtener la clase de una ventana dada

[UsherNew]

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;

[sitrico]

Gracias por responder ANTES de que hiciera la pregunta :D

Moraleja: usar el buscador antes de preguntar ;)

[Neftali [Germán.Estévez]]

Supongo que podrías añadirlo a la sección de trucos del club (http://www.clubdelphi.com/trucos/).

[UsherNew]

Supongo que podrías añadirlo a la sección de trucos del club (http://www.clubdelphi.com/trucos/).

Neftali gracias por el consejo pero no encuentro la forma de agregarlo en la seccion de trucos:confused:

[dec]

Hola,

En el enlace (http://www.clubdelphi.com/trucos/) que ha puesto Neftalí deberías ver otro tal que "Clic aquí para insertar un truco" (http://www.clubdelphi.com/trucos/insertar/index.php). Te aparecerá un formulario que has de rellenar convenientemente. ;)

[UsherNew]

Hola,

En el enlace (http://www.clubdelphi.com/trucos/) que ha puesto Neftalí deberías ver otro tal que "Clic aquí para insertar un truco" (http://www.clubdelphi.com/trucos/insertar/index.php). Te aparecerá un formulario que has de rellenar convenientemente. ;)

ahora si gracias bro