Delphi XE2, Windows 7, fileexists y shellexecute no funcionan

[cloayza]

La modificación que te envié la prove en XE2 y si funciona...(Win7 x64).

Este es el código que probe....

Código Delphi [-]
var Archivo: string;
    errorcode: integer;
begin
     Archivo:='c:\Windows\SysWOW64\calc.exe';

     //Archivo:='c:\Windows\System32\calc.exe';

    If Not FileExists(Archivo) Then Exit;

    Errorcode:=ShellExecute(0, 'open', PWideChar(Archivo), nil, nil, SW_NORMAL);
end;

Verifica la ruta y nombre del comando a ejecutar...
Puede ser otro el problema...

[sonjeux]

Empezado por cloayza

La modificación que te envié la prove en XE2 y si funciona...(Win7 x64).

Este es el código que probe....

Código Delphi [-]
var Archivo: string;
    errorcode: integer;
begin
     Archivo:='c:\Windows\SysWOW64\calc.exe';

     //Archivo:='c:\Windows\System32\calc.exe';

    If Not FileExists(Archivo) Then Exit;

    Errorcode:=ShellExecute(0, 'open', PWideChar(Archivo), nil, nil, SW_NORMAL);
end;

Verifica la ruta y nombre del comando a ejecutar...
Puede ser otro el problema...

Gracias si lo probe y funciona, ahora no se por que si quiero abrir desde la direccion que esta en un edti1.text no quiere abrirlo, sera por que text devuelve una variable de tipo tcaption? :P, el codigo que uso es el siguiente

Para seleccionar el archivo

Código Delphi [-]
procedure TConsulta.cxButton3Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
         Edit1.Text:=OpenDialog1.Files.Text;
end;

Para ejecutar el archivo

Código Delphi [-]
procedure TConsulta.cxButton6Click(Sender: TObject);
var Archivo: string;
    errorcode: integer;
begin
    ShowMessage(Archivo);
    If Not FileExists(Edit1.Text) Then Exit;

    Errorcode:=ShellExecute(handle, 'open', PWideChar(Edit1.Text), nil, nil, SW_SHOWNORMAL);   
end;

Como vez es el mismo codigo

Si coloco la direccion asi

Código Delphi [-]
Archivo:='c:\Windows\SysWOW64\calc.exe';
Archivo:='C:\Compartida\Villanueva Agosto 2013\esvillanueva\facturasvillanueva.txt';

Funciona en los dos casos, pero si coloco asi

Código Delphi [-]
Archivo:=edit1.text;

ya no funciona , muchas gracias por tu tiempo.

[cloayza]

Creo que el problema está aquí...

Código Delphi [-]
procedure TConsulta.cxButton3Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
         //Edit1.Text:=OpenDialog1.Files.Text;
         Edit1.Text:=OpenDialog1.Filename;
end;

Prueba realizando este pequeño cambio

[sonjeux]

Empezado por cloayza

Creo que el problema está aquí...

Código Delphi [-]
procedure TConsulta.cxButton3Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
         //Edit1.Text:=OpenDialog1.Files.Text;
         Edit1.Text:=OpenDialog1.Filename;
end;

Prueba realizando este pequeño cambio

Muchas gracias, si funciona ahora a leer sobre eso, jajaja, muchas gracias por su ayuda.