Buen dia compañeros
les comento que quiero ejecutar desde una aplicacion el winrar para compactar una base de datos e indicarle algunos parametros, usando el winexec en windows xp me anda perfecto, el problema es que si uso el winexec en windows seven no anda y lo que hay que usar es el shellexecute, pero lo llamo con la sintaxis que les muestro debajo y no llama al winrar, queria ver si me pueden decir que es lo que estoy haciendo mal
Codigo con winexec que funciona en XP pero no en seven
Código Delphi
[-] dia:=copy(datetostr(date()),1,2);
Mes:=copy(datetostr(date()),4,2);
Anio:=copy(datetostr(date()),9,2);
JArchivo:=’c:\prueba\archivo’+dia+mes+anio+'.arJ';
WinExec( pchar('Command.com /c winrar a -r '+Jarchivo + 'c:\base_de_datos\'+ '*.gdb'), SW_SHOWnormal );
Codigo que no da error pero no ejecuta el winrar en Seven
Código Delphi
[-]
dia:=copy(datetostr(date()),1,2);
Mes:=copy(datetostr(date()),4,2);
Anio:=copy(datetostr(date()),9,2);
JArchivo:=’c:\prueba\archivo’+dia+mes+anio+'.arJ';
ShellExecute(f_Backup.Handle, nil,pchar('Command.com /c winrar a -r '+Jarchivo + 'c:\base_de_datos\'+ '*.gdb') ,nil, nil, SW_SHOWNORMAL);
Saludos y gracias
tulio