[JuanOrtega]

Hola tengo el siguiente codigo usando el componente d7zip :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Arch: I7zOutArchive;
  AFileName: string;
begin

  AFileName := 'c:/test.txt';

  Arch := CreateOutArchive(CLSID_CFormat7z,'7za.dll');
  SetCompressionLevel(Arch, 9);
  SevenZipSetCompressionMethod(Arch, m7LZMA);
  Arch.AddFile(AFileName, '');
  Memo1.Lines.Add(AFileName);
  Memo1.Lines.Add(StringOfChar('=', 30));
  Memo1.Lines.Add('Finalizado');
  Arch.SaveToFile('test.zip');

end;

El problema esta en que no me compila porque da error :

Too many actual parameters

En esta linea :

Código Delphi [-]
Arch := CreateOutArchive(CLSID_CFormat7z,'7za.dll');

Probe sacando la parte de dll que esta de mas pero despues me aparece el error de que no encuentra la dll , todo esto lo hago en delphi xe2 y me baso en esta pagina : http://jachguate.wordpress.com/2012/...7zip-y-delphi/

¿ Cual es el error ?