FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Delphi XE2, Windows 7, fileexists y shellexecute no funcionan
Saludos, estoy programando en Delphi XE2, en Windows 7 64Bits, y no me funcionan ninguno de los 2 comandos fileexists y shellexecute. Probe de varias formas. El codigo que estoy usando es uno que vi aqui y no me funciono tampoco, me sale el mensaje file not found pero si existe lo comprobe manualmente, si alguien me podria decir por que no funciona, gracias.
|
#2
|
||||
|
||||
Hola sonjeux.
Lamento no tener otra versión, pero te adjunto un código que funciona correctamente con Delphi 7 en Windows 64bits, estimo que debería hacerlo del mismo modo en Delphi XE2. Para probarlo, crea una carpeta temporal y descomprimilo allí. (El demo incluye un archivo .txt en la misma carpeta) Algo importante a tomar en cuenta es que en Windows 64bits la carpeta Windows\System32 es redirigida a Windows\SysWOW64, así que el código: nos va a porfiar con un rotundo "No existe" aunque tengamos seleccionado el archivo desde el explorador de windows y precisamente en esa carpeta ... La solución mas simple es reemplazar "System32" por el alias "Sysnative" que le indica al sistema de archivos que no debe redirigir el acceso:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
||||
|
||||
A veces es problema de que el nombre incluye espacios.
Haz una sencilla prueba de acceder a un nombre de fichero sencillo (sin espacios y con pocos caracteres). Por ejemplo: c:\hola.txt Descartarás de esa forma que sea por ese problema. La otra opción más común es que sea por tema de permisos.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
||||
|
||||
Hola sonjeux.
Ampliando el caso de FileExists, se puede encapsular la detección del SO en una función para que trabaje en Win32 y Win64:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 14-01-2014 a las 12:57:18. |
#5
|
|||
|
|||
Intenta con este pequeño cambio...
Saludos |
#6
|
|||
|
|||
cloayza gracias por responder te comento que no funciona con PWideChar,
ecfisa gracias por responder, te comento que no me funciona en delphi XE2, en delphi 7 me funciona, Neftali te comento que probe con una direccion similar a c:\hola.txt y no me funciono, lei que varias personas tienen ese problema en las versiones de XE en el foro de embarcadero, probe ejecutar el programa que hize como administrador y tampoco funciono, pero tal vez mi windows 7 este mal, me interesa solucionar el problema que tengo con shellexecute ya que el programa que hice tiene un campo donde se adjunta la direccion de un archivo, word, txt o imagen, y quisiera otro boton para ver ese archivo, gracias a todos por su ayuda. Alguien puede probar si le funciona shellexecute en un delphi XE, gracias. |
#7
|
|||
|
|||
La modificación que te envié la prove en XE2 y si funciona...(Win7 x64).
Este es el código que probe....
Verifica la ruta y nombre del comando a ejecutar... Puede ser otro el problema... |
#8
|
|||
|
|||
Cita:
Para seleccionar el archivo
Para ejecutar el archivo
Como vez es el mismo codigo Si coloco la direccion asi
Funciona en los dos casos, pero si coloco asi
ya no funciona , muchas gracias por tu tiempo. |
#9
|
|||
|
|||
Creo que el problema está aquí...
Prueba realizando este pequeño cambio |
#10
|
|||
|
|||
Cita:
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Fallo copyfile y fileexists en servicio windows y red | Ivanzinho | Varios | 4 | 13-08-2013 09:50:59 |
FileExists() no lee .dll en system32 | to_to | API de Windows | 21 | 29-05-2013 23:15:11 |
No me funcionan las teclas de acceso rapido de Delphi | Atelio | Varios | 3 | 10-05-2013 15:18:13 |
No me funcionan los recurso para poner delphi en español | Durbed | Varios | 28 | 20-10-2006 18:14:11 |
Fileexists sobre una red | Kipow | Varios | 2 | 26-05-2006 14:57:43 |
|