Delphi и WinRar

//это с++ или с кому удобнее 
но суть не важна 
strcpy(put,"C:\\Program Files\\WinRAR\\WinRAR a ");
strcat(put,fullpath);
strcat(put," RET");
//эти 3 строчки формирут коммаду вида 
//C:\\Program Files\\WinRAR\\WinRAR a имя файла
// a это комманда 
// они все хорошо расписаны в справке винрара
if(ERROR_FILE_NOT_FOUND==WinExec(put,SW_HIDE))
         
MessageBox(NULL,"Система","У вас не установлени Вин РАР ",MB_OK);