Leer strings de otra aplicacion

[ecfisa]

Hola cesarsoftware.

Pero...no me va el leer texto con TfrBusca.btnAppToREClick(Sender: TObject);
...
R siempre devuelve 0 (cero) y se queda en el repeat; tambien pasa en la funcion TfrBusca.btnREToAppClick(Sender: TObject);

No me sucede lo mismo, en mi caso funciona bién, pero no estoy usando un S.O. de 64 bits, tal vez sea ese el motivo. Por las dudas te adjunto mi prueba.

Teniendo el handle del control ¿Como podemos obtener su clase, Tedit, Tcombox, etc, si no me funciona GetClassName? Uso Delphi 2010 y windows 7 64.
...
¿Se te ocurre algo?
Edito: Lo mejor seria obtener el objeto ¿Se puede? asi seria mas facil, se podria usar richedit1.text := Trichedit(TObject).Text

Luego voy a revisarlo, te aviso cualquier novedad.

Saludos.

[cesarsoftware]

Ooohhhh
He descargado y ejecutado tu aplicacion y ocurre lo mismo, R devuelve 0,eniff!!

¿Como va lo de obtener el objeto?

[ecfisa]

Empezado por cesarsoftware

Ooohhhh
He descargado y ejecutado tu aplicacion y ocurre lo mismo, R devuelve 0,eniff!!

¿Como va lo de obtener el objeto?

En eso estoy, en eso estoy ...

Pero hay un pequeño problema, no precisamente los nombres obtenidos se enmarcarán dentro de las definiciones de Delphi (Tedit, Tcombox, TMemo, etc) es por eso que te comenté lo de verificar si era un Edit Control.

Por ejemplo al obtener desde Mozilla Firefox (situado en este hilo), se tienen las clases MozillaWindowClass, GeckoPluginWindows y GeckoFPSandBoxChildWindow sobre las cuales yo .


Con el Bloc de notas



Saludos.

[cesarsoftware]

Gracias por seguir el tema.

La funcion
SendMessage(handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));
No me rellena el buffer con el "texto" que tenga el control. (visto que si es un Tedit como el de notepad, entonces devuelve su texto, genial.)

pero si uso
SendMessage(handle, WM_SETFOCUS, SizeOf(Buffer), Integer(@Buffer));
(ya, ya se que aqui el buffer pinta poco, no se donde buscar los parametros para WM_SETFOCUS)
Da el foco perfectamente a cada control

Creo que sera un tema de delphi 2010 mas que de S.O., tengo que probar tu aplicacion en un xp

[cesarsoftware]

Un momento.....

Esto si funciona, con TBitBtn, con Edit, con ComboBox, con StatusBar...

Código Delphi [-]
  buffer := 'hola';
  SendMessage(handle, WM_SETTEXT, SizeOf(Buffer), Integer(@Buffer));

Pregunto, ¿Seguro que estan bien los parametros WParam y LParam para la funcion SendMessage con GETTEXT?
Porque entiendo que guindos coge un area de memoria sabiendo en LParam Integer(@Buffer) y su tamaño en WParam SizeOf(buffer)
SendMessage(handle, WM_GETTEXT, SizeOf(Buffer), Integer(@Buffer));

Voy a probar con PostMessage

[cesarsoftware]

Nada, con postmessage, tampoco.

Que poquito falta....

[[nlsgarcia]]

cesarsoftware,

Empezado por cesarsoftware

Creo que sera un tema de delphi 2010 mas que de S.O., tengo que probar tu aplicacion en un xp

Probe la aplicación de ecfisa en Windows 7 Professional x32, Windows 7 Professional x64 y Windows XP Professional x32 (Los últimos dos en Máquinas Virtuales) con las aplicaciones de Notepad y Calculator y funciono correctamente.

Nota: La aplicación la compile con Delphi 7 antes de probarla.

Espero sea útil

Nelson.