Cita de: MCKSys Argentina en 12 Noviembre 2012, 23:56 PMGracias ^^ ya logré hacer compatible mi aplicación con ese explorador de archivos. Alguien usa otro explorador de archivos?
XYPlorer: www.xyplorer.com
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: MCKSys Argentina en 12 Noviembre 2012, 23:56 PMGracias ^^ ya logré hacer compatible mi aplicación con ese explorador de archivos. Alguien usa otro explorador de archivos?
XYPlorer: www.xyplorer.com
Cita de: MCKSys Argentina en 12 Noviembre 2012, 20:43 PM
Bueno, modificando un poco el código, obtengo lo mismo con lo siguiente (solo he copiado una parte del code, para no hacer todo mas largo):
'hwnd = GetActiveWindow()
'If (hwnd = 0) Then hwnd = GetForegroundWindow()
If (hwnd = 0) Then hwnd = FindWindow(vbNullString, App.Path)
SetForegroundWindow hwnd
SendKeys "{F4}", True
SendKeys "/" + CStr(App.EXEName) + "{ENTER}", True
Exit Sub
Este code funciona en Win 7 x64, pero no en XP. Para que funcione en XP hay que quitarle el string "/" al SendKeys.
Creo que esto es lo que quieres hacer, no?
SendKeys "{TAB}{RIGHT}" & "\" & App.EXEName & "{ENTER}", True
Cita de: BlackZeroX (Astaroth) en 12 Noviembre 2012, 19:35 PMBueno, ya agregé el source code para los desconfiados ^^ Gracias por sus atenciones.
y ¿El código fuente? me da un poco de cosquillas ejecutar un exe!¡.
Dulces Lunas!¡.
Cita de: Danyfirex en 12 Noviembre 2012, 00:48 AMGracias por responder pero ese no es el tema ^^ ...Creo que plantearé mi problema de otra forma para que me entiendan mejor.
Quizás con FindFirstFile y FindNextFile consigas lo que quieras
Cita de: raul338 en 11 Noviembre 2012, 23:02 PMNo, nada de eso además eso ya sé como hacerlo.
Que queres lograr? Abrir un explorador en una carpeta especifica?
"Espiar" donde va el usuario?