Shellexecute con Parametros ...

[ethangio]

Ya va funcionando ... cambie de
ExtractFilePath(Application.ExeName) a ExtractFileDir(Application.ExeName) pero ahora no se por que no me guarda el archivo en

c:\archivos de programa\aplicacion\backups\

Por que si creo el archivo en c:\ si lo crea

Seguire buscando

[ethangio]

Miren si yo pongo estas lineas si funciona

Código Delphi [-]
ruta := SysUtils.IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));

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

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

Pero si pongo el sig codigo

Código Delphi [-]
ruta := SysUtils.IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));

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

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

Ya no hace el backup, y me manda un error en la ventana de DOS, que dice : "C:\Archivos" no se reconoce como un comando interno o externo, programa o archivo por lotes.

Entonces quiero pensar que tengo problemas con las comillas no ? pero no se como solucionarlo.

[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 ...