Shellexecute con Parametros ...

[ecfisa]

Hola ethangio.

Ya va funcionando ... cambie de ExtractFilePath(Application.ExeName) a ExtractFileDir(Application.ExeName)

Con ExtractFilePath obtenés: C:\Program Files\aplicacion\ y con ExtractFileDir: C:\Program Files\aplicacion. Por lo que pareciera que te estuviese sobrando un / en el primer caso.

Otra cosa que se me ocurre es que mysqldump.exe no maneje nombres largos (es sólo un lance ya que no conozco la aplicación), en cuyo caso podrías convertirlos a cortos antes de utilizarlos:

Código Delphi [-]
function GetShortName(const FileName:string): string;
var
  ShortName: array[0..255] of char;
begin
  GetShortPathName(PChar(FileName), @ShortName, Length(ShortName));
  Result:= ShortName;
end;

Ejemplo de uso:

Código Delphi [-]
...
 linea_mysqldump := '/c "' + GetShortName(ExtractFileDir(Application.ExeName)) + ...

Un saludo.

[ethangio]

Gracias .. gracias por su ayuda ...

ecfisa no utilice tu idea pero me diste otra buena ... Ya funciona

Código Delphi [-]
var
  linea_mysqldump, ruta : String;
begin
  ruta := SysUtils.IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));

  linea_mysqldump := '/c "'+trim(ruta)+'Data\bin\mysqldump.exe" --opt --user=root --password=holaroot  mibase > Backups\back.sql';

  ShellExecute(handle,'open', 'cmd.exe', PChar(linea_mysqldump), PChar(ruta), SW_SHOWNORMAL);
end;

Les agradezco por su tiempo y ayuda ... ecfisa y defcon1_es ...