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;
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;