Problema con d7zip
 

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 ?

A ver, comparemos...

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
   Arch: I7zOutArchive;
   AFileName: string;
begin
  if odAll.Execute and sd7z.Execute then
  begin
    Arch := CreateOutArchive(CLSID_CFormat7z, '7za.dll');
    SetCompressionLevel(Arch, 9);
    SevenZipSetCompressionMethod(Arch, m7LZMA);
    if eContraseña.Text <> '' then
      Arch.SetPassword(eContraseña.Text);
    Memo1.Lines.Clear;
    for AFileName in odAll.Files do
    begin
      Arch.AddFile(AFileName, '');
      Memo1.Lines.Add(AFileName);
      Memo1.Update;
    end;
    Memo1.Lines.Add(StringOfChar('=', 30));
    Memo1.Lines.Add('Finalizado');
    Arch.SaveToFile(sd7z.FileName);
  end;
end;