Ayuda no consigo comprimir con delphi
 

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?



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






Saludos

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

Sin el tampoco funciona :(

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.

El executeProcess no me funciona en delphi

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.

Esta es la linea resultante

"C:\Archivos de programa\WinRAR\rar.exe" a "C:\Screensshots\image 10-11-2009 184204.rar" "C:\Screensshots\Screens\image 10-11-2009 184204"