FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Recoger informacion de todas las ventanas de una aplicación
Buenas,me gustaria saber como recorrer todas las ventas de una aplicación y guardarme el nombre de la ventana, caption y la case de esta.
He estado mirando y se como hacerlo de todo lo que esta en ejecucion en el sistema, pero me insteresa hacerlo de una aplicacion en concreta. Gracias. |
#2
|
||||
|
||||
HolaJoviali y bienvenido a Club Delphi
Como a todos los que se inician te invitamos a que leas nuestra guía de estilo. Para obtener los valores de las propiedades Name y Caption de los forms creados en una aplicacion podes utilizar la variable Screen. Un ejemplo: En cuanto a "la case" no se que significa. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
Hola de nuevo.
Releyendo tu mensaje, creo que te referis al nombre de la clase (no me dí cuenta en la primera leida). En ese caso cambiá en el código anterior esta linea:
Por esta:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#4
|
|||
|
|||
Gracias, por ser tan rapido
Buenas, esto funciona para la misma aplicacion en ejecución , lo que busco son esos mimos datos que me has comentado anteriormente pero de otra aplición . Yo he estado probando con las siguientes funciones:
FindWindow //Para encontrar la aplicacione en concreto. GetWindowText(wnd, WinName, 144); // Obtiene el texto de la ventana actual GetClassName(wnd, CName, 144); // Obtiene el nombre de la clase siendo wnd el Handle de la aplicacion principal. Pero esto no me funciona ya que no me recorre las ventanas hijas de la apliccion. En definitiva lo que busco es que una aplicación "A" busque cuantas ventanas tiene la aplicación "B" abiertas. y me de la información de la clase de cada una de ellas: b--->TF_principal. b1--->Tf_aux1 b2--->tf_aux2. Todo esto viene porque estoy haciendo un programa que actualiza otro y necesito saber que esta en la ventana principal de la aplicacion para poder cerrarla y actualizar la aplicación. Gracias. |
#5
|
||||
|
||||
Recuerda poner los tags al código fuente, ejemplo:
Gracias |
#6
|
||||
|
||||
Quizás esto te de pistas:
Ejemplo de uso:
Saludos. |
#7
|
||||
|
||||
Y mejor de esta otra forma:
Con el mismo ejemplo de uso:
Saludos. Última edición por escafandra fecha: 18-06-2012 a las 12:27:05. |
#8
|
|||
|
|||
Buenas,
La funcion que me has pasado me ha ayudado mucho, por cierto he tenido que cambiar esto para que funcione Código Delphi [-]GetWindowThreadProcessId(Handle, PId); por GetWindowThreadProcessId(Handle,@ PId); La funcion me ha devuelto mas informacion de la que esperaba y me ha surgido la siguiente duda. ¿Puedo preguntar si la Clase TF_MULTICONSULTA es una calse class(TForm) ?.Esto me ayudaria ya que me mostraria solo los formularios de la aplicacion. hWnd: 000202B6h Caption: MultiConsulta Clase: TF_MULTICONSULTA ----------------------------------------------- hWnd: 000102B0h Caption: Aplicación Servidor - Clase: TF_Principal ----------------------------------------------- hWnd: 000202A2h Caption: Clase: TfrProgressForm ----------------------------------------------- hWnd: 00060248h Caption: Servidor - Clase: TApplication ----------------------------------------------- hWnd: 011B04D2h Caption: Clase: ComboLBox ----------------------------------------------- hWnd: 000102CAh Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102C8h Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102C6h Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102C4h Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102C2h Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102C0h Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102BEh Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102BCh Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102B4h Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102AEh Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102ACh Caption: Clase: TPUtilWindow ----------------------------------------------- hWnd: 000102D8h Caption: M Clase: MSCTFIME UI ----------------------------------------------- hWnd: 0004022Ch Caption: Default IME Clase: IME ----------------------------------------------- |
#9
|
||||
|
||||
Cita:
En principio estás explorando ventanas con la API, de cualquier APP. Sólo las aplicaciones basadas en la VCL tienen ventanas del tipo TForm. No se debe confundir la Clase de POO con la clase de ventana de windows, que no tiene nada que ver con la POO. La VCL da nombres de clase de ventana (WindowClass) similares a los de la clase POO lo que ayuda al explorar ventanas de una APP escrita en delphi o Builder. Esto puede aproximarte a tu duda. Puedes saber mas de las ventanas con otras API. Estudia GetWindowLong. Con ella sabrás los estilos de ventada y deducir si la ventana que buscas es un TForm, pero nunca estarás seguro de ello con esta función. Saludos. |
#10
|
|||
|
|||
Puede que sea porque uilizo para este proyecto delphi 5
Al final voy a coger las clases y meterlas en una lista y comparla con otra lista de clases con el programa en reposo.De esta manera sabre si la APP este en el menu principal.Creo que con esto esta solucionado. Una pregunta más cuando voy a guardar el buffer de la clase en un string me aperele lo siguiente: TF_MULTICONSULTA'#0'’|º¡’|'#0#0#$15#0'`'#0#0'@]'#0'’|ð '#$16#0'#'#0#0'À-ÿ‘|ÿÿÿÿË£’|º¡’|'#0#0#$15#0'`'#0#0'@]'#0'’|'#0#0#0#0'-ÿ‘|ô'#3#3#0#0#0#0#0#1#0#0#0#0#0#$15#0'Äð'#$12#0#0#0'É'#0'”ó'#1#0' '#0#0#0'8ò'#$12#0'0ó'#$12#0'”ó'#$12#0' é‘|`'#0'’|ÿÿÿÿ]'#0'’|¬'#4'’|'#0#0#$15#0#0#0#0#0#$10#$17#$16#0#$18'ó'#$12#0'‚'#4'’|'#$10#$17#$16#0#0#0#$15#0#0#0#0#0 #0#0#0#0#0#0#0#0'üó'#$12#0'b4@'#0'þ!'#0#0#0#0#$15#0',ñ'#$12#0#0#0#$15#0'¦¥:~`ó:~'#0#0#0#0#0#0#0#0#0# 0#0#0#0#0#0#0'Ê'#0#0#0'`q'#$16#0'pó'#$12#0'ì'#$1B'£'#0'„õ'#$12#0'ø'#$C#0#0 . He intentando lipiarlo y dejar lo que me interesa(TF_MULTICONSULTA) con funciones que limpiar caracteres dobles, tambien con la siguiente funcion: Código Delphi [-]function TFORM1.QuitarCaracteres(Str: String): String; var i: Integer; begin Result:= EmptyStr; for i:= 1 to Length(Str) do if (Str[i] < #123)AND(Str[i] > #64) then Result:= Result + Str[i]; end; y no hay manera siempre me encuentro algo de basura en algun caso.¿Se te ocurre algo? |
#11
|
|||
|
|||
Perdon por el mensaje anterior, ya he solocionado el problema de la cadena con basura .Muchas gracias por haberme pasado esa funcion.
|
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
For a todas las ventanas abiertas. | rauros | Varios | 1 | 03-08-2008 22:07:59 |
Cerrar todas las Ventanas MDIChild | gluglu | OOP | 11 | 18-04-2007 20:12:56 |
Recoger Información de Balanza | altp | Varios | 4 | 22-08-2005 21:26:32 |
Minimizar todas las ventanas | santiago14 | Varios | 2 | 17-09-2004 03:34:01 |
minimizar todas las ventanas. | soyhugo | Varios | 2 | 18-02-2004 13:11:26 |
|