Я делал так1. процедура розпаковкиprocedure Unpack_File(FFileName:string);var str : string;str2 : array [0..75] of char;P : PChar;a:word;Sdo_current:string;beginSdo_current:=GetCurrentDir;SetcurrentDir(InDir);str:=InDir+‘rar.exe e "‘+FFileName+‘" -ep -o+‘;execWait(str);delay(3000);{StrPCopy(str2, str);P := @str2;Trya:=WinExec(P, SW_HIDE);exceptIf (a=ERROR_FILE_NOT_FOUND) or (a=ERROR_PATH_NOT_FOUND) Then showMessage(‘Îïåðàö³ÿ çàïóñêó ñêðèïòà çàâåðøèëàñü àâàð³éíî‘);end;}SetcurrentDir(Sdo_current);end;и вызов процедурыUnpack_File(Название файла)

а да процедура execWaitprocedure execWait(const comLine:string);varsi:Tstartupinfo;p:Tprocessinformation;beginfillChar( Si, SizeOf( Si ) , 0 );with Si do begincb := SizeOf( Si);dwFlags := startf_UseShowWindow;wShowWindow := 4;end;Createprocess(nil,pChar(comLine),nil,nil,false,Create_default_error_mode,nil,nil,si,p);Waitforsingleobject(p.hProcess,infinite);end;

Вариант с ‘cmd /k‘ неработает- просто выкидивает консоль без ошибки и ждёт команды на выполнение. А уменя програма постоянно висит в трее и распаковывает файлы без меня. Я туда заглядываю раз в месяц-мне б это дело писать в лог(было б прекрасно)