Mit Abbreviakomponente komplette Ordner zippen

[horst]

Ich habe es nun mehr oder weniger hinbekommen.
Weniger, weil die Umlaute beim zippen verändert werden.
Aus -> süd wird -> s³d
Weiß jemand warum das so ist?

Delphi-Quellcode:

If DirectoryExists('C:\temp') Then
    try
      AbZipper1.LogFile := 'C:\temp'
             +'('
             +FormatDateTime('dd"-"mm"-"yyyy hh"_"nn',now)
        + ').log';
      AbZipper1.BaseDirectory := 'C:\temp';
      AbZipper1.FileName := 'C:\temp\test.zip';
      AbZipper1.TempDirectory := ExtractFilePath(Application.ExeName);
      AbZipper1.AddFiles('*',0);
      AbZipper1.Save;
      AbZipper1.CloseArchive;
      ShowMessage('OK: '
                        + 'C:\temp' + ' -> '
                        + AbZipper1.FileName);
    Except
      On E: Exception Do
        ShowMessage('NO: '
                        + E.Message);
    End;

End;