Winrar használata

Sokszor jelent gondot, egy program becsomagolása, ha azt akarjuk, hogy azt más ki is tudja csomagolni, lehetőleg egy álltalános tömörítővel. Nekem csak a WinRAR van meg, de a WinZip is valahogyan így működhet. Az első példában a c:\a\ -könyvtár teljes tartalmát csomagolom be a c:\xakk.rar fájlba, a második példában pedig onnan csomagolom ki.

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','C:\Program Files\winrar\winrar.exe',
'Add c:\xakk c:\a\',nil,sw_shownormal);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(handle,'open','C:\Program Files\winrar\winrar.exe',
'extr c:\xakk c:\a\',nil,sw_shownormal);
end;