Como ejecutar un Archivo .BAT en delphi

[river_1]

Buenas a todos , necesito saber como ejecutar un archivo .BAT con una aplicacion de Delphi , con un boton , ya tengo el archivo pero no se como ejecutar, este BAT simplemente copia unos archivos de una ubicacion a otra.
Gracias por su ayuda....

[*Caro*]

Hola river_1, puedes utilizar ShellExecute, añades ShellApi a uses.

Código Delphi [-]
 Path := 'c:\archivo.bat';
 ShellExecute(Handle,nil,PChar(Path),'','',SW_SHOW);

Saluditos

[ecfisa]

Hola.

Código Delphi [-]
...
uses ShellApi;
...
begin 
  ShellExecute(Handle,'open','ARCHIVO_BAT.BAT',nil,nil,SW_SHOWMINIMIZED);
end;

Saludos.

[river_1]

Muchas gracias por su respuesta, ya lo hice de las 2 maneras y no ejecuta el codigo, es decir, no hace nada no se ejecuta el .bat.

Lo puse de las 2 maneras que me sugirieron y no hace nada , es mas ni siquiera me marca algun error..
Gracias..

[ecfisa]

Hola river_1.

Lo único que se me ocurre para que no te funcionen es que no estes indicando bién la ruta o el nombre de archivo.

Realizá una simple prueba, crea un archivo llamado PRUEBA.BAT en el directorio raíz ( C:\ ) con el siguiente contenido:

@ECHO OFF
CLS
ECHO EJECUTANDO EL ARCHIVO: PRUEBA.BAT
PAUSE

Y luego llamalo así:

Código Delphi [-]
...
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,'open','C:\PRUEBA.BAT',nil,nil,SW_SHOWMAXIMIZED);
end;

Del mismo modo el código de Caro, también funciona correctamente:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  Path: string;
begin
  Path:= 'C:\PRUEBA.BAT';
  ShellExecute(Handle,nil,PChar(Path),'','',SW_SHOW);
end;

Saludos.

[river_1]

Pues la verdad no se porque no funciona , les estoy adjuntando una prueba que hice en mi maquina y al darle al boton no hace nada la aplicacion , tengo windows 7 no se que windows tengan ustedes o que propiedad se tenga que habilitar para que se pueda ejecutar el codigo...
Si ejecuto el bat directamente del archivo si lo ejecuta...

[x_aguilarf]

a mi me funciona correctamente. Seguro que el archivo PRUEBA.BAT esta en C:\?

Intenta probar esto :

Código Delphi [-]
var
  Path: string;
begin
  Path:= 'C:\PRUEBA.BAT';
  ShellExecute(Handle,nil,'cmd.exe',PChar('/C "' + Path + '"'),'',SW_SHOW);

Saludos

[river_1]

Gracias a todos por contestar , ya lo probe en otro equipo y si se ejecuta bien el programa , al parecer hay algo raro en mi equipo que no deja hacerlo.
Lo voy a dejar asi espero que cuando lo ejecute mi cliente se realize el proceso que realmente alli es donde me interesa que se realize bien.
Les hare saber como me fue cuando vaya a probarlo con el ...
Gracias..

[river_1]

Hola a todos , ya quedo , fijense que en mi maquina ya quiso correr el programa.
Que era? quien sabe,...
Gracias a todos por sus respuestas....