вопрос по коммандной строке

[hunter03]

Здравствуйте, может не по теме, но решил написать тут:
суть вопроса: есть папка d:\vrt, в ней куча файлов и 1 вложенная папка, назовем ее "новая папка".
необходимо заархивировать вложенную папку(новая папка)

Делаю так:

procedure TForm1.btn1Click(Sender: TObject);
var SPar : String;
begin
SPar :='/C rar a  "d:\vrt\новая папка.rar" "d:\vrt\новая папка"';
 ShellExecute(Self.Handle, 'open', 'C:\WINDOWS\system32\cmd.exe', PChar(SPar), nil, SW_SHOWNORMAL);


end;

Но вместо этой вложенной папки архивируется папка vrt\новая папка
Как решить проблему?

[Stilet]

необходимо заархивировать вложенную папку(новая папка)

Но вместо этой вложенной папки архивируется папка vrt\новая папка

Кто-нибудь что-нибудь понял?

[Shouldercannon]

Не проверял

SevenZip

var
      SevenZip: TSevenZip;
begin
      SevenZip := TSevenZip.Create(nil);
      try
        try
          SevenZip.AddOptions := [AddRecurseDirs];
          SevenZip.AddRootDir := 'd:\vrt\новая папка\';
          SevenZip.SZFileName := 'd:\vrt.7z';
          SevenZip.Files.Clear;
          SevenZip.Files.AddString('d:\vrt\новая папка\*.*';
          SevenZip.Add;
        except
        end;
      finally
        SevenZip.Free;
      end;

[hunter03]

Спасибо, получилось!!)