[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