shellexecute(application.Handle,'open','c:\progra~1\winrar\rar.exe',' a -o+ -r -s -y c:\arch\arch1.rar c:\dir1',nil,sw_shownormal);
