Ayuda no consigo comprimir con delphi

[dellarts]

Hola
unidad_disco es la C:\

El code esta bien ya que lo pongo de forma literal en el ejecutar de windows y me funciona x en codigo no hay manera alguien lo ha probado alguna vez? o sabe ke fallo tengo?

res := WinExec(pansichar('\"C:\Archivos de programa\WinRAR\rar.exe" a "C:\Screensshots\'+ruta+'.rar" "'+unidad_disco+'\Screensshots\Screens\'+ruta+'"'), SW_NORMAL);

PD: Se que hay algunos componentes de delphi ke comprimen solos x me he empeñado en hacerlo con el WinRAR






Saludos

[cloayza]

Creo que el problema es el slash del inicio de la linea de comando.

Código Delphi [-]
res := WinExec(pansichar('\"C:\Archivos de programa\WinRAR\rar.exe" a "C:\Screensshots\'+ruta+'.rar" "'+unidad_disco+'\Screensshots\Screens\'+ruta+'"'), SW_NORMAL);

Código Delphi [-]
res := WinExec(pansichar('"C:\Archivos de programa\WinRAR\rar.exe" a "C:\Screensshots\'+ruta+'.rar" "'+unidad_disco+'\Screensshots\Screens\'+ruta+'"'), SW_NORMAL);

Saludos

[dellarts]

Sin el tampoco funciona

[Ñuño Martínez]

Ahora mismo no recuerdo si Delphi incluye ExecuteProcess, pero si es así quizá sea más efectiva que WinExec (aparte de ser más compatible ):

Código Delphi [-]
FUNCTION Comprime (unidad_disco, ruta: STRING): INTEGER;
VAR
  Parametros: ARRAY [0..2] OF STRING;
BEGIN
  Parametros[0] := 'a';
  Parametros[1] := 'C:\Screensshots\'+ruta+'.rar';
  Parametros[2] := unidad_disco+'\Screensshots\Screens\'+ruta;
  RESULT := ExecuteProcess ('C:\Archivos de programa\WinRAR\rar.exe', Parametros);
END;

De todas formas, también puedes probar ShellExecute. Aquí mismo se ha hablado largo y tendido de esta última, así que no tiene que costarte mucho encontrar información de cómo utilizarla.

[dellarts]

El executeProcess no me funciona en delphi

[cloayza]

Podria ser que la linea de ejecucion no esta correcta, para verificar yo haria:

Código Delphi [-]
var
   cmdLine:string;
begin
      cmdLine:='"C:\Archivos de programa\WinRAR\rar.exe" a "C:\Screensshots\'+ruta+'.rar" "'+unidad_disco+'\Screensshots\Screens\'+ruta+'"';

      ShowMessage(cmdLine);

      res := WinExec(pansichar(cmdLine), SW_NORMAL);
end;

Muestranos la lines de comando resultante.