Cita:
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';
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
ya no funciona
, muchas gracias por tu tiempo.